Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Ошибка при сохранение листов одной книги в отдельные файлы, ошибка 400
 
#1
06.07.2015 16:05:45
Здравствуйте. При запуске макроса (сохранение листов одной книги в отдельные файлы) выдает ошибку 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]
Изменено: odry - 09.01.2020 18:39:33
 
 
 
#2
06.07.2015 17:06:57
Вручную можете создать файл с таким именем? Сомневаюсь...
 
 
 
#3
07.07.2015 12:37:16
перепишите так:
Код
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
Живи и дай жить..
 
 
 
#4
09.01.2020 17:25:31
Макрос ссылается на иной лист, с таким же макросом.
Проверь соответствие макроса листу к которому он обращается.
 
 
 
#5
09.01.2020 17:33:21
Radegastos,
проверьте соответствие букв мысли, которую вы хотели сформулировать
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
 
 
#6
09.01.2020 18:41:29
Заодно проверить даты: сильно сомневаюсь, что автор ждёт ответ с июля 2015 года )
 
 
 
#7
09.01.2020 19:09:13
Юрий, в новом году должны же быть чудеса  :D
Мастерство программиста не в том, чтобы писать программы, работающие без ошибок.
А в том, чтобы писать программы, работающие при любом количестве ошибок.
 
 
 
Страницы: 1
Наверх