将工作簿中的每一个工作表存为一个独立的excel

1. Sub SplitSheet()
   
2. Dim mybook As Workbook
   
3. Dim i As Integer
   
4. Set mybook = ActiveWorkbook
   
5.     For i = 1 To mybook.Worksheets.Count
   
6.         mybook.Worksheets(i).Copy
   
7.         ActiveWorkbook.SaveAs Filename:="D:\GC" & mybook.Worksheets(i).Name & ".xlsx"
   
8.         ActiveWindow.Close
   
9.     Next i
   
10. End Sub

复制代码

将工作簿中的每一个工作表存为一个独立的excel

1. Sub SplitSheet()
   
2. Dim mybook As Workbook
   
3. Dim i As Integer
   
4. Set mybook = ActiveWorkbook
   
5.     For i = 1 To mybook.Worksheets.Count
   
6.         mybook.Worksheets(i).Copy
   
7.         ActiveWorkbook.SaveAs Filename:="D:\GC" & mybook.Worksheets(i).Name & ".xlsx"
   
8.         ActiveWindow.Close
   
9.     Next i
   
10. End Sub

复制代码