本實(shí)例使用VB語(yǔ)言和OLEDB類連接SQL Server 2005數(shù)據(jù)庫(kù)。

在sheet1上右鍵→查看代碼，加入如下代碼：

Sub admin()Dim conn, xRsSet conn = CreateObject("ADODB.Connection")conn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;PWD=abc;Initial Catalog=GoodLuck;Data Source=localhost"Set xRs = CreateObject("ADODB.RecordSet")sSql = " Select * from View_S_E"xRs.Open sSql, conn, 1, 3Sheet1.Cells.ClearSheet1.Range("A1").CopyFromRecordset xRsxRs.Closeconn.CloseSet xRs = NothingSet conn = Nothing End Sub

總結(jié)

以上是生活随笔為你收集整理的用Excel VBA连接SQL Server数据库并将表中的数据显示到Excel中的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問(wèn)題。

如果覺(jué)得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。