-1

我正在尝试制作一个仅将特定区域导出为 PDF 的宏。我的工作簿中有多个工作表,但我不能将 SaveAs 与 xlSelection 一起使用,因为该参数存在错误,它将整个工作簿导出为 PDF。这是我拥有的代码:

Sub Export()
'
' Export Macro
'
' Keyboard Shortcut: Option+Cmd+p
'
Range("B1:G32").Select

Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:="~:Desktop:Quote.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True

End Sub

如果有我可以尝试的解决方案,请告诉我。

4

1 回答 1

0

以下是我的代码,它成功地将我的东西保存为 pdf。我正在保存整个工作表,而不是某些单元格。也许你可以修改我的代码来做你想做的事。另一件事是我的代码是用VB.net在Visual Studio中编写的,所以请对vba进行适当的转换。

如果保存单元格对您不起作用,您可以复制所需的所有单元格,将它们粘贴到新工作表中,然后将整个新工作表保存为 pdf。可以通过 vba 实现。

 xlWorkSheet.ExportAsFixedFormat(Type:=Excel.XlFixedFormatType.xlTypePDF,
                                    Filename:=output_dir & "\" & test_set & "_" & sub_test & ".pdf",
                                    IgnorePrintAreas:=True,
                                    OpenAfterPublish:=False,
                                    Quality:=Excel.XlFixedFormatQuality.xlQualityStandard)
于 2015-08-13T18:34:04.600 回答