刷新Excel连接

Question

我尝试遍历Excel工作簿中的每个连接，并逐个刷新每个连接，并捕获每次刷新之间的任何错误消息。然而，当我尝试运行代码时，我收到了一个'Type-Mismatch‘错误：

Private Sub btnRefreshConns_Click()
Dim cn As WorkbookConnection
Set cn = ActiveWorkbook.Connections.Count

For Each cn In Workbook.Connections

cn.Refresh

Next

End Sub

有人能帮帮我吗？

Answer 1

Private Sub btnRefreshConns_Click()
Dim cn As WorkbookConnection
'Remove this line --> Set cn = ActiveWorkbook.Connections.Count

For Each cn In ActiveWorkbook.Connections

    cn.Refresh

Next

End Sub

应该做这件事。使用For Each，您不需要跟踪计数。

(注意:撇号'在VB中引入注释，因此您可以尝试注释掉有问题的行，看看会发生什么。)

编辑：循环需要引用ActiveWorkbook。Workbook是一种类型，即ActiveWorkbook是什么类型的东西。ActiveWorkbook是一个对象，一个你可以操纵的实际的东西。