如何用vba遍历文件夹里面的子文件并且复制指定数据形成一张新的表格，ps：子文件的数据格式一直？

Question

子文件会每天生成一个新的，所以新的表格也会每天生成一个新的（子文件名字可能有点多，写1234也可以，文件夹日期命名20211102

Answer 1

尝试用下边代码试试：

Sub OpenAndClose()  

    Dim MyFile As String  

    Dim s As String  

    Dim count As Integer  

    MyFile = Dir(文件夹目录 & "*.xlsx")  

    '读入文件夹中的第一个.xlsx文件  

    count = count + 1       '记录文件的个数  

    s = s & count & "、" & MyFile  

    Do While MyFile <> ""  

        MyFile = Dir        '第二次读入的时候不用写参数  

        If MyFile = "" Then  

            Exit Do         '当MyFile为空的时候就说明已经遍历完了，这时退出Do，否则还要运行一遍  

        End If  

        count = count + 1  

        If count Mod 2 <> 1 Then  

            s = s & vbTab & count & "、" & MyFile  

        Else  

            s = s & vbCrLf & count & "、" & MyFile  

        End If  

    Loop  

    Debug.Print s  

End Sub 

另外，可以考虑用python试试

Answer 2

文件夹里面的子文件，并且复制指定数据，形成一张新的表格，可以把里面的文件先挑选出来以后上传一个表格。

Answer 3

那就自己试试的