vba - 刷新 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 是一个对象，一个您可以操作的实际事物。