VBA代码 – 更改OLEDB连接

我正在Excel中创build一个button，根据在特定的Excel工作表上input的几个参数来更改连接string（到SQL Server）。 我遇到了这个链接Excelmacros来更改外部数据查询连接 – 例如，从一个数据库指向另一个

我总结以下，但它不工作

Sub GetConnections() Dim ConnectionString ConnectionString = "DRIVER=SQL Server;SERVER=.;UID=sa;PWD=123;APP=Microsoft Office 2013;WSID=MachineID;DATABASE=X" Dim w As Worksheet Dim cn As WorkbookConnection Dim OdbcCn As ODBCConnection For Each cn In ThisWorkbook.Connections Set OdbcCn = cn.ODBCConnection OdbcCn.SavePassword = True OdbcCn.Connection = ConnectionString Next MsgBox ("Done") End Sub 

当我运行上面的代码，我得到运行时错误（1004）：应用程序定义或对象定义的错误

debugging器强调这个“OdbcCn.Connection = ConnectionString”

您的帮助是高度赞赏，