注意 c:a 目录下的文件不要太多,免得死机 Sub 打开excel表格() Dim myPath$, myFile$, AK As WorkbookApplication.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
VB中查找制动文件夹下得全部文件需要使用DIr函数，在第一次使用函数时，它返回的是满足条件的低于个文件名，然后不断重复使用就可以返回指定文件下下的全部文件
相关参考代码如下：
Dim FName$
DIm Path$
Path$=”d:*.xls”
Fname$=dir$(path$)
Do While fanme$<>””
Print fname$
Fanme$=dir$()
Loop
这里假设文件夹是D:
