excel - VBA For Excel 刷新后事件

Question

我正在使用以下QueryTable查询。 .Refresh 执行后，VBA 过程结束。查询有效，但我需要在完成后执行代码。

.AfterRefresh 事件似乎是我所需要的，但我无法让它执行。

With ActiveSheet.QueryTables.Add(Connection:="URL;" & sUrl, Destination:=ActiveSheet.Range("a1"))

             .RefreshStyle = xlOverwriteCells
             .SaveData = True
             .Refresh
             .AfterRefresh (Success)
End With

这是不执行的 AfterRefresh 子程序。

Sub QueryTable_AfterRefresh(Success As Boolean)

        If Success Then
                 Debug.Print "Success"
        Else
                 Debug.Print "Failed"
        End If
End Sub

查询完成后需要什么来触发子例程？我尝试在 .Refresh 之后和 End With 之后调用子例程，但都不起作用。

谢谢。

Answer 1

请确保您的 QueryTable_AfterRefresh 子项不是放置在模块中，而是放置在工作表/工作簿下，与此处的方式相同:https://stackoverflow.com/a/14646261/1953175此外，您不需要调用事件，从代码中删除 .AfterRefresh (Success) 。