VBA—使用ADO連接外部Excel數(shù)據(jù)源

連接步驟：

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對數(shù)據(jù)進行操作

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文件夾?。?/p>

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