下面的代码用于一般情况下用Excel宏读取数据库的表字段

Public Sub getdata()
    Dim cnn As New ADODB.Connection, sh As Worksheet
    Dim rs As New ADODB.Recordset
    Dim cnnStr As String, SQL As String

    cnnStr = "Provider=SQLOLEDB;Initial Catalog=BI" & ";User ID=sa" & ";Password=Aa123456" & ";Data Source=172.16.0.73"
    cnn.ConnectionString = cnnStr
    cnn.Open
    SQL = "SELECT * from dbo.tt"

     MsgBox "执行查询数据开始： " & SQL

    Set rs = cnn.Execute(SQL)

    For col = 0 To rs.Fields.Count - 1
        Sheets("Sheet2").Range("A1").Offset(0, col).Value = rs.Fields(col).Name
    Next
    Sheets("Sheet2").Range("A1").Offset(1, 0).CopyFromRecordset rs
    rs.Close
    MsgBox "执行查询结束！"
    Set rs = Nothing
    cnn.Close
    Set cnn = Nothing
End Sub

对代码的说明：
Data Source：数据库IP
Catalog：数据库名
User ID：用户名
Password：数据库密码
SQL ：SQL语句，通常是直接读取某个表
执行过程会有两个弹出窗口，点击确认即可。
最后数据会写入当前Excel文件的Sheet2中

要执行上面的代码还需要给Excel设置一下：
大概是Library的，记不清了，后面想起来再更新此文。