FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Abrir archivo Excel e Insertar filas
Posts: 1380
Joined: Fri Oct 14, 2005 01:28 PM
Abrir archivo Excel e Insertar filas
Posted: Fri Dec 14, 2012 01:12 PM
Gente;
Como expresé en un post anterior. Deseo exportar desde xBrowse, aunque no que tales registros se guarden desde la primer fila.
Como no es posible hacerlo se me ocurrió que luego de guardada la hoja, la puedo volver a abrir, insertar x filas y luego allí agregar los datos necesarios.
Buscando post relativos a Excel seguí el consejo de este post:
http://forums.fivetechsupport.com/viewtopic.php?f=6&t=21201&sid=ff4b9fd3a6d81ed244608d30f69a0d40#p112740
Sobre crear una macro y luego leer su codificación. Bueno... lamentablemente no lo logro y hasta acá llego:
Code (fw): Select all Collapse
   // Abrir Hoja
   oExcel:= TOleAuto():New( "Excel.Application", .F. )
   oExcel:WorkBooks:Open( cFilePath( GetModuleFileName() )+"Mi Prueba.xlsx" )
   oExcel:Sheets( 1 ):Select()
   oHoja := oExcel:Get( "ActiveSheet" )

   oHoja:EnableSelection()
   oHoja:Rows("1:9"):Select()
   oHoja:Selection():Insert()                   // ACA: Error 7400044/3  DISP_E_MEMBERNOTFOUND: SELECTION
   oHoja:Range("A1"):Select()
   oBook:Save( "Mi Prueba.xlsx" )
   oExcel:Quit()

cual es la forma correcta de hacerlo?
Gracias
Resistencia - "Ciudad de las Esculturas"

Chaco - Argentina
Posts: 1380
Joined: Fri Oct 14, 2005 01:28 PM
Re: Abrir archivo Excel e Insertar filas
Posted: Fri Dec 14, 2012 01:47 PM
Lo encontré (SOLUCIONADO)
http://forums.fivetechsupport.com/viewtopic.php?f=3&t=8953&hilit=Excel.Application+Insert#p42418

para mi caso
Code (fw): Select all Collapse
   oHoja:Rows( "1:10" ):Insert()

Saludos
Resistencia - "Ciudad de las Esculturas"

Chaco - Argentina

Continue the discussion