Hoja excel - MariaDB

[JoseAlvarez]

Hola a todos.
Necesito exportar algunos campos desde una tabla de mariaDB a una hoja excel.
Segun he leido acá, puedo usar la clase FileXls para hacerlo y tambien lei que hay un manual y ejemplos para implementarla. Busque en la parte de utilerias pero todo los enlaces para su descargar ya no funcionan.

Alguien puede ayudarme con esto?

Gracias de antemano¡

[carlos vargas]

Te la paso mañana.... , dejame buscarla en el trabajo...

[JoseAlvarez]

Te la paso mañana.... , dejame buscarla en el trabajo...

Gracias Carlos, ya lo recibi

Agradecido una vez mas.

Un abrazo.

[Compuin]

Te la paso mañana.... , dejame buscarla en el trabajo...

Gracias Carlos, ya lo recibi

Agradecido una vez mas.

Un abrazo.

Hola Jose

Puedes compartirla conmigo tambien?

compuin@gmail.com

Gracias

[artu01]

jose yo lo hago asi...pero hay muchos mas metodos y propiedades hechos en fw, seria bueno que hubiese un doc en donde se detalle cada uno de ellos

Code: Select all  Expand view

oExcel := TOleAuto():New( "Excel.Application" )
 
oExcel:WorkBooks:Add()
oWin := oExcel:ActiveWindow
oHoja := oExcel:ActiveSheet()

oHoja:Cells( 1,  1  ):Value := "LISTADO DE ARTICULOS MES "+LADESMES(mMes)
oHoja:Range( "A1:H1"):HorizontalAlignment := 7
oHoja:Rows(    1 ):Font:Bold   := .T.
oWin := oExcel:ActiveWindow
oWin:SplitRow := 2
oWin:FreezePanes := .t.
oHoja:Rows(    2 ):Font:Bold   := .T.
oHoja:Cells( 2,  1  ):Value := "Codigo"
oHoja:Cells( 2,  2  ):Value := "Descripcion"
oHoja:Cells( 2,  3  ):Value := "Um"
oHoja:Cells( 2,  4  ):Value := "Cap"
oHoja:Cells( 2,  5  ):Value := "Cant"
oHoja:Cells( 2,  6  ):Value := "Metros"
oHoja:Cells( 2,  7  ):Value := "Precio"
oHoja:Cells( 2,  8  ):Value := "Importe"
fila=3

DEFINE CLIPBOARD oClp OF oSelDlg

ARTICULO->(DBGotop())
 
 oClp:Clear()

 Do While articulo->(!Eof())

       
    oClp:SetText( Trans(ARTICULO->Cod,"@") + chr( 9 ) + ;
                    ARTICULO->DesG + chr( 9 ) + ;
                    ARTICULO->Um  + chr( 9 ) + ;
                    Trans(ARTICULO->Cap,"9,999") + chr( 9 ) + ;
                    Trans(nsaldo,"99,999") + chr( 9 ) + ;
                    Trans(nsaldomts,"999,999,999")+ chr( 9 ) + ;
                    Trans(nPrecio,"9,999.9999")+ chr( 9 ) + ;
                    Trans(nimporte,"999,999,999.99"))

    oHoja:Cells( fila, 1 ):Select()

    oHoja:Paste()
    fila++

    oClp:Clear()
    articulo->(dbskip())
 EndDo
 oHoja:Columns( 1 ):AutoFit()
 oHoja:Columns( 2 ):AutoFit()
 oHoja:Columns( 3 ):AutoFit()
 oHoja:Columns( 4 ):AutoFit()
 oHoja:Columns( 5 ):AutoFit()
 oHoja:Columns( 6 ):AutoFit()
 oHoja:Columns( 7 ):AutoFit()
 oHoja:Columns( 8 ):AutoFit()
 oHoja:Columns( 7 ):NumberFormat := "##0.0000"
 oHoja:Columns( 8 ):NumberFormat := "##,##0.00"
 oHoja:Columns( 1 ):NumberFormat := "@"

 oExcel:Visible := .T.