使用字符串和单元格值导出为 PDF

Question

我需要将 excel sheet 导出为以字符串和单元格值命名的 PDF，例如 XXXY - 单元格值注意：我不需要使用路径位置保存文件的代码我尝试了以下代码

Sub IVI_Formatting_Export_Two_PDF ()

Dim strFilename As String

Dim srn As String Dim SWPDF As Worksheet

Set SWPDF = ThisWorkbook.Sheets ("BSS CPES MainPage")

srn = "CPE Main-Page"

strFilename = SWPDF.Range ("F7").Value

Create File name with Warehouse Name

Export2PDF

SWPDF.ExportAsFixedFormat

Type:=xlTypePDF,

Filename:=strFilename & srn,

Quality:=xl QualityStandard,

IncludeDocProperties:=False,

IgnorePrintAreas:=False,

From:=1,

To:=1,

OpenAfterPublish:=True

End Sub

Answer 1

您必须指定导出 PDF 的路径。没有路径将保存在哪里？您可以使用变量来指定路径。目前我已经使用相同的文件路径。您的问题出在文件名参数中。试试下面的子。

Sub IVI_Formatting_Export_Two_PDF()
Dim strFilename As String
Dim srn As String
Dim SWPDF As Worksheet

Set SWPDF = ThisWorkbook.Sheets("BSS CPES MainPage")

srn = "CPE Main-Page"
strFilename = SWPDF.Range("F7").Value

'Create File name with Warehouse Name
'Export2PDF

    SWPDF.ExportAsFixedFormat Type:=xlTypePDF, _
    Filename:=ThisWorkbook.Path & "\" & strFilename & "_" & srn & ".pdf", _
    Quality:=xlQualityStandard, _
    IncludeDocProperties:=False, _
    IgnorePrintAreas:=False, _
    From:=1, _
    To:=1, _
    OpenAfterPublish:=True

'Clear memory
Set SWPDF = Nothing
End Sub

这里 Filename:=ThisWorkbook.Path & "\" & strFilename & "_" & srn & ".pdf" 会将 PDF 导出到您的工作簿所在的同一文件夹。您还必须包含 .pdf 扩展名才能将 excel sheet 导出为 pdf。

使用字符串和单元格值导出为 PDF

Export to PDF with String and Cell Value

excel

vba

export-to-pdf