哪位大神帮忙写个VBA，多工作表查询

hill362

同一个文件夹下，有4个EXCEL工作簿,根据A表上B列的商品编码去查询B表和C表，把查询的结果按D表的数据格式排列出来，谢谢了，刚初学中

凌空一羽

Sub lkyy()
Dim MyPath As String, MyFile, Sql, SqlA
Application.ScreenUpdating = False
Range("a1").CurrentRegion.ClearContents
On Error Resume Next
MyPath = ThisWorkbook.Path & "\"
MyFile = Dir(MyPath & "*.xlsx")
Set cnn = CreateObject("ADODB.Connection")
cnn.Open "provider=microsoft.ace.oledb.12.0;extended properties='excel 12.0;hdr=yes';data source=" & MyPath & MyFile
Do While MyFile <> ""
    biao = Replace(MyFile, ".xlsx", "")
    If biao = "A" Then
        SqlA = "select 商品编号,'" & biao & "' as 表 from [" & MyPath & MyFile & "].[" & biao & "$]"
    Else
        Sql = Sql & " union all select 商品编码,'" & biao & "' as 表 from [" & MyPath & MyFile & "].[" & biao & "$]"
    End If
    MyFile = Dir()
Loop
Sql = Right(Sql, Len(Sql) - 11)
ss = "select a.商品编号 from (" & SqlA & ")a left join (" & Sql & ")b on a.商品编号=b.商品编码   where b.商品编码 is  null"
Range("i5:i20").ClearContents
Range("i5").CopyFromRecordset cnn.Execute(ss)
cnn.Close
Set cnn = Nothing
Application.ScreenUpdating = True
End Sub

hill362

凌空一羽 发表于 2018-8-9 15:37
Sub lkyy()
Dim MyPath As String, MyFile, Sql, SqlA
Application.ScreenUpdating = False

不行，还是查询不出来，是不是哪个代码有错误

凌空一羽

hill362 发表于 2018-8-9 18:58
不行，还是查询不出来，是不是哪个代码有错误

代码没错

hill362

凌空一羽 发表于 2018-8-9 19:10
代码没错

不好意思，估计是意思表达有点问题，在“表格B上查询到的商品编码”和“表格C上查询的商品编码”查询显示不出来

hill362

还要帮忙提取在表格B上和表格C上的数据到D表格上

凌空一羽

hill362 发表于 2018-8-9 19:33
不好意思，估计是意思表达有点问题，在“表格B上查询到的商品编码”和“表格C上查询的商品编码”查询显示 ...

表样.zip (38.97 KB, 下载次数: 15)

2018-8-9 19:39 上传

点击文件名下载附件

hill362

凌空一羽 发表于 2018-8-9 19:39

可以了，多谢了，我也可以研究一下代码，多谢了

hill362

hill362 发表于 2018-8-9 19:50
可以了，多谢了，我也可以研究一下代码，多谢了

还想请教一下，如果我在D表上“表格B上的商品编码”这一列中，只显示B表和A表都有的商品编码，没有的商品编码不显示上去。同样的，在：“表格C上的商品编码”这一列中，只显示C表和A表都有的商品编码，那代码应当怎样写，谢谢了

hill362

有没有哪位帮忙写个代码，主要是D表上“表格B上的商品编码”这一列中，只显示B表和A表都有的商品编码，没有的商品编码不显示上去。同样的，在：“表格C上的商品编码”这一列中，只显示C表和A表都有的商品编码，谢谢了