“打印”按钮的clicked事件里的部分代码:
OLEObject xlApp,xlsub
int ret
//取得数据窗口的列数和行数
numcols=long(dw_1.object.datawindow.column.count)
numrows=dw_1.rowcount()
xlApp=create OLEObject
//链接Excel
ret=xlApp.connectToNewObject("Excel.Sheet")
if ret<0 then
messagebox("链接Excel失败!",string(ret))
end if
//打开预先根据要求的表格格式创建好的Excel模版文件reportl.xls
xlApp.Application.Workbooks.Open("C:\Documents and Settings\All Users\桌面\reportl.xls") //此处报错
报错信息为:Error calling external object function open
------解决方案--------------------
li_ret=iobj.ConnectToNewObject( "Excel.application")
iobj.application.workbooks.Open(as_filepath)
------解决方案--------------------
]xlApp.Visible = TRUE