X学习ADO中遇到的疑问

EXCEL渣渣

各位老师，你们好。
      我在学习ado时遇到以下疑问，请帮忙解惑，谢谢。
      假设我想联合查询汇总同一文件夹下，具有相同格式的工作簿（数量不确定），sql语句应该如何写，
有老师说用DIR来遍历工作簿名称，循环。有老师又说，用ado不宜用循环。
那么我应该如何写sql语句
      第二个问题，recordset，是否可以不断写入，就好像数组那样。
请老师帮我解答，谢谢。

limonet

数量在50以内，用UNION ALL吧。

jiangxiaoyun

Sub 多工作簿多工作表提取数据() '每个工作簿都有多个格式相同的工作表”
    tt = Timer
    Dim cnn As Object
    Dim SQL$, MyPath$, MyFile$, wk$, a, i%, t$, m%, n%
    Application.ScreenUpdating = False
    ActiveSheet.UsedRange.Offset(1).ClearContents
    MyPath = ThisWorkbook.Path & "\"
    MyFile = Dir(MyPath & "*.xlsx")
    Set cnn = CreateObject("adodb.connection")
    Do While MyFile <> ""
        If MyFile <> ThisWorkbook.Name Then
            n = n + 1
            If n = 1 Then cnn.Open "Provider = Microsoft.ace.Oledb.12.0;Extended Properties =Excel 12.0;Data Source =" & MyPath & MyFile
            Set rs = cnn.OpenSchema(20)
            wk = Replace(Replace(MyFile, ".xlsx", ""), "数据", "")
            Do Until rs.EOF
                If rs.Fields("TABLE_TYPE") = "TABLE" Then
                    s = Replace(rs("TABLE_NAME").Value, "'", "")
                    If Right(s, 1) = "$" Then
                        cname = Replace(s, "$", "")
                        SQL = "select '" & wk & "' , '" & cname & "',* from [" & s & "a1:k] where instr(科目名称,'小计')=0 order by 1,2,3"
                        lr = Cells(Rows.Count, 1).End(xlUp).Row + 1
                        Range("a" & lr).CopyFromRecordset cnn.Execute(SQL)
                    End If
                End If
                rs.MoveNext
                Loop
            End If
            MyFile = Dir()
        Loop
        If Len(SQL) Then [a1024768].End(xlUp).Offset(1).CopyFromRecordset cnn.Execute(SQL)
        cnn.Close
        Set cnn = Nothing
        Application.ScreenUpdating = True
        MsgBox Timer - tt
    End Sub

EXCEL渣渣

limonet 发表于 2023-3-16 20:41
数量在50以内，用UNION ALL吧。

50个也太多了吧，sql语句需要很长？
能否简单举例说明，谢谢

fzxba

这是一个例子

WANT-T

这种需求，首先考虑的是将这些乱七八糟的数据收纳入库，然后再进行其它操作，至于入库时是一个一个入还是多个多个入，看个人能力和习惯，方法很多！

EXCEL渣渣

fzxba 发表于 2023-3-17 07:48
这是一个例子

谢谢老师的指导

EXCEL渣渣

WANT-T 发表于 2023-3-17 09:14
这种需求，首先考虑的是将这些乱七八糟的数据收纳入库，然后再进行其它操作，至于入库时是一个一个入还是多 ...

数据表格和数据格式都已经做好了要求

EXCEL渣渣

jiangxiaoyun 发表于 2023-3-16 21:04
Sub 多工作簿多工作表提取数据() '每个工作簿都有多个格式相同的工作表”
    tt = Timer
    Dim cnn As ...

谢谢老师的指导