保存为 pdf 的问题 - 位置不正确

Posted 2023-05-07

【中文标题】保存为 pdf 的问题 - 位置不正确

【英文标题】：Problem with saving as pdf - not right location

【发布时间】：2020-06-19 07:32:16

【问题描述】：

我也有一个问题，当我保存它时，它会保存 mainc excel 文件所在的位置。 请帮忙^^

Sub Save PDF()

Dim filePath As String
Dim filename As String
filePath = "C:\Users\lasha\Documents\"
filename = Sheets("Form").Range("D2")
Sheets("Form").Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, filename:=filename, Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        True
End Sub

【参考方案1】：

自己解决了 ^^ filename:=filePath & filename 已更改并且可以正常工作。

Sub Save PDF
    Dim filePath As String
    Dim filename As String
    filePath = "C:\Users\lasha\Documents\"
    filename = Sheets("Form").Range("D2")
    Sheets("Form").Select
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, filename:=filePath & filename, Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
            True
    End Sub