本實例使用VB語言和OLEDB類連接SQL Server 2005數據庫。

在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

總結

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

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。