; 工作中用到需要把电子发票文件添加到Excel中一个发票一行
; 这个例子就是通过操作excel表格的ComObj
;打开一个表格
;读 pdf 文件 作为 OLE对象 插入到 打开的表格中 去
;
; 办公自动化中一般会用到这样的一个需求
;本程序设定如下：
; aaa.xlsx 为excel原始模板文件
; bbb.xlsx 为生成的excel文件
; ccc.pdf 为需要插入到excel中A1单元格的pdf文件
;打开 表格模板 aaa.xlsx
excel := ComObjCreate("Excel.Application")
Workbook := rexcel.Workbooks.Open(A_ScriptDir . "\aaa.xlsx")
;选中 工作簿中第一个表格
excel.Sheets(0).Select
;设置第一行行高
excel.ActiveSheet.Rows(1).RowHeight :=50
;选中单元格 A1
excel.ActiveSheet.Range("A1").Select
;插入 OLE对象
obj := excel.ActiveSheet.OLEObjects
PdfFile := A_ScriptDir . "\ccc.pdf"
obj.add(,A_ScriptDir . "\ccc.pdf",False,True,"C:\Windows\Installer\{AC76BA86-7AD7-2052-7B44-AC0F074E4100}\SC_Reader.ico",,"111.pdf")
;保存表格
excel.ActiveWorkbook.SaveAs(A_ScriptDir . "\bbb.xlsx")
excel.Workbooks.close
excel.quit()
MsgBox,"把 ccc.pdf 作为OLE对象 插入到excel单元格A1中完成了，已经生成了目标文件 bbb.xlsx。请查看结果"
ExitApp声明：本站所有文章，如无特殊说明或标注，均为本站原创发布。任何个人或组织，在未征得本站同意时，禁止复制、盗用、采集、发布本站内容到任何网站、书籍等各类媒体平台。如若本站内容侵犯了原著者的合法权益，可联系我们进行处理。
