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")'调用subCall 文件NextSet excel_Sheet = NothingSet excel_Book = NothingEnd Sub