FiveTech Software tech support forums

... computer? Check: if ExcelObj() == nil ? "Not installed" else ? "Installed" endif 2) Also check if file exists with ? File( cFileXls ) Sorry Nages, one question: maybe the problem is that there is no Excel on that computer? No there is no Excel, discovered the mystery ... ...

1) Is Microsoft Excel installed on this computer?
Check:
if ExcelObj() == nil
? "Not installed"
else
? "Installed"
endif

2) Also check if file exists with
? File( cFileXls )

... * Nuevas funciones en adofuncs.prg para acceder a ficheros Excel en equipos sin Microsoft Office instalado. 1)FW_OpenAdoExcelBook( cFileXLS, [lHeaders := .t.] ) --> objeto AdoConnection - Es posible abrir archivos xls en todos los equipos usando el proveedor predeterminado de ...

... * New functions in adofuncs.prg to access Excel files on computers not having MSOffice installed. 1) FW_OpenAdoExcelBook( cFileXLS, [lHeaders := .t.] ) --> AdoConnection Object - It is possible to open xls files on all computers using the default Jet Ado provider. To ...

Cris, the problem is another on my application I load the oRange oRange := GetExcelRange(cFileXls , , @lOpened) it load good the excel file then I must save all into a dbf and I have problem using FW_DbfToExcel() because this function use at the end the function FW_ArrayToDBF ...

yes On xharbour run ok BUt on Harbour you made oRange := GetExcelRange(cFileXls , , @lOpened) and then Xbrowse(oRange) run ok I see all datas So, the problem is of Fw_ExcelToDbf() Please Maurizio try this testxbrowse(oRange) Function  testxbrowse(oRange)  ...

...  XBrowse( aData )return nilfunction ExePath()return cFilePath( GetModuleFileName() )  Notes: GetExcelArray( cFileXLS, cSheet, acRange ) is an FWH function from ver 10.12. ArrTranspose( aArray ) --> aTransposedArray is function available in FWH Just two ...

::oWorkBook:SaveAs(cFileXls)


::oExcel:Visible = .T.

// ::oExcel:Quit()

::Excel := Nil

saludos.

... send me, I would be grateful Thank you /* Generando um arquivo Excel Angelo José Ferreira Cendon */ #include "FiveWin.ch" FUNCTION Testaj() LOCAL cFilexls := ".\arqexcel.xls" LOCAL oExcel msgalert("iniciando geração") oExcel := TExcelScript():New() msgalert("Criando script para excel") oExcel:Create( ...

... onde está o erro? o fonte é este. /* Generando um arquivo Excel Angelo José Ferreira Cendon */ #include "FiveWin.ch" FUNCTION Testaj() LOCAL cFilexls := ".\arqexcel.xls" LOCAL oExcel msgalert("iniciando geração") oExcel := TExcelScript():New() msgalert("Criando script para excel") oExcel:Create( ...

... where is the error? this is the source. /* Generando um arquivo Excel Angelo José Ferreira Cendon */ #include "FiveWin.ch" FUNCTION Testaj() LOCAL cFilexls := ".\arqexcel.xls" LOCAL oExcel msgalert("iniciando geração") oExcel := TExcelScript():New() msgalert("Criando script para excel") oExcel:Create( ...

... Oleinvoke(::OleExcel,'Quit') Super:End() OleUninitialize() endif return Nil Para abrir el libro así: METHOD OpenXls( cFileXls, lreadonly, lmessage ) CLASS TExcel local sal DEFAULT lreadonly := .f., lmessage := .t. cfilexls := alltrim(cfilexls) if lmessage = .t. if ...

Excellent. Thanks fleal.

Now, how can I send then password when opening the file so the user does not have to enter it every time?

I found a post that mentions trying:

oExcel:WorkBooks:Open( cFileXls, , , , "password" )


But this did not work.

Any ideas?

... 5° parametro: Error Excel.Application:WORKBOOKS/14 DISP_E_BADPARAMCOUNT: OPEN oExcel:WorkBooks:Open(cFilePath(GetModuleFileName(GetInstance())) + cFileXls, , , , "password") mi sono copiato i file help di visual basic da office ma non ho trovato nulla, non so se intendi questa per documentazione ...

... con queste funzioni di ole2: oExcel := TOleAuto():New( "Excel.Application" ) oExcel:WorkBooks:Open(cFilePath(GetModuleFileName(GetInstance())) + cFileXls) con quale funzione si può passare una password all'apertura del file nel caso di file protetto? così come è ora si apre excel con richiesta ...