Hoja excel - MariaDB
Posted:
Thu Dec 23, 2021 12:08 amby 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¡
Re: Hoja excel - MariaDB
Posted:
Thu Dec 23, 2021 5:55 amby carlos vargas
Te la paso mañana....
, dejame buscarla en el trabajo...
Re: Hoja excel - MariaDB
Posted:
Thu Dec 23, 2021 9:16 pmby JoseAlvarez
carlos vargas wrote:Te la paso mañana....
, dejame buscarla en el trabajo...
Gracias Carlos, ya lo recibi
Agradecido una vez mas.
Un abrazo.
Re: Hoja excel - MariaDB
Posted:
Thu Dec 23, 2021 9:35 pmby Compuin
JoseAlvarez wrote:carlos vargas wrote: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.comGracias
Re: Hoja excel - MariaDB
Posted:
Fri Dec 24, 2021 1:58 amby 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.