代碼在 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()方法。