新手求救:PB9.0中用OLE连接EXCEL, 结果在OPEN时就出错,我的excel是2003版本的,是不是和版本有关系呢
代码如下:
OLEObject ExcelServer
Long excelok
ExcelServer = CREATE OLEObject
ExcelOK = ExcelServer.ConnectToNewObject( "excel.application" )
IF excelok < 0 THEN
messagebox("连接excel失败,检查你的系统是否安装了office",string(excelok))
else
SetPointer(HourGlass!)
Clipboard("")
ExcelServer.workbooks.open(ls_filename)//报错显示此行出错 ExcelServer.application.worksheets(1).cells.select()
ExcelServer.application.worksheets(1).UsedRange.Copy()
ExcelServer.Activeworkbook.Close()
ExcelServer.Application.Quit()
ExcelServer.DisconnectObject()
destroy ExcelServer
end if