Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Ошибка сохранения в PDF
 
#1
11.02.2026 10:10:38
Здравствуйте, помогите пожалуйста разобраться с ошибкой, есть файл шаблон(работает отлично) оригинал только фото
 
 
 
#2
11.02.2026 10:44:59
И Вы реально считаете, что по одному голому коду кто-то сразу на ошибку укажет? Вы же даже текст ошибки не приложили, не говоря уже о файле: что там откуда считывается, есть ли листы, перечисленные в А4 и прочее. Судя по скрину - в файле должно быть не менее 41 листа. Иначе в какой-то момент будет ошибка обращения к несуществующему листу.
Изменено: Дмитрий(The_Prist) Щербаков - 11.02.2026 10:47:34
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
 
 
#3
11.02.2026 12:53:07
Дмитрий, не получилось с телефона прикрепить файл. Может быть Лист4 мешает (не могу его удалить)
Изменено: GGE29 - 11.02.2026 12:55:03
 
 
 
#4
11.02.2026 12:56:21
Не даёт прикрепить файл, он весит 90kb, а горит красным
Изменено: GGE29 - 11.02.2026 12:57:40
 
 
 
#5
11.02.2026 12:58:47
В архив, а потом приложить
Согласие есть продукт при полном непротивлении сторон
 
 
 
#6
11.02.2026 13:02:06
Даже архивом, который весит 50кб, попробую через Яндекс диск
 
 
 
#7
11.02.2026 13:25:50
Может быть проблема в Лист4 Который не удаляется.Если получится удалить,то как?С компа получилось прикрепить
 
 
 
#8
11.02.2026 13:40:36
Как-то заморочено с именами листов) И да, Лист4 это не лист, файл сломался. Перенесите нужные листы в новую книгу и пересохранитесь
В книге всего 3 листа, и нет листа с ИНДЕКСОМ 14, отсюда ошибка
Код
Sub Command()
Dim iSh As Worksheet
Dim strFileName As String
s = Sheets("ОДНОСТРОЧНЫЙ").Range("A4").Value
a = Split(s, ",")
For Each iSh In ThisWorkbook.Worksheets
  a(I) = iSh.Name
  I = I + 1
Next
Sheets(a).Select
    strFileName = "График " & Sheets("ОДНОСТРОЧНЫЙ").Range("A5").Value
    On Error Resume Next
    ChDir "\"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    ActiveWorkbook.Path & "\" & strFileName, Quality:= _
    xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
    OpenAfterPublish:=True
End Sub
Изменено: Sanja - 11.02.2026 13:53:32
Согласие есть продукт при полном непротивлении сторон
 
 
 
#9
12.02.2026 11:02:06
Так и не получается с ПДФ.Файл тяжёлый.Закинул на яндекс диск https://disk.yandex.ru/i/wJ2a0wnkUJUr7w
Цитата
написал:
Перенесите нужные листы в новую книгу и пересохранитесь
При добавлении листов макрос не работает :(  
 
 
 
#10
12.02.2026 16:16:09
Опишите суть задачи.
Какие именно листы Вы хотите вывести в PDF?
У Вас в ячейке A4 листа "ОДНОСТРОЧНЫЙ" указано "2,3,14". Это что?
Владимир
 
 
 
#11
12.02.2026 16:51:53
Однострочный, судовой, график, но потом будут ещё добавлять
 
 
 
#12
12.02.2026 17:41:52
Лучше записывать в ячейку имена листов, а не номера, поскольку номера листов могут измениться.
Поэтому записываем в ячейку A4 текст ОДНОСТРОЧНЫЙ,СУДОВОЙ,ГРАФИК и пробуем макрос:
Код
Sub Command()
  Dim strFileName As String, s As String, publicSheets As sheets
  With ThisWorkbook
    s = .worksheets("ОДНОСТРОЧНЫЙ").Range("A4").Value
    Set publicSheets = .worksheets(Split(s, ","))
    publicSheets.Select
    strFileName = "График " & worksheets("ОДНОСТРОЧНЫЙ").Range("A5").Value
    On Error Resume Next
    .ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
      ActiveWorkbook.Path & "\" & strFileName, Quality:= _
      xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
      OpenAfterPublish:=True
    publicSheets(1).Select '  Разгруппировали
  End With
End Sub
Владимир
 
 
 
Страницы: 1
Читают тему
Наверх