我需要将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。
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句