VBA与数据库——简化程序编写-拼接表格

假如有2个表格，表格1有字段A,B，表格2有字段A,C，以表格1为基础，现在要得到一个表格，有字段A,B,C。

需要实现这个功能，在VBA里首先想到的应该还是字典，首先将表格2中的字段对应关系记录到字典，然后在表格1基础上增加一列，遍历表格1，利用字典将字段A对应的字段C读取出来即可。

代码不会很复杂，不演示了，来看看ADO如何实现：

代码语言：javascript复制

Sub ADO拼接表格()
    Dim AdoConn As Object
    Set AdoConn = VBA.CreateObject("ADODB.Connection")
    
    '打开数据库
    AdoConn.Open "Provider =Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0;HDR=YES"";"
    Range("G2").CopyFromRecordset AdoConn.Execute("select a.姓名,b.部门,a.数据 from [Sheet1$A1:B6] a left join [Sheet1$D1:E5] b on a.姓名=b.姓名", , 1)

    AdoConn.Close
    Set AdoConn = Nothing
End Sub

和前面一样，仍然是一句代码就解决了。

代码语言：javascript复制

select a.姓名,b.部门,a.数据 from [Sheet1$A1:B6] a left join [Sheet1$D1:E5] b on a.姓名=b.姓名

[Sheet1A1:B6] a这种形式的用法就是相当于把表[Sheet1A1:B6]命名为a。

与使用字典相比，代码得到了较大的简化，也易于修改。

vba ado 遍历 表格 基础

0 人点赞