VBA 时间顺序排列 表名？？？

VBA成长中

提取文件夹中文件名后，文件名按时间顺序排列到表格A列中？？？
即 后每新建一个表格，其表名就自动插到A列最后一表名下。
请教大侠 VBA 代码。 THANK YOU！！{:soso_e176:}

qy1219no2

1. Private Sub CommandButton1_Click()
   
2.     cFile = ThisWorkbook.Path & "\报价表\*.xl*"
   
3.     myFile = Dir(cFile)
   
4.     Do While myFile <> ""
   
5.         cMX = Split(myFile, ".")(0)
   
6.         If cMX <> "管理" And WorksheetFunction.CountIf([a:a], cMX) = 0 Then _
   
7.             Range("a" & [a65536].End(xlUp).Row + 1) = cMX
   
8.         myFile = Dir
   
9.     Loop
   
10. End Sub

复制代码

VBA成长中

qy1219no2 发表于 2013-11-18 13:27

通过测试，太谢谢啦，困扰好几天的疑惑终于有答案啦！接下来还需要好好研究下代码！ 再次感谢{:soso_e163:}{:soso_e176:}