FiveTech Software tech support forums

...  oExAngu := TOleAuto():New( "Excel.Application" )   oExAngu:Visible := .t.//   oExResu:Workbooks:Open( cResumen ) // ABRO EL ARCHIVO DE RESUMEN// ARCHIVOS DE ANGULOS   FOR nFor := 10 TO 360 STEP 10 // NOMBRE DE LOS LIBROS ...

... TOleAuto(), el problema esta en que no me deja convertir el formato de la columna oExcel := TOleAuto():New( "Excel.Application" ) oExcel:WorkBooks:Add() oHoja := oExcel:ActiveSheet() oHoja:Cells:Font:Name := "Arial" oHoja:Cells:Font:Size := 10 // TITLE oHoja:Cells( 1, 1 ):Value ...

... not found. It may have been moved, renamed or deleted . This works cFile := "\\pc\test\test.xlsx" oExcel := ExcelObj() oBook := oExcel:WorkBooks:Open( cFile ) ? oBook:FullName TRY oSheet := oBook:ActiveSheet oRange := oSheet:UsedRange CATCH END Regards Maurizio http://www.nipeservice.com

Thank you very much for your help, but the error are the same. oExcel := ExcelObj() oBook := oExcel:WorkBooks:Add() oSheet := oBook:ActiveSheet oSheet:Cells( 4,2 ):Value := '=HYPERLINK("http://forums.fivetechsoft.com/", "FiveTech Forums" )' oExcel:Visible ...

Saludos. Creo un objeto oREPORTE:=TOleAuto():New("Excel.Application") oREPORTE:WorkBooks:Add() oBook:=oREPORTE:Get("ActiveWorkBook") oSheet:=oREPORTE:Get("ActiveSheet" ) voy formando mi cadena de texto para en su momento con el portapapeles ...

Gracias hmpaquito, ahí le as dao. ME FUNCIONA:

try
osigo := oexcel:WorkBooks:Open(alltrim(fichero),0,.t.,1,"","")
catch
osigo := .f.
end

if valtype(osigo) = 'O'
Msgalert('No tiene password')
else
Msgalert('Tiene password')
endif

Mil gracias ...

... de el crear el objeto excel por cada fichero. Tengo que buscar otra solución Antonio, cuando digo que con msgalert() funciona es sustituyendo workbooks:open() por msgalert(). El problema lo tengo en el momento que pongo el workbooks:open(), es lo que deja congelado mi programa hasta que se ...

... la contraseña o se cancele, algo así: oexcel := CreateObject( "Excel.Application" ) oexcel:DisplayAlerts(.F.) ... olibro := oexcel:WorkBooks:Open(alltrim(fichero),.f.,.f.) ... Y cuando el libro tiene contraseña, el programa NO continúa despues del workbooks:open. Lo que quiero conseguir ...

... teniendo este mensaje al mandar a excel todos los reportes de la aplicación en una terminal puntual. Error description: Error Excel.Application:WORKBOOKS:ADD:ACTIVESHEET:CELLS/0 S_OK: _FORMULA Ahora, ocurre algo interesante, el sistema está en red, y el error solo se produce en una terminal ...

Hola, estoy teniendo el mismo problema, es decir este mensaje: Error description: Error Excel.Application:WORKBOOKS:ADD:ACTIVESHEET:CELLS/0 S_OK: _FORMULA Ahora, ocurre algo interesante, el sistema está en red, y el error solo se produce en una terminal específica y no en todas, ...

... como funciona con exportacion directa desde xBrowse, ya que exporta a Excel con: oExcel := TOleAuto():New( "Excel.Application" ) oExcel:WorkBooks:Add() oExcel:Sheets("Hoja2"):Select(); oHoja := oExcel:ActiveSheet() oHoja := oExcel:ActiveSheet() // SINO ESPECIFICAS QUE HOJA, ...

... cFile :="C:\VENTAS.xlsx" oExcel:=TOleAuto():New("Excel.Application") oBook := oExcel:Workbooks:Open(cFile) oHoja := oExcel:Get( "ActiveSheet" ) nTotRowCount:= oHoja:UsedRange:Rows:Count() USE C:\VENTAS NEW EXCLUSIVE FOR Q=2 ...

... cFile :="C:\VENTAS.xlsx" oExcel:=TOleAuto():New("Excel.Application") oBook := oExcel:Workbooks:Open(cFile) oHoja := oExcel:Get( "ActiveSheet" ) nTotRowCount:= oHoja:UsedRange:Rows:Count() USE C:\VENTAS NEW EXCLUSIVE FOR Q=2 ...

Richard, Enrico Please take a look at the excel workbooks property http://msdn.microsoft.com/en-us/library/bb179167(v=office.12).aspx Oledefaultarg() is supposed to be the format parameter ? Format Optional Variant If Microsoft Excel is opening a ...

Enrico Please take a look at the excel workbooks property http://msdn.microsoft.com/en-us/library/bb179167(v=office.12).aspx Oledefaultarg() is supposed to be the format parameter ? Format Optional Variant If Microsoft Excel is opening a text ...