注意c:\a目录下的文件不要太多,免得死机
Sub打开excel表格()
DimmyPath$,myFile$,AKAsWorkbook
Application.ScreenUpdating=False'冻结屏幕，以防屏幕抖动
myPath="c:\a\"'把文件路径定义给变量
myFile=Dir(myPath&"*.xls")'依次找寻指定路径中的*.xls文件
DoWhilemyFile<>""'当指定路径中有文件时进行循环
IfmyFile<>ThisWorkbook.NameThen
SetAK=Workbooks.Open(myPath&myFile)'打开符合要求的文件
EndIf
myFile=Dir'找寻下一个*.xls文件
Loop
Application.ScreenUpdating=True'冻结屏幕,此类语句一般成对使用
EndSub
