File = Dir(Path & "*.csv") '一次找寻路径中的excel文件,这里到底是.xlsx还是.xls,可以自己改 Do While File <> "" '当指定路径中由文件时进行循环 Set WB =Workbooks.Open(Path & File) '打开符合要求的文件 Call test1 '调用你的另一端对每个excel文件进行具体操作的宏,也可以直接写到这个宏中 File...
File = Dir(Path & "*.csv") '一次找寻路径中的excel文件,这里到底是.xlsx还是.xls,可以自己改 Do While File <> "" '当指定路径中由文件时进行循环 Set WB =Workbooks.Open(Path & File) '打开符合要求的文件 Call test1 '调用你的另一端对每个excel文件进行具体操作的宏,也可以直接写到这个宏中 File...