我們在使用excel程式設計時，很多時候都需要使用資料庫。
那麼如何連接資料庫然後從資料庫讀取資料呢？
VBA 連線SQL SERVER 資料庫執行個體:
Dim strConn As String, strSQL As String Dim conn As ADODB.Connection Dim ds As ADODB.Recordset Dim col As Integer '連接資料庫的字串strConn = "Provider=SQLOLEDB.1;Persist Security Info=True;UserstrConn=[user ];Password=[password];Initial Catalog=[database];Data Source=[資料庫IP位址或資料庫伺服器名稱];Connect Timeout=720; " '查詢語句，如果sql語句很長可以用strSQL=strSQL+來連接分成多段的語句，如果語句很短可以只寫在一行上。 strSQL = "select * from Hy_KPI_Shop_Dept_WeekRpt " strSQL = strSQL+"where sdate='2014-01-01' order by sdate,shopid " Set conn = New ADODB.Connection Set ds = New ADODB.Recordset '開啟資料庫連接資料庫連接資料庫. '該句和資料庫連接字串處的Connect Timeout=720，表示說如果語句運行時間很長，這兩句可以延長vba的等待時間，沒有這兩句，vba往往會報查詢超時。 conn.CommandTimeout = 720 With ds '根據查詢語句取得資料.Open strSQL, conn '自動控制加入所有列標題For col = 0 To ds.Fields.Count - 1 '請注意Offset(0, col)中的參數一定要正確，該句表示標題將會寫在第一行，從A1單元格開始，如果不想寫入標題行，可將下面這句註解掉。 Worksheets("門市各課程KPI週報").Range("A1").Offset(0, col).Value = ds.Fields(col).Name Next '加入所有行數據，該句表示查詢結果將會寫在第一行，從A1單元格開始，但由於標題行寫在第一行了，所以實際這一行從標題下的一行寫入。 Worksheets("sheet1").Range("A1").Offset(1, 0).CopyFromRecordset ds End With '關閉資料庫連接和清空資源Set ds = Nothing conn.Close Set conn = Nothing