在 ThisWorkbook.Path 中將單元格范圍保存為 PDF

Question

我有一個保存到定義路徑的宏，該路徑沒有用，因為多人將使用該文件。

Sub SavetoPdf()
'
' SavetoPdf Macro
' To Save to PDF Details
'
' Keyboard Shortcut: Ctrl+s
'
    Range("E31:I54").Select
    Application.CutCopyMode = False
    ChDir "/Users/Me/Desktop/"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
        "/Users/Me/Desktop/" & Range("G41").Value & ".pdf", Quality:=xlQualityMinimum, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False
End Sub

我想保存到 ThisWorkbook.Path 並修改了上面的內容。

Sub SavetoPdf()
    ' Saves active sheet as PDF file.

    Dim Name As String

    Name = ThisWorkbook.Path & "/" & Range("G41").Value & ".pdf"

    Range("E31:I54").Select
    Application.CutCopyMode = False
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:=Name, _
        Quality:=xlQualityMinimum, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

End Sub

我在 Mac 上。

我得到

打印錯誤

調試器突出顯示此代碼：

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:=Name, _
  Quality:=xlQualityMinimum, _ 
  IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

Answer 1

您的標題顯示您想要 PDF 的“范圍”單元格。 那是不是對你不起作用？

Sub SavetoPdf()
' Saves active sheet as PDF file.

    Dim Name As String

    Name = ThisWorkbook.Path & "/" & Range("G41").Value & ".pdf"

    Range("E31:I54").ExportAsFixedFormat Type:=xlTypePDF, Filename:=Name, _
                                         Quality:=xlQualityMinimum, _
                                         IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

End Sub

Answer 2

修改@Davesexel 代碼：在模擬數據上測試並保存沒有問題。

Dim rng As Range   
Dim Name As String

Set rng = Worksheets("Sheet1").Range("G41") 'Change worksheet to your needs

Name = rng.Value
Range("E31:I54").ExportAsFixedFormat Type:=xlTypePDF, _
    Filename:=ThisWorkbook.Path & "/" & Name & ".pdf", _
    Quality:=xlQualityMinimum, _
    IncludeDocProperties:=True, IgnorePrintAreas:=False, _
    OpenAfterPublish:=False