Page 1 of 1

Excel : opening existing xls-file

Posted: Tue Apr 14, 2009 12:35 pm
by Demont.frank
Hello,

Till now i can use a excel aplication as :

oExcel := CreateObject( "Excel.Application" )
oWorkBook := oExcel:WorkBooks:Add()
........

Ok , this works , excel seems to generate a file (name) , map1.xls , ....


Now , i try to open a existing xls file without succes , i have

oExcel := CreateObject( "Excel.Application" )
oWorkBook := oExcel:WorkBooks:Add()

cDest := "TESTDIR\ExcelFile.xls"
oExcel:WorkBooks:Open(cDest)

This give a error :

Error description: Error Excel.Application:WORKBOOKS/14 DISP_E_BADPARAMCOUNT: OPEN
Args:
[ 1] = C TESTDIR\ExcelFile.xls

Tryed also to open before workbooks:add

What do i wrong , who can give an example to open an existing xls-file ?

Frank

Re: Excel : opening existing xls-file

Posted: Tue Apr 14, 2009 1:06 pm
by Loach
local i, hActiveWorkbook,ppp:=CurDrive()+':\'+GetCurDir()+'\'
if !file(ppp+"prom.xls")
return .f.
endif
oExcel := TOleAuto():New( "Excel.Application" )
oExcel:WorkBooks:Open(ppp+"prom.xls")
oExcel:Visible := .T.
oHoja1 := oExcel:Get( "ActiveSheet" )
...

This code work fine for me.

Re: Excel : opening existing xls-file

Posted: Tue Apr 14, 2009 2:36 pm
by Demont.frank
It seems that workbook:open(cFile) can not be used with relative directory's

Will not work :

workbook:open("Test\cFile") , Test is supposed to be a subdirectory from the work directory

Frank