更改连接字符串VBA

Question

我在另一个答案中找到了这个

Sub UpdateQueryConnectionString(ConnectionString As String)
  Dim cn As WorkbookConnection
  Dim oledbCn As OLEDBConnection
  Set cn = ThisWorkbook.Connections("database")
  Set oledbCn = cn.OLEDBConnection
  oledbCn.Connection = ConnectionString
End Sub

我似乎在Set oledbCn = cn.OLEDBConnection上收到错误 运行时错误1004

我可以像这样输出我当前的连接字符串

MsgBox ThisWorkbook.Connections("database").ODBCConnection.Connection

但尝试分配它给了我相同的运行时错误1004

ThisWorkbook.Connections("ID").ODBCConnection.Connection = "anything"

我确信有一种简单的方法可以简单地更改连接字符串......

注意我使用连接向导创建了这个连接向我的计算机上的另一个工作簿连接类型是数据库查询。我正在使用Excel 2013，也许这是Excel 2013中的一个小故障......

Answer 1

这是一个非常常见的问题。您需要做的是将ODBC;附加到连接字符串的开头，否则会给您一个运行时错误。