VBA Excel за исключением одного листа при сохранении PDF

Question

Я борюсь с одним листом исключения, который я не хочу сохранять как файл PDF.

Мой код получен из запроса, сформированного здесь:

Как исключить 1 лист из моего макроса VBA для сохранения в pdf

, и он выглядит следующим образом:

 ThisWorkbook.Sheets("Readme").Visible = xlSheetHidden

 ThisWorkbook.Sheets.Select

 ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
 ThisWorkbook.Path & "\" & ThisWorkbook.Name, _
 Quality:=xlQualityStandard, IncludeDocProperties:=True, _
 IgnorePrintAreas:=False, OpenAfterPublish:=True

 Sheets("Frontsheet").Select

 ActiveWorkbook.Sheets("Readme").Visible = xlSheetVisible

В основном, между моим кодом сохранения PDF я наносю код для скрытия листа.

В результате один из моих листов скрыт, но я получаю сообщение об ошибке в строке ThisWorkbook.Sheets.Select

Сбой метода «Выбор» объекта «Листы» .

Если я поменяю место своего кода следующим образом:

Sub DPPtoPDF()

  ThisWorkbook.Sheets.Select

  Sheets("Readme").Visible = False

  ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
  ThisWorkbook.Path & "\" & ThisWorkbook.Name, _
  Quality:=xlQualityStandard, IncludeDocProperties:=True, _
  IgnorePrintAreas:=False, OpenAfterPublish:=True

  Sheets("Readme").Visible = True
  Sheets("Frontsheet").Select

Тогда я могу сохранить только 1 страницу вместо всего документа, без этого листа. .

Может ли анойн сказать мне, что здесь происходит?

Answer 1

В ответе на вопрос , на который вы ссылались, обратите внимание, что при создании PDF используется Workbook.ExportAsFixedFormat, а не Worksheet.ExportAsFixedFormat.

ошибка возникает из-за того, что вы не можете выбрать скрытый лист, но вам вообще не нужно его здесь выбирать.

Удалите ThisWorkbook.Sheets.Select, а затем используйте ThisWorkbook вместо ActiveSheet.

Я бы также дважды проверил ваше имя файла ... ThisWorkbook.Path & "\" & ThisWorkbook.Name эквивалентно ThisWorkbook.FullName, но убедитесь, что оно не включает расширение (.xlsm), и я бы также включил .pdf.