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

源数据

结果数据