Excel读取数据库表

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的，记不清了，后面想起来再更新此文。

版权声明：本文为博主原创文章，未经博主允许不得转载。

Excel读取数据库表

标签：excel