如何使用VBA在Excel中浏览连接字符串的数据源

Sub BrowseConnectionString()
    Dim connString As String
    Dim conn As Object
    Dim rs As Object
    Dim sql As String
    
    ' 设置连接字符串，替换为你自己的连接字符串
    connString = "Provider=SQLOLEDB;Data Source=ServerName;Initial Catalog=DatabaseName;User ID=UserName;Password=Password;"
    
    ' 创建连接对象
    Set conn = CreateObject("ADODB.Connection")
    
    ' 打开连接
    conn.Open connString
    
    ' 创建记录集对象
    Set rs = CreateObject("ADODB.Recordset")
    
    ' 设置要执行的SQL语句，这里以查询所有表的示例
    sql = "SELECT * FROM INFORMATION_SCHEMA.TABLES"
    
    ' 执行SQL语句，并将结果存储到记录集中
    rs.Open sql, conn
    
    ' 检查是否有数据
    If Not rs.EOF Then
        ' 遍历记录集中的数据，并在Excel中输出
        For i = 1 To rs.Fields.Count
            Cells(1, i).Value = rs.Fields(i - 1).Name
        Next i
        
        row = 2
        Do Until rs.EOF
            For i = 1 To rs.Fields.Count
                Cells(row, i).Value = rs.Fields(i - 1).Value
            Next i
            rs.MoveNext
            row = row + 1
        Loop
    Else
        MsgBox "No data found."
    End If
    
    ' 关闭记录集和连接
    rs.Close
    conn.Close
    
    ' 释放对象的内存
    Set rs = Nothing
    Set conn = Nothing
End Sub