Скачать или смотреть VBA to Save Each Worksheet as a New Workbook, How to Save one Workbook into Multiple sheets,

VBA Code:
just copy and paste
"
Sub SaveWorksheetsAsIndividualFiles()
Dim ws As Worksheet
Dim NewWorkbook As Workbook
Dim FilePath As String
Dim wsName As String

' Define the path where the new workbooks will be saved
FilePath = "C:\Path\To\Save\Workbooks\" ' Change this to your desired path

' Loop through each worksheet in the current workbook
For Each ws In ThisWorkbook.Worksheets
' Get the worksheet's name
wsName = ws.Name

' Create a new workbook and copy the worksheet to it
Set NewWorkbook = Workbooks.Add
ws.Copy Before:=NewWorkbook.Sheets(1)

' Delete the default sheet in the new workbook
Application.DisplayAlerts = False
NewWorkbook.Sheets(2).Delete
Application.DisplayAlerts = True

' Save the new workbook with the same name as the worksheet
NewWorkbook.SaveAs FilePath & wsName
NewWorkbook.Close SaveChanges:=False
Next ws
End Sub "


#VBAProgramming
#ExcelTips
#Automation
#ExcelVBA
#WorkbookManagement
#CodeTutorial
#ProductivityHacks
#ExcelTricks
#DataManagement
#OfficeAutomation