论坛 › ExcelVBA开发 › 拆分工作簿

hessen 发表于 2021-10-19 17:00:54

拆分工作簿

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

Sub SplitSheet()
Dim mybook As Workbook
Dim i As Integer
Set mybook = ActiveWorkbook
    For i = 1 To mybook.Worksheets.Count
      mybook.Worksheets(i).Copy
      ActiveWorkbook.SaveAs Filename:="D:\GC\" & mybook.Worksheets(i).Name & ".xlsx"
      ActiveWindow.Close
    Next i
End Sub

查看完整版本: 拆分工作簿