topic-23281

Posts: 1054

Joined: Sun Oct 09, 2005 10:41 PM

TOleauto + Excel save???
Posted: Fri Jan 13, 2012 04:54 PM

Holas,
Estoy usando este codigo para tratar de actualizar una hoja de excel...

oExcel := TOleAuto():New( "Excel.Application" )
IF oExcel:hObj == 0
  Alert( "ERROR! Excel No Está Instaldo En Esta PC.","")
  Return(.f.)
EndIf


oExcel:Visible := .f. // .t. por si quieres ver la hoja abierta
oWorkbook := oExcel:WorkBooks:OPEN(cFile)

oHoja := oExcel:Get( "ActiveSheet" )

oHoja:Cells(19, 4):Value := cNombre
oHoja:Cells(19, 7):Value := cNumRuc
oHoja:Cells(21, 4):Value := cDirecc
oHoja:Cells(23, 4):Value := cRefere

...luego no se como hacer para que la hoja excel se guarde con la informacion actualizada...

Help. Auxilio,
Salu2

acuellar

Posts: 1710

Joined: Tue Oct 28, 2008 06:26 PM

Re: TOleauto + Excel save???
Posted: Fri Jan 13, 2012 06:17 PM

Willi asi:

Code (fw): Select all Collapse

oWorkBook:SaveAs( cFile )

Saludos,

Adhemar

Saludos,

Adhemar C.

Willi Quintana

Posts: 1054

Joined: Sun Oct 09, 2005 10:41 PM

Re: TOleauto + Excel save???
Posted: Sat Jan 14, 2012 03:20 AM

Gracias, funciona al asunto de guardar el file,,, pero al parecer esta sentencia no funciona:

Code (fw): Select all Collapse

oHoja:Cells(19, 4):Value := cNombre

no se "actualizan" las celdas.. o es que debo usar otra sintaxis??
Salu2

Enrrique Vertiz

Posts: 582

Joined: Fri Oct 07, 2005 02:17 PM

Re: TOleauto + Excel save???
Posted: Sat Jan 14, 2012 11:16 AM

Willy, a mi me funciona asi :

oExcel:Sheets( "Informe Mensual" ):Cells( 8, 6 ):Value := "US$ Actual"

Te falta invocar a la hoja dentro del archivo

Enrrique Vertiz Pitta

Lima-Peru

xHb 1.23.1026X, Fwh 25.01, BCC74, MySQL 8.0.X, SQLLIB 1.9m

Armando

Posts: 3358

Joined: Fri Oct 07, 2005 08:20 PM

Re: TOleauto + Excel save???
Posted: Sat Jan 14, 2012 01:33 PM

Mr.

Aquí otro ejemplo

Code (fw): Select all Collapse

oExcel := TOleAuto():New("Excel.Application")
oExcel:WorkBooks:Add()                      // Abre excel con un libro vacio de tres hojas
oExcel:Set("DisplayAlerts",(.F.))

FOR nVez := oExcel:Sheets:Count() TO 2 STEP -1
    oExcel:WorkSheets(nVez):Delete()    // Borramos hojas en blanco para dejar solo una
NEXT
oSheet := oExcel:Get("ActiveSheet")

oSheet:Cells(1,2):Value := "Cotización:"
oSheet:Cells(1,2):Set("HorizontalAlignment",nRight)

Saludos

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero

FiveTech Support Forums

Continue the discussion