刷新 Excel 连接

Question

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

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