代码在Workbook_Open上激发，但跳过子例程

Question

以下代码在ThisWorkbook中

Private Sub Workbook_Open()
Call refreshAll
MsgBox "Queries, Pivot Tables, and PivotCharts have been refreshed!"
ThisWorkbook.Worksheets("presentation").Activate
End Sub

我调用子CCD_ 2和Excel"；跳过"；refreshAllsub位于Module1：

Public Sub refreshAll()
query
ThisWorkbook.refreshAll
End Sub

这里出了什么问题？谢谢

Answer 1

如果调用refreshAll():，则必须定义Module1

Private Sub Workbook_Open()
Call Module1.refreshAll
MsgBox "Queries, Pivot Tables, and PivotCharts have been refreshed!"
ThisWorkbook.Worksheets("presentation").Activate
End Sub

如果没有Module1.RefreshAll()，代码将执行ThisWorkbook.RefreshAll()方法。