求助大神 如何多个excel合并到一个工作簿中 排序的问题

转身天晴

有多个不同名的工作薄，保存在一个文件夹中，我现在可以把它合并到一个工作表中，但有个问题解决不了，每个文件名都是一组数字代替的，我需要合并的时候能安装文件名（数字）大小排序，打印的时候能安装从小到大的顺序打印，之前是使用的会员功能实现的，不知道有没有可以替代的方法，求助各位大神们帮助下！万分感谢！

3190496160

如果最终目的就是为了批量打印的话，就没必要先汇总到一个工作表中来的，
或者先按顺序列出文件名称在一列中，然后代码按顺序打开文件打印，或者代码先获取文件名称到工作表的一列中并排序，然后再按顺序打开文件打印即可

转身天晴

谢谢你   表格比较多  单个打印不高效  所以要合并到一个工作表打印  需要安数字大小的顺序打印出来 被这步卡住了  操作不起来

3190496160

Sub 文件列表()
Dim arr()
ReDim arr(1 To 10000, 1 To 1)
lj = ThisWorkbook.Path & "\"
f = Dir(lj & "*.xls*")
Do While f <> ""
    If f <> ThisWorkbook.Name Then
        n = n + 1
        arr(n, 1) = Split(f, ".")(0)
    End If
f = Dir
Loop
For i = 1 To n
    For s = i + 1 To n
        If arr(i, 1) > arr(s, 1) Then
            k = arr(i, 1)
            arr(i, 1) = arr(s, 1)
            arr(s, 1) = k
        End If
    Next s
Next i
Range("a2:a1000") = Empty
[a2].Resize(n, 1) = arr
End Sub

3190496160

只是生成文件列表的代码
测试.rar (73.14 KB, 下载次数: 1)

2023-5-11 09:08 上传

点击文件名下载附件

转身天晴

上午工作有点忙  谢谢您  下午我试试

转身天晴

我刚刚试了下  生成序号的过程中会有错
我们是不是可以换个思路  在处理文件名的时候表格已经按照数字大小排列好了
是不是可以有一个代码实现自动读取文件夹里的数字按序打印就可以呢？ 这样是不是更简单点！？
不知道我这想法是否能行。。。。