|
楼主 |
发表于 2024-3-30 22:15
|
显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
大哥~我是指同时读取2个档案里面数据
SHIPP.xls+scrap.xls
下面代码执行后他会覆盖到第1个读取变空白
试了很多方法...弄不出来
Sub limonet()
Dim Cn1 As Object, Cn2 As Object, StrSQL$
Set Cn1 = CreateObject("Adodb.Connection")
Cn1.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & ThisWorkbook.Path & "\SHIPP.xls"
Set Cn2 = CreateObject("Adodb.Connection")
Cn2.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & ThisWorkbook.Path & "\scrap.xls"
StrSQL = "Select 选项号码 As 选项号码, Last(料号) As 料号, Last(品名) As 品名 From [石中$E:K] Group By [选项号码]"
StrSQL1 = "Select 料号, 品名 From [Excel 12.0;DataBase=" & ThisWorkbook.FullName & "].[Sheet1$G:G]a Left Join (" & StrSQL & ")b On a.选项号码=b.选项号码"
StrSQL2 = "Select 料号, 品名 From [Excel 12.0;DataBase=" & ThisWorkbook.FullName & "].[Sheet1$G:G]a Left Join (" & StrSQL & ")b On a.选项号码=b.选项号码"
Range("H2").CopyFromRecordset Cn1.Execute(StrSQL1)
Range("H2").CopyFromRecordset Cn2.Execute(StrSQL2)
Cn1.Close
Cn2.Close
End Sub
|
|