代码在 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

我正在调用 sub refreshAll和 Excel“跳过”它并执行refreshAll sub 位于 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()方法。