Question

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

Answer 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, )

Answer 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。

使用VB将Excel 2010转换为PDF

2 个答案: