gpt4 book ai didi

VBA Excel宏消息框自动关闭

转载 作者:行者123 更新时间:2023-12-02 11:44:00 27 4
gpt4 key购买 nike

我有一个 Excel 宏,它在打开文件时运行,打开另一个 Excel 文件,刷新数据,保存然后关闭它。

我还有一个中间位(Dim AckTime),它会显示一条弹出消息,以显示它已完成的操作。

但是..由于我将宏设置为在使用 Public Sub Workbook_Open() 打开工作簿时运行,因此会弹出消息框,但不会再在 1 秒后自动关闭。

有人可以帮忙吗?

Public Sub Workbook_Open()

Application.ScreenUpdating = False Application.DisplayAlerts = False
Application.AskToUpdateLinks = False

With Workbooks.Open("\\filename.xlsm")
ActiveWorkbook.RefreshAll 'updates the data
ActiveWorkbook.Sheets("Dashboard").Range("A2").Value = DateTime.Now
' updates this cell with the current time

Dim AckTime As Integer, InfoBoxWebSearches As Object
Set InfoBoxWebSearches = CreateObject("WScript.Shell")
AckTime = 1
Select Case InfoBoxWebSearches.Popup("Updated, saving & closing...", _
Case 1, -1
End Select

.Save
.Saved = True 'when saved..
.Close 0 'close the file

End With

End Sub

最佳答案

Select Case InfoBoxWebSearches.Popup("Updated, saving & closing...", AckTime)

应该是你唯一的错误。您只是没有设置等待时间。

关于VBA Excel宏消息框自动关闭,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/19008288/

27 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com