為當前工作表創建 PDF

Question

我有一個包含多張工作表的工作簿。 我希望能夠為當前選定的工作表（不是所有活動工作表）創建一個 pdf。 在我所在的工作表中選擇。

我有下面的代碼。 我的工作表名稱也經常更改，因此引用特定名稱將不起作用。

Sub SaveAsPDF()
    Dim CurWorksheet As Worksheet
    For Each CurWorksheet In ActiveWorkbook.Worksheets
        CurWorksheet.ExportAsFixedFormat Type:=xlTypePDF, _
            Filename:=Application.ActiveWorkbook.Path & "\" & CurWorksheet.Name, _
            Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, _
            IgnorePrintAreas:=False, _
            OpenAfterPublish:=False
    Next CurWorksheet
    MsgBox ("PDF saved")
End Sub

Answer 1

您可以使用ActiveSheet屬性，它返回一個 object，它表示活動工作簿或指定 window 或工作簿中的活動工作表（頂部工作表）。

Sub SaveActiveSheetAsPDF()   
     ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
            Filename:=Application.ActiveWorkbook.Path & "\" & CurWorksheet.Name, _
            Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, _
            IgnorePrintAreas:=False, _
            OpenAfterPublish:=False

    MsgBox ("PDF saved")
End Sub