用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
源数据
结果数据