使用ActiveWorkbook.Connections（「連接」）。 _ OLEDBConnection

Question

這使得下標超出範圍。有人知道爲什麼

（「連線」僅僅是我放在那裏，所以我沒有在我自己的連接進入的東西）

Answer 1

我不相信下劃線應該在那裏。

嘗試列出連接的名稱，以確保您所提供它正是

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

如果只有一個連接，你可以使用Connections(1)，但最好是使用的名稱。