VBA—使用ADO连接外部Excel数据源

连接步骤：

1 在VBE界面中工具—引用

勾选MicrosoftActiveX Data Object x.x Librar

2 连接代码

Sub test()

Dim conn As New ADODB.Connection

conn.Open"Provider = Microsoft.ACE.OLEDB.12.0;DataSource=D:\data\data.xlsx;extended properties=""excel12.0;HDR=YES"""

‘这里使用SQL对数据进行操作

conn.Close

End

Sub

'使用前请确认是否勾选了Microsoft ActiveX Data Object x.x Library！！！

Sub test()

Dim conn As New ADODB.Connection

Dim sql As String

'注意这个链接文件的路径！！！需要把edata文件放入d:\data文件夹！！

Range("a2:z1000").ClearContents

conn.Open "Provider = Microsoft.ACE.OLEDB.12.0;Data Source=D:\data\Edata.xlsx;extended properties=""excel 12.0;HDR=YES"""

sql = "select a.姓名,年龄,性别,月薪 from (select * from [data$] union all select * from [data2$])a left join [data3$] on a.姓名=[data3$].姓名"

Range("a2").CopyFromRecordset conn.Execute(sql)

conn.Close

End Sub