WIN32COM 将多个工作表保存/导出为 PDF

Question

我想在工作簿中选择多张工作表（按特定顺序），然​​后使用 win32com 将它们导出为单个 PDF。我试过了：

wb_HC.Sheets(['sheetname1','sheetname2']).ExportAsFixedFormat(0, workdir+'\\'+run_date+'_MD_Summary.pdf')

但这不起作用。我知道在 VBA 中工作表可以称为工作表数组：

Array(sheets(1), sheets(2))

但我认为这不等同于 Python 中的 list()。

Answer 1

考虑使用 Python 的 list [] 方法，它可以对应于 VBA 的 Array()。将其应用于传递工作表索引号或工作表名称的 Worksheets() 方法。然后在ExportAsFixedFormat 中使用xlApp.ActiveSheet 限定方法：

import os
import win32com.client

workdir = "C:\\Path\\To\\Working\\Directory"
rundate = '2016-09-11'

try:
    xlApp = win32com.client.Dispatch("Excel.Application")
    wb = xlApp.Workbooks.Open(os.path.join(workdir, 'ExcelFile.xlsx'))

    wb.Worksheets(["Sheet1", "Sheet2"]).Select()

    xlTypePDF = 0
    xlQualityStandard = 0

    xlApp.ActiveSheet.ExportAsFixedFormat(xlTypePDF, 
                                          os.path.join(workdir, run_date+'_MD_Summary.pdf'), 
                                          xlQualityStandard, True, True)    
except Exception as e:
    print(e)

finally:    
    wb.Close(False)
    xlApp.Quit

    wb = None
    xlApp = None

顺便说一句，请务必将您的处理包装在try/except/finally 块中。否则，您遇到的任何错误都会使 Excel.exe 在后台进程中运行。在此设置中，脚本始终关闭工作簿并取消初始化 COM 对象，而不管错误如何。 VBA 中的对应物是On Error Goto ... 处理（另一种最佳实践方法）。