作用：将指定路径的数据抓过来，

ADO如何连接外部数据源

开始前需要在VBA界面 -- 工具 -- 引用
勾选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

'连接某个路径下的表，HDR的意思是是否有表头'
'YES是抓取过来时不要表头'
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$].姓名"

'sql中执行delete语句时就直接 conn.Execute执行即可'
Range("a2").CopyFromRecordset conn.Execute(sql)

conn.Close
End Sub