用vba如何查找文件夹下的所有excel文件

问题描述

精选答案

注意 c:

a 目录下的文件不要太多,免得死机 Sub 打开excel表格() Dim myPath$, myFile$, AK As WorkbookApplication.ScreenUpdating = False '冻结屏幕，以防屏幕抖动 myPath = "c:

" '把文件路径定义给变量 myFile = Dir(myPath & "*.xls") '依次找寻指定路径中的*.xls文件 Do While myFile"" '当指定路径中有文件时进行循环 If myFileThisWorkbook.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: