topic-9131

Board index FiveWin para Harbour/xHarbour Pasar Datos a una Hoja de Calculo

Posts: 104

Joined: Wed Mar 08, 2006 02:24 PM

Pasar Datos a una Hoja de Calculo
Posted: Sat Dec 08, 2007 03:14 PM

Hola Foro:
Quisiera saber si es posible enviar datos a un archivo XLS (Excell) ya creado y en lugares determinados del mismo. Por ejemplo a la ubicacion Hoja1!C9 y si es factible con que clase lo debo hacer.
Desde ya muchas gracias
Saludos
Carlos A. Ducca

alex_cyr

Posts: 77

Joined: Wed Jun 28, 2006 06:38 PM

Pasar Datos a una Hoja de Calculo
Posted: Sat Dec 08, 2007 06:00 PM

carlos, te anexo un ejemplo:

  oxls:=TOleAuto():New( "Excel.Application" )
  oxls:WorkBooks:OPen('c:\mihoja.xls')
  oHoja := oxls:sheets:item(1)
  oHoja:activate()

  oHoja:Cells(5,8):value := 'DATO 1'
  oHoja:Cells(6,8):value := 'DATO 2'
  oHoja:Cells(7,8):value := 'DATO 3'
  oHoja:Cells(8,8):value := 'DATO 4'

  oxls:visible := .t.

saludos
Alex.

FiveTech Support Forums

Continue the discussion