Excel用vba按先后顺序打开一个文件夹中的N个excel工作簿,运行一段宏程序后,然后分别以001-00N的名字另存,怎么写?
可有固定的文件名和固定的文件夹路径,可用搜索文件指令然后显示在列表框内进行顺序打开文件处理
温馨提示:答案为网友推荐,仅供参考
第1个回答 2011-05-11
NewBook.SaveAs Filename:=fName
第2个回答 2011-05-10
打开文件以什么为顺序?这个没说明白。追问
时间的先后顺序,或者在文件夹里点右键其他常见的排序,文件大小等也可以,只要有序可循就可以,能实现吗?谢谢!
追答那就按默认的顺序打开就行了吧?
参考:
Dim wb As Workbook
Dim mywb As Workbook
Dim n&
With Application.FileSearch
.FileType = msoFileTypeExcelWorkbooks
.LookIn = "D:\mydocuments\"
If .FoundFiles.Count > 0 Then
n = 1
For Each wb In .FoundFiles
Set mywb = Workbooks.Open(wb)
'你的代码
mywb.SaveAs mywb.Path & "\" & Format(n, "000") & ".xls"
mywb.Close True
n = n + 1
Next
End If
End With