bachelor88 发表于 2015-5-10 00:01:33

回复 7# ap112


    kevinch的语句我这不行，能否请教下怎么保存为pdf吗?

ap112 发表于 2015-5-11 09:15:13

回复 16# bachelor88

你想把什么保存成PDF，把你写的代码和文件打包上来帮你看看

bachelor88 发表于 2015-5-11 15:19:30

本帖最后由 bachelor88 于 2015-5-11 15:21 编辑

回复 17# ap112


我就是想把excel表格保存成pdf文件。
office2007和pdf插件已安装。
代码如下：
$oexcel=ObjCreate("excel.application")
$oexcel.visible=False
$excel=$oexcel.workbooks.open("1.xls")
$excel.Worksheets(1).ExportAsFixedFormat("xlTypePDF","C:\test.pdf")
$excel.close
$oexcel.quit
就是不能生成pdf文件，还请大哥指点下。

"xlTypePDF"这里写0也不行。

ap112 发表于 2015-5-12 08:56:25

回复 18# bachelor88 Func _exceltopdf($excelpath,$pdfpath,$pdfname)
        Local $oExcel = _ExcelBookAttach($excelpath)
        with $oExcel.activesheet
                .exportasfixedformat(0,$pdfpath&$pdfname&".pdf")
        endwith
        _ExcelBookClose($oExcel,0)
EndFunc知道你的代码问题出现在那里吗？
$excel.Worksheets(1)，这里括号里面的是Sheets的名字，你新建的Excel这里应该是$excel.Worksheets("Sheet1").ExportAsFixedFormat(0,"C:\test.pdf")

bachelor88 发表于 2015-5-12 13:09:25

回复 19# ap112


    知道问题所在了，谢谢指点。
页: 1 [2]
查看完整版本: [已解决]EXCEL 操作