Clase para leer / escribir hojas de excel

[devtuxtla]

Hola FiveWinners

Cual es la clase para leer y/o escribir hojas de excel, sin que tengas excel instalado en tu sistema?

Gracias...

Saludos

[karinha]

Mira se ayuda:

Code: Select all  Expand view

FUNCTION ReadFromExcel( cFile, xColumnas, nHojaExcel, nFilasVacias, lConvertNulls )

LOCAL oExcel, oPage
LOCAL aDatos := {}, aLinea := {}, nLine := 0, nCol := 0, lVacio := .F., nContador:=0
LOcal nFilas:=0, nColumnas:=0

DEFAULT xColumnas TO 256
DEFAULT nHojaExcel TO 1
DEFAULT nFilasVacias TO 20
DEFAULT lConvertNulls TO .T.


IF !File( cFile )
MsgStop( "No existe el documento Excel " + cFile)
RETURN {}
ENDIF

TRY
oExcel := GetActiveObject( "Excel.Application" )
CATCH
TRY
oExcel := CreateObject( "Excel.Application" )
CATCH
MsgInfo( "Excel no disponible. [" + Ole2TxtError() + "]" )
RETURN .F.
END
END

oExcel:WorkBooks:Open( cFile )
oPage := oExcel:WorkSheets( nHojaExcel )

If ValType(xColumnas)="A"
nFilas:=xColumnas[1]
nColumnas:=xColumnas[2]
Else
nColumnas:=xColumnas
Endif

MsgWait( "Leyendo datos de Hoja Excel",,"Excel" )

FOR nLine := 1 TO 65536
lVacio := .T.
aLinea := {}
FOR nCol := 1 TO nColumnas
AAdd( aLinea, IF(lConvertNulls .And. oPage:Cells( nLine, nCol ):Value=Nil,'',oPage:Cells( nLine, nCol ):Value ) )
IF lVacio .AND. !Vacio( aLinea[ Len( aLinea ) ] )
lVacio := .F.
nContador := nFilasVacias
ENDIF
NEXT

//Limite de filas si se ha requerido
If nFilas<>0 .And. nLine>nFilas
Exit
Endif

IF lVacio
nContador--
IF nContador = 0
EXIT
ENDIF
ELSE

AAdd( aDatos, aLinea )
ENDIF
NEXT

oExcel:Quit()

RETURN aDatos
 



[karinha]

http://forums.fivetechsupport.com/viewtopic.php?f=6&t=17030&p=122340&hilit=clase+TExcel#p122340

[devtuxtla]

Hola Karinha.

Gracias por responder, pero los dos ejemplos requieren tener instalado MS OFFICE en la PC donde se ejecuta.

El proceso de lectura y escritura de tablas de excel se ejecutara del lado de server, donde NO se permite tener OFFICE o algo similar como OPEN OFFICE.

Asi que la lectura / escritura deber ser sin EXCEL.

Saludos

[karinha]

y si usted pasar a *.PDF puede ó no? Saludos.

[horacio]

Puedes usar la clase TFileXls que escribe un archivo .xls sin necesidad de tener instalado Ms-Office.

Saludos