遍历指定文件夹，逐个打开每一个excel文件，进行操作

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