VBA Excel保存PDF时不包括一张工作表

我正在和一张我不想保存为我的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保存代码之间，我为图纸隐藏绘制了代码

实际上，我的一张工作表被隐藏了，但我在

thiswook.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

如果没有这张纸，我只能保存一页而不是整个文档

请另一位女士告诉我这里发生了什么事好吗？

在您链接到的中，请注意PDF创建使用的是，而不是

发生错误的原因是无法选择隐藏的工作表，但根本不需要在此处选择

删除

ThisWorkbook.Sheets。选择
，然后使用
ThisWorkbook
而不是
ActiveSheet

我也会仔细检查你的文件名
ThisWorkbook.Path&“\”&ThisWorkbook.Name
相当于
ThisWorkbook.FullName
，但请确保它不包含扩展名（.xlsm），我还将包含
。pdf
可能会有所帮助。或者，如果您确切知道要打印哪些图纸，则可以将它们包含在一个数组中，然后仅选择这些图纸。这个错误是因为你不能选择一个隐藏的工作表。从你链接到的问题来看，如果你隐藏工作表，它看起来像是你想要的。。。不是
工作表
。所以我想说这个问题在某种程度上是你链接到的问题的重复；你只需要实现链接问题中的PDF创建。我更改了它，但是它说，这个变量没有定义。当我将ThisWorkbook.ExportAsFixedFormat放入时，我得到了相同的错误。请删除
ThisWorkbook.Sheets。完全选择
行。