VBA Excel實踐如何系列（二） excel vba如何使用數據庫

用Excel文件作爲數據庫

首先，要引用一些微軟提供的數據庫控件

第二，寫代碼

1，打開數據文件pbxtext.xlsx

2，定義ADODB對象

3，處理ADODB對象

4，執行SQL語句

5，顯示SQL結果到新的sheet

代碼如下： 

Sub sqltest()
    Dim Spath As String
    Spath = ThisWorkbook.Path & "\pbxtest.xlsx"
    Set adConn = New ADODB.Connection
    '鏈接excel數據庫，源數據
    adConn.Open "provider=Microsoft.ACE.OLEDB.12.0;extended properties=excel 12.0;Extended Properties='Excel 8.0;HDR=Yes;IMEX=1';data source=" & Spath & ""
    Set rs = adConn.Execute("Select 編號,測試環境,測試項目 From [sheet1$a1:j35] ")
    '數據存儲的目標sheet
    sht_name = "sheet3"
    Set sht = ThisWorkbook.Worksheets(sht_name)
    '數據庫字段
    For i = 1 To rs.Fields.Count Step 1
        sht.Range("A1").Offset(0, i - 1) = rs.Fields(i - 1).Name '字段序號從0開始
    Next i
    '拷貝查找的數據到目標sheet
    sht.Range("A2").CopyFromRecordset rs
    sht.Cells.EntireColumn.AutoFit
End Sub

源數據

結果數據