sub 遍历本工作簿路径下所有EXCEL文件()
dim filename as string
filename=dir(thisworkbook.path & "\*.xls")
do while filename<> thisworkbook.name then
msgbox filename
filename=dir
loop
end sub
Sub 遍历当前工作簿路径下所有EXCEL文件()
Dim filename As String
filename = Dir(ActiveWorkbook.Path & "\*.xls")
Do While filename <> ActiveWorkbook.Name
MsgBox filename
filename = Dir
Loop
End Sub
Sub 遍历当前工作簿路径下所有EXCEL文件()
Dim filename As String
filename = Dir(ActiveWorkbook.Path & "\*.xls")
Do While filename <> ActiveWorkbook.Name
MsgBox filename
filename = Dir
Loop
End Sub