Página 1 de 1
Archivos de excel
Publicado: Jue Mar 08, 2007 3:07 pm
por Christian
Como puedo hacer para abrirlos ?, probe con ODBC pero no funciona.
Archivos de excel
Publicado: Jue Mar 08, 2007 5:59 pm
por Rene Flores
Christian:
> Como puedo hacer para abrirlos ?, probe con ODBC pero no funciona.
No no no, no van por ahi los tiros, tienes que hacerlo por OLE, aqui te
va un ejemplo:
oExcel := TOleAuto():New( "Excel.Application" )
oExcel:WorkBooks:Open("yourfile.xls")
oHoja := oExcel:Get( "ActiveSheet" )
nRows := oHoja:UsedRange:Rows:Count()
nCols := oHoja:UsedRange:Columns:Count()
USE filedbf
FOR nRow := 2 TO nRows
APPEND BLANK
For nfrom := 1 TO nCols
FIELDPUT(nFrom, oHoja:Cells(nRow,nCol):Value)
NEXT
NEXT
Saludos
Rene Flores
http://www.ciber-tec.com
Archivos de excel
Publicado: Jue Mar 08, 2007 10:58 pm
por Christian
Muchas gracias ahora me pongo a disparar
"Rene Flores" <
rflores.removeforspam@ciber-tec.com> escribió en el mensaje
news:[email=
45f040e8@news.xailer.com...]
45f040e8@news.xailer.com...[/email]
> Christian:
>
>> Como puedo hacer para abrirlos ?, probe con ODBC pero no funciona.
>
> No no no, no van por ahi los tiros, tienes que hacerlo por OLE, aqui te
> va un ejemplo:
>
> oExcel := TOleAuto():New( "Excel.Application" )
> oExcel:WorkBooks:Open("yourfile.xls")
> oHoja := oExcel:Get( "ActiveSheet" )
> nRows := oHoja:UsedRange:Rows:Count()
> nCols := oHoja:UsedRange:Columns:Count()
>
> USE filedbf
> FOR nRow := 2 TO nRows
> APPEND BLANK
> For nfrom := 1 TO nCols
> FIELDPUT(nFrom, oHoja:Cells(nRow,nCol):Value)
> NEXT
> NEXT
>
> Saludos
>
> Rene Flores
>
http://www.ciber-tec.com