[已解决]EXCEL 操作

bachelor88

回复 7# ap112


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

ap112

回复 16# bachelor88

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

bachelor88

回复 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

回复 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

回复 19# ap112


    知道问题所在了，谢谢指点。