Сохраняет все активные листы в разные файлы xls
Sub SaveSheets() | |
Dim s As Worksheet | |
Dim wb As Workbook | |
Set wb = ActiveWorkbook | |
For Each s In wb.Worksheets | |
s.Copy | |
ActiveWorkbook.SaveAs Filename:=wb.Path & "\" & s.Name, FileFormat:=xlExcel8 | |
Next | |
End Sub |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment