Sub openExcel()
Dim myPath$, myFile$, WB As Workbook
Dim icount%
icount = 0
Application.ScreenUpdating = False '冻结屏幕,以防屏幕抖动
myPath = "E:\" '把文件路径定义给变量
myFile = Dir(myPath & "*.xls") '依次找寻指定路径中的*.xls文件
Do While myFile <> "" '当指定路径中有文件时进行循环
Set WB = Workbooks.Open(myPath & myFile) '打开符合要求的文件
Call 宏2 '调出对文件进行相关操作的宏
myFile = Dir '找寻下一个*.xls文件
icount = icount + 1
Loop
Application.ScreenUpdating = True '冻结屏幕,此类语句一般成对使用
MsgBox "一共打开" & icount & "个文件"
End Sub
遍历指定文件夹,逐个打开每一个excel文件,进行操作
最新推荐文章于 2024-02-21 11:53:03 发布