用pb60读取excel文件报错，在线急等待...

无敌小福星

用pb60读取excel文件报错，在线急等待...

函数如下：用pb60执行报错，但我用pb6.5执行是正确的。由于我必须用pb60修改此程序，求如何解决此问题。

//***************************************************************// // 函数名称： GF_EXCEL_TO_DATAWINDOW // 函数功能： EXCEL文件导入DATAWINDOW // 参数类型： adw_datawindowTAWINDOW // 参数名称： Aadw_datawindow_DATAWINDOW // RETURN ： 1 SUCCEED -1 ERROR //***************************************************************//

string ls_savename,ls_named,ls_grxh int li_excelok,li_net long li_count

oleobject excelserver excelserver = create oleobject li_excelok = excelserver.connecttonewobject("excel.application")

//检查返回值，以确保已成功地连接到了Excel if li_excelok <> 0 then messagebox("信息提示","连接EXCEL失败，请检查计算机中是否安装了EXCEL!") destroy excelserver return -1 end if li_net = GetFileOpenName("选择文件", ls_savename,ls_named,"xls","Excel文件(*.xls),*.xls") if li_net > 0 then if ls_savename = "" then return -1 adw_datawindow.settransobject(sqlca) adw_datawindow.reset() excelserver.workbooks.open(ls_savename) //29行 系统执行报错如下。

//Error calling external object funtion open at line 29 in funtion gf_excel_to _datawindow of object gf_excel_to _datawindow

//excelserver.workbooks.open(ls_savename,0,false,1) //系统执行报错如下。

excelserver.activesheet.cells.copy li_count = adw_datawindow.importclipboard(2) clipboard("")

excelserver.quit() excelserver.disconnectobject() destroy excelserver return 1 else messagebox('信息提示','没有指定导入文件!') destroy excelserver return -1 end if