使用ActiveWorkbook.Connections（“连接”）。 _ OLEDBConnection

Question

这使得下标超出范围。谁知道为什么？

（“连接”只是我放在那里的东西所以我没有进入我自己的连接中）

Answer 1

我不相信下划线应该存在。

尝试列出连接名称，以确保您提供完全

Dim conn As WorkbookConnection
For Each conn In ActiveWorkbook.Connections
    Debug.Print conn.Name
Next conn

如果只有一个连接，您可以使用Connections(1)，但最好使用该名称。