当前位置: 代码迷 >> VBA >> 如何用循环打开多个按顺序取名的excel文档
  详细解决方案

如何用循环打开多个按顺序取名的excel文档

热度:2141   发布时间:2013-02-26 00:00:00.0
怎么用循环打开多个按顺序取名的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
再写上你要打开的文件序号及进行操作的代码即可.
  相关解决方案