（表格）vba如何打开一个文件夹下所有xls文件

一、来源： http://zhidao.baidu.com/question/96911702.html

二、问题：vba如何打开一个文件夹下所有xls文件

比如有十个xls文件，要依次打开。

文件夹要指定路径c:/a

简单几行代码就行，谢谢 

三、最佳答案

注意 c:/a 目录下的文件不要太多,免得死机 

Sub 打开excel表格() 

Dim myPath$, myFile$, AK As Workbook

Application.ScreenUpdating = False '冻结屏幕，以防屏幕抖动 

myPath = "c:/a/" '把文件路径定义给变量 

myFile = Dir(myPath & "*.xls") '依次找寻指定路径中的*.xls文件 

Do While myFile <> "" '当指定路径中有文件时进行循环 

If myFile <> ThisWorkbook.Name Then 

Set AK = Workbooks.Open(myPath & myFile) '打开符合要求的文件 

End If 

myFile = Dir '找寻下一个*.xls文件 

Loop 

Application.ScreenUpdating = True '冻结屏幕,此类语句一般成对使用 

End Sub