怎么用循环打开多个按顺序取名的excel文档?
比如有多个文件Book1.xls,Book2.xls.....Book8.xls，我现在想在VBA中用一个循环打开,应该怎么办?
我只知道用普通的方法打开一个，如：Workbooks.Open Filename:= "D:\计算机\excel\Book1.xls "
[解决办法]
用文件查找,再用循环打开每个文件.with application.filesearch
.newsearch
.lookin=dirct '你的文件夹
.filename= "*.xls " '如是TXT就设成*.TXT
.searchsubfolders= true '是否查找子目录
.execute
if .execute= 0 then
for i=1 to .foundfiles.count
再写上你要打开的文件序号及进行操作的代码即可.
