急！如何将同一文件夹下的不同工作簿相同名称的工作表合并在一起

jjmysjg

liulang0808版有个帖子，按表名合并、按字段对齐。

INaga2018

jjmysjg 发表于 2024-7-11 16:47
liulang0808版有个帖子，按表名合并、按字段对齐。

能给下链接不，亲爱的

魏彦会

我找了个代码，是把相同工作簿的内容合并到一个工作表的工作簿中

limonet

关键字：openschema(20

limonet

Sub limonet()
    Dim Cn As Object, StrSQL$, CS$
    Set Cn = CreateObject("Adodb.Connection")
    CS = "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source="
    Path = ThisWorkbook.Path & "\"
    Filename = Dir(Path & "*.xlsx")
    Do While Filename <> ""
        Cn.Open CS & Path & Filename
        If Cn.OpenSchema(20, Array(Empty, Empty, "xx01$", Empty)).EOF = False Then
            StrSQL = StrSQL & " Union All Select * From [Excel 12.0;DataBase=" & Path & Filename & "].[xx01$]"
        End If
        Cn.Close
        Filename = Dir
    Loop
    Cn.Open CS & ThisWorkbook.FullName
    Set Rst = Cn.Execute(Mid(StrSQL, 12))
    For j = 0 To Rst.Fields.Count - 1
        Cells(1, j + 1) = Rst.Fields(j).Name
    Next j
    Range("A2").CopyFromRecordset Rst
End Sub

zpy2

limonet 发表于 2024-7-11 18:49
Sub limonet()
    Dim Cn As Object, StrSQL$, CS$
    Set Cn = CreateObject("Adodb.Connection")

Empty, Empty, "xx01$", Empty)).

这里是啥意思呢？

zpy2

https://club.excelhome.net/forum.php?mod=viewthread&tid=1675987&

limonet

zpy2 发表于 2024-7-12 09:30
Empty, Empty, "xx01$", Empty)).

这里是啥意思呢？

判断工作簿中有没有“xx01”的工作表。

INaga2018

limonet 发表于 2024-7-11 18:49
Sub limonet()
    Dim Cn As Object, StrSQL$, CS$
    Set Cn = CreateObject("Adodb.Connection")

多谢帮助，花花还没到时间补充，补充后奉上小花花

zpy2

limonet 发表于 2024-7-12 09:59
判断工作簿中有没有“xx01”的工作表。

那这些 array里面的参数哪里可以查到啊？