如何在 VBA 中保存工作表和 PDF答案

【问题标题】：How to save a sheet and PDF in VBA如何在 VBA 中保存工作表和 PDF
【发布时间】：2020-05-18 14:00:08
【问题描述】：

我创建了一个工作簿，其中将是一个用于输入数据并存储在同一个工作簿中的图表。我设法创建了一个保存路径来存储 PDF 文件，但我还需要在相同的代码中将工作表保存在同一工作簿中作为延续的编码。

这是我目前仅以 PDF 格式保存的内容。

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:" & Range("H60").Value & Format(Date, "ddmmyyyy")

如果有人可以帮助我将不胜感激。

【问题讨论】：

您能解释一下“将工作表作为延续保存在同一工作簿中”的意思吗？
H60 中有什么？文件路径（即文件夹名称等）或文件名？
你说的是什么意思？"in which would be a chart to input data and stored in the same workbook."？你真的是指这里的“图表”吗？图表是图形，您不能在其中输入数据。你是说表格吗？甚至是用户窗体？
也许这会有所帮助：stackoverflow.com/questions/61060302/…
抱歉我的措辞不好。在“图表”中，我的意思是像一张桌子。该表包含将填充诸如名称、描述、时间等信息的单元格。所以基本上我希望以两种方式保存该表。首先在特定路径中作为 PDF 文件和在我的表所在的同一工作簿中进行外部访问。我添加了一个按钮，该按钮删除所有将要填充的单元格，并将该表重新用于下一个项目。所以最后我会有一个包含保存数据的excel文件，在外部路径上我会将表格保存为PDF。希望描述能帮助更多:)

标签： excel vba excel-formula

【解决方案1】：

假设路径在 sheet1 上

dim path as string 'path variable that stores the path

path="D:" & sheet1.Range("H60").Value & Format(Date, "ddmmyyyy")

'sheets to export
'they must be selected before exporting.
'ThisWorkbook.Sheets(Array("Sheet1", "Sheet2",...)).Select

ThisWorkbook.Sheets(Array("Sheet1", "Sheet2")).Select

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= path, _
     Quality:= xlQualityStandard, IncludeDocProperties:=True, _
     IgnorePrintAreas:=False, OpenAfterPublish:=True

希望对你有帮助

【讨论】：