FiveTech Support Forums

// INCIDENCIA....

#include "FiveWin.ch"

#define NL Chr( 10 ) + Chr( 13 )

Function MAin()

   LOCAL oExcel, oHoja, nRows, nCols
   LOCAL aCampos:={}, nRow, nCol
   LOCAL cTexto := Space( 0 ), xValue

   oExcel := TOleAuto():New( "Excel.Application" )

   oExcel:Visible := .T. // por si quieres ver la hoja abierta
   oExcel:WorkBooks:Open( cGetFile32("*.XLS", "Seleccione Fichero") )

   oHoja := oExcel:Get( "ActiveSheet" )

   nRows := oHoja:UsedRange:Rows:Count()
   nCols := oHoja:UsedRange:Columns:Count()

   /*USE <tu dbf>
   FOR nRow := 2 TO nRows
      APPEND BLANKFOR
      nCol := 1 TO nCols
      xValue := oHoja:Cells(nRow,nCol):Value
      FieldPut(nCol,xValue)
      SysRefresh()
   NEXT

   DBCOMMIT()
   Memory(-1)
   NEXT
   */

   FOR nRow := 2 TO nRows

      cTexto := Space( 0 )

      FOR nCol := 1 TO nCols
         xValue := oHoja:Cells(nRow,nCol):Value
         // MsgInfo( ValType( xValue ) )
         cTexto += xValue + NL
         // SysRefresh()
      NEXT

      MsgInfo( cTexto )

   NEXT

   Memory(-1)
   // oHoja:End()
   // oHoja:Quit()
   oExcel:Quit()
   // oExcel:End()

Return NIL

STATIC PROCEDURE Excel()

   LOCAL oExcel, oAS, oError

   TRY
      oExcel := GetActiveObject( "Excel.Application" )  // aca intenta levantar una instancia de excel si ya esta en ejecucion
   CATCH
      TRY
         oExcel := CreateObject( "Excel.Application" ) // si falla, levanta una nueva instancia
      CATCH oError
         Alert( "ERROR! Excel not avialable. [" + Ole2TxtError()+ "]" + oError:description )
         RETURN
      END
   END

   oExcel:WorkBooks:Add()

   oAS := oExcel:ActiveSheet()

   oAS:Cells:Font:Name := "Arial"
   oAS:Cells:Font:Size := 12

   oAS:Cells( 3, 1 ):Value := "Text:"
   oAS:Cells( 3, 2 ):Value := "Here is some text"
   oAS:Cells( 4, 1 ):Value := "Numeric:"
   oAS:Cells( 4, 2 ):NumberFormat := "#.##0,00"
   oAS:Cells( 4, 2 ):Value := 1234.50
   oAS:Cells( 5, 1 ):Value := "Logical:"
   oAS:Cells( 5, 2 ):Value := .T.
   oAS:Cells( 6, 1 ):Value := "Date:"
   oAS:Cells( 6, 2 ):Value := DATE()

   oAS:Columns( 1 ):Font:Bold := .T.
   oAS:Columns( 2 ):HorizontalAlignment := -4152  // xlRight

   oAS:Columns( 1 ):AutoFit()
   oAS:Columns( 2 ):AutoFit()

   oAS:Cells( 1, 1 ):Value := "OLE from xHarbour"
   oAS:Cells( 1, 1 ):Font:Size := 16
   oAS:Range( "A1:B1" ):HorizontalAlignment := 7

   oAS:Cells( 1, 1 ):Select()

   oExcel:Visible := .T.

RETURN