Здравствуйте. При запуске макроса (сохранение листов одной книги в отдельные файлы) выдает ошибку 400. Макросом неоднократно пользовалась раньше, все было Ок. Подскажите, пожалуйста, в чем может быть проблема? Заранее огромное спасибо.
Код
[/CODE]Sub SplitSheets2()
Dim s As Worksheet
Dim wb as Workbook
Set wb = ActiveWorkbook
For Each s In wb.Worksheets 'проходим во всем листам активной книги
s.Copy 'сохраняем лист как новый файл
ActiveWorkbook.SaveAs wb.Path & "\" & s.Name & ".xls" 'сохраняем файл
Next
End Sub[CODE]
Sub SplitSheets2()
Dim s As Worksheet
Dim path As String
With ActiveWorkbook
path = .path
For Each s In .Worksheets
s.Copy
ActiveWorkbook.SaveAs path & s.Name & ".xls"
Next
End With
End Sub
Мастерство программиста не в том, чтобы писать программы, работающие без ошибок. А в том, чтобы писать программы, работающие при любом количестве ошибок.