我目前在ThisWorkbook
中有以下子。每当我激活此工作簿时,我想运行此子“SubName”,但不希望宏在我打开文件时运行(它当前运行“SubName”导致错误,因为在宏正常运行之前,数据需要大约5秒才能加载)
谢谢!
Private Sub Workbook_Activate()
SubName
End Sub
答案 0 :(得分:0)
尝试在SubName
:
Do Until Application.Ready = True
DoEvents: Loop
答案 1 :(得分:0)
也许您可以尝试以下代码
Option Explicit
Dim justOpened As Boolean
Private Sub Workbook_Activate()
If justOpened Then
justOpened = False
Else
MsgBox "Activate"
' Your Sub here
End If
End Sub
Private Sub Workbook_Open()
justOpened = True
End Sub