無需選擇即可將多個工作表導出為PDF

Question

我有4張紙，分別是“ Sheet1”，“ Sheet2”，“ Sheet3”和“ Sheet4”。

對於我的PDF，我想導出Sheet3和Sheet4的內容，因此將其分組為一個數組，如下所示：

Sheets(Array("Sheet3", "Sheet4"));

現在，通常要導出為PDF，我將選擇它，然后選擇

ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:= _
"C:\filename.pdf", _
Quality:= xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False

但是，我想讓此Macro完全在后台運行。 如果我正在查看Sheet1，並運行了該宏，它將被切換到Sheet3，因為已選擇它會對工作流程造成干擾。

我知道如何通過聲明變量來針對諸如FillCell之類的基本操作執行此操作：

Dim wb As Workbook
Dim ws As Worksheet
Set wb = ThisWorkbook
Set ws = wb.Sheets("Sheet2")
' modify ws

因為這在幕后起作用。

總而言之，我想將多個工作表（並非全部）導出為PDF，而無需使用“選擇”，“激活”或類似操作，這將改變我當前正在查看的工作簿/工作表的視圖。

Answer 1

這應該可以解決問題。

Sheets("Sheet 1").ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:= _
"C:\filename.pdf", _
Quality:= xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False