Excel 2010 使用 VB 转 PDF答案

【问题标题】：Excel 2010 to PDF using VBExcel 2010 使用 VB 转 PDF
【发布时间】：2012-06-26 14:47:42
【问题描述】：

我有数百个 Excel 文件保存在一个文件夹中。我想知道如何在 Visual Basic 中编写一些东西来将它们转换为 PDF。有没有办法调用 Excel 2010 的另存为功能将它们保存在不同的文件夹中？我已经检查了 Google 和这里，我只能找到对第三方应用程序的引用。

【问题讨论】：

标签： visual-studio-2010 pdf excel-2010

【解决方案1】：

 Dim excel As Microsoft.Office.Interop.Excel.Application
    excel = New Microsoft.Office.Interop.Excel.Application
    Dim tmpWorkbooks As Workbooks
    tmpWorkbooks = excel.Workbooks
Dim wb As Microsoft.Office.Interop.Excel.Workbook
    wb = tmpWorkbooks.Open(pathOfExcelFile)
    excel.Visible = False
  wb.Activate()
wb.ExportAsFixedFormat(XlFixedFormatType.xlTypePDF, fileName, , , , 1, 1, False, )

【讨论】：

【解决方案2】：

在 Excel 2010 中，您可以使用此 VBA 代码：

ActiveSheet.ExportAsFixedFormat _
    Type:=xlTypePDF, _
    Filename:="C:\Temp\Workbook1.pdf", _
    Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=True, _
    OpenAfterPublish:=False

当然，您需要将Filename 设置为您机器的正确路径，并且由于它使用ActiveSheet，我想如果您的工作簿中有多个工作表，您需要遍历您的工作表。有关 ExportAsFixedFormat 函数的更多详细信息，请参阅the MSDN。

【讨论】：

只是想发表评论，因为我是新手，无法投票。这真的很有帮助，MSDN 文章是锦上添花。谢谢 TREB！