刷新Excel连接

Question

我尝试遍历Excel工作簿中的每个连接并单独刷新每个连接并捕获每次刷新之间的任何错误消息。但是，我收到的类型不匹配＆＃39;尝试运行代码时出错：

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是一个对象，一个你可以操纵的实际东西。