Microsoft Excel 数据连接 - 通过 VBA 更改连接字符串

使用VBA（Visual Basic for Applications）可以轻松地更改Microsoft Excel中的数据连接字符串。数据连接字符串是用于连接到外部数据源的一组参数，例如数据库或Web服务。通过更改连接字符串，您可以更改数据源或修改连接的详细信息，例如用户名和密码。下面将介绍如何使用VBA更改Excel数据连接的连接字符串，并提供一个案例代码来帮助您理解。

Sub ChangeConnectionString()
    Dim conn As WorkbookConnection
    Dim oldConnString As String
    Dim newConnString As String
    
    ' 获取第一个连接
    Set conn = ThisWorkbook.Connections(1)
    
    ' 存储旧的连接字符串
    oldConnString = conn.OLEDBConnection.Connection
    
    ' 创建新的连接字符串
    newConnString = "Provider=SQLOLEDB;Data Source=新的数据库服务器;Initial Catalog=新的数据库名称;User ID=新的用户名;Password=新的密码;"
    
    ' 更改连接字符串
    conn.OLEDBConnection.Connection = newConnString
    
    ' 刷新连接
    conn.Refresh
    
    ' 显示更改前后的连接字符串
    MsgBox "旧的连接字符串: " & oldConnString & vbCrLf & "新的连接字符串: " & conn.OLEDBConnection.Connection
End Sub

Sub ChangeConnectionString()
    Dim conn As WorkbookConnection
    Dim oldConnString As String
    Dim newConnString As String
    
    ' 获取名为"Data"的工作表
    Set ws = ThisWorkbook.Sheets("Data")
    
    ' 获取数据连接
    Set conn = ws.QueryTables(1).Connection
    
    ' 存储旧的连接字符串
    oldConnString = conn.Connection
    
    ' 创建新的连接字符串
    newConnString = "OLEDB;Provider=SQLOLEDB;Data Source=新的数据库服务器;Initial Catalog=新的数据库名称;User ID=新的用户名;Password=新的密码;"
    
    ' 更改连接字符串
    conn.Connection = newConnString
    
    ' 刷新连接
    ws.QueryTables(1).Refresh
    
    ' 显示更改前后的连接字符串
    MsgBox "旧的连接字符串: " & oldConnString & vbCrLf & "新的连接字符串: " & conn.Connection
End Sub