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

问题描述

我需要将 Excel 工作表导出为 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

解决方法

您必须指定导出 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 工作表导出为 pdf。