多薄一表合并一薄多表

chanhuiwuzui

路径下有多个工作薄，每个工作薄有一个工作表，
想使用vba生成一个工作薄多个工作表。
主要代码如下

1. strFileName = Dir(strPath & "*.xls")
   
2.     Do Until strFileName = ""
   
3.         If strFileName <> ThisWorkbook.Name Then
   
4.            Set wkb = GetObject(strPath & strFileName)
   
5.            wkb.Sheets(1).Copy after:=Worksheets(Worksheets.Count)
   
6.            ActiveSheet.Name = Left(wkb.Name, InStrRev(wkb.Name, ".") - 1)
   
7.            wkb.Close False
   
8.         End If
   
9.         strFileName = Dir
   
10.     Loop
    
11.     Set wkb = Nothing

复制代码

问题出现在，没有按照顺序进行工作表的生成，dir 遍历似乎是随机的。
想要按照指定顺序进行排序即(销售，出库，亏损，盈利)，工作表名称取工作薄名称即可

ykcbf1100

附件供参考。。。