/saveAllSheetstoFiles.vba
Created Jul 13, 2017
Сохраняет все активные листы в разные файлы 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