Excel用VBA总按钮控制几个表

Question

Excel用VBA总按钮控制几个表

Answer 1

Sub copyall()
For i = 1 To 5 '数字改文件总数
Set excel_Book = Workbooks.Open("E:\excel\" & i &".xlsx") '址写作"E:\xxx\xxx\"保留英文双引号
Set excel_Sheet = excel_Book.Worksheets("Sheet1")
'调用sub
Call 文件
Next
Set excel_Sheet = Nothing
Set excel_Book = Nothing
End Sub