工作簿汇总，工作表汇总合并，多文件汇总合并 通用代码 支持多层子文件夹

opiona

wanggangya 发表于 2021-7-13 09:58
请问：汇总是遇到
  　
    RS.Open StrSQL, CN, 1, 3

截图 错误提示 才有可能解答!

ncq666

太棒了，谢谢大师！！！！

hollyrock

大神，现在碰到的情况是多个工作簿列格式固定，但是行格式和行数不一致的情况，无法确定取值的单元格位置，只能确定列位置，可以实现提取标题所在行的某列数据吗?

质将燃

想请教一下楼主　第二个压缩包的文件的几个位置　能否变成区域？

limonet

太好用了，非常感谢。

2985824601

马住！！！

乾呈似锦

Rem 获取文件清单
    FileArr = FileAllArr(ThisWorkbook.Path, "*.xls?", ThisWorkbook.Name, True, False)
    If FileArr(0) <> "" Then  '//如果文件清单 不是空白的
        ICOUNT = UBound(FileArr) + 1
        Rem 遍历每个分表文件
        For I = 0 To ICOUNT - 1
            Str_coon = "HDR=yes';Data Source =" & FileArr(I)     '//OFFICE2003，2007 通用
            Set WB = Workbooks.Open(FileArr(I))   '//打开工作簿  这里
            Rem 遍历工作表
            For Each SH In WB.Worksheets
                Rem 查询数据
                StrSQL = "SELECT '" & GetPathFromFileName(FileArr(I)) & "' AS 工作簿名"
                StrSQL = StrSQL & ",'" & SH.Name & "' AS 工作表名"
                StrSQL = StrSQL & StrBT
                StrSQL = StrSQL & " FROM [" & SH.Name & "$A" & SH1.Range("B1").Value & ":HZ]"
                SQLARR = GET_SQL_To_Arr(StrSQL, Str_coon, False)
                Rem 粘贴到汇总表中
                LASTROW = SH1.Range("A1048576").End(3).Row + 1
                SH1.Range("A" & LASTROW).Resize(UBound(SQLARR, 1) + 1, UBound(SQLARR, 2) + 1) = SQLARR
            Next
            WB.Close False  '//关闭打开的工作簿

lxx2121

先顶再用，菜鸟救星

mx60436

很强大的感觉

panshuying1973

工作簿汇总，工作表汇总合并，多文件汇总合并 通用代码 支持多层子文件夹
https://club.excelhome.net/thread-1409141-1-1.html
(出处: ExcelHome技术论坛)
真好啊