如何调取相同格式的多个数据表中的数据

神秘风暴

各位老师好，在多个工作薄中有多个相同格式的sheet表，调取单独一个sheet表中的数据会调用，请问如何同时调取多个sheet表中的数据呢？

详见附件。
请问该如何修改：

    If StrPtr(Str工令号) = 0 Then Exit Sub
    Sht.Range("A3:IV1048576").ClearContents
    myPath = ThisWorkbook.Path & "\数据源\"
    myfile = Dir(myPath & "\*.xlsx")
    Do While myfile > " "
      If StrPtr(Str工令号) <> 0 Then
         If Val(Application.Version * 1) < 12 Then
            Str_coon = "Provider=Microsoft.JET.OLEDB.4.0;Extended Properties='Excel 8.0;HDR=Yes;imex=1';Data Source =" & myPath & myfile
        Else
            Str_coon = "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties='Excel 12.0;HDR=Yes;imex=1';Data Source =" & myPath & myfile
        End If
            StrSQL = "SELECT 工令号,项目名称,图号,子项号,报检日期 FROM [一段$] WHERE TRIM(工令号) LIKE '%" & Trim(Str工令号) & "%'"
            arr = GET_SQLCoon(StrSQL, Str_coon, False)
            IROW = Sht.Range("A1048576").End(xlUp).Row + 1
            Sht.Range("A3").Resize(UBound(arr, 1) + 1, UBound(arr, 2) + 1) = arr
         End If
    myfile = Dir
Loop

感谢各位老师的帮助，我想要实现的是不要全部汇总，因为数据实在太多了。像我第一次附件中点击按钮，弹出对话框，输入想要查找的内容（包含关键字），然后再实现查找汇总。另外：一个工作簿中有好多表，名称不是都包含“段”也有包含“室”，包含“班”等，但唯一相同的是“分类”和“标记说明”两张表用不到。可不可以用另一种思路：除了”分类“和”标记说明”这两张表之外，其他的表都去查找，但不知道怎么弄，请老师帮忙。万分感谢！！

limonet

建议：union all

神秘风暴

limonet 发表于 2024-3-5 18:31
建议：union all

不会呀

fzxba

测试.zip (164.13 KB, 下载次数: 10)

2024-3-5 19:48 上传

点击文件名下载附件

神秘风暴

fzxba 发表于 2024-3-5 19:48

老师好，我测试下，提示：外部表不是预期的格式。是WPS的原因吗？

fzxba

神秘风暴 发表于 2024-3-6 08:18
老师好，我测试下，提示：外部表不是预期的格式。是WPS的原因吗？

…………是…………

补，若数据源为 .xls 低版本格式，我的可正常运行

shiruiqiang

wps建议宏模块

神秘风暴

fzxba 发表于 2024-3-6 08:30
…………是…………

补，若数据源为 .xls 低版本格式，我的可正常运行

改成.xls的形式可以形成汇总了，但我想要实现的是不要全部汇总。像我第一次附件中点击按钮，弹出对话框，输入想要查找的内容（包含关键字），然后再实现查找汇总。另外：一个工作簿中有好多表，名称不是都包含“段”也有包含“室”，包含“班”等，但唯一相同的是“分类”和“标记说明”两张表用不到。可不可以用另一种思路：除了”分类“和”标记说明”这两张表之外，其他的表都去查找，但不知道怎么弄，请老师帮忙。

fzxba

神秘风暴 发表于 2024-3-6 09:03
改成.xls的形式可以形成汇总了，但我想要实现的是不要全部汇总。像我第一次附件中点击按钮，弹出对话框， ...

调取数据.zip (149.06 KB, 下载次数: 3)

2024-3-6 15:01 上传

点击文件名下载附件