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

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

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