Estimados Consultores:
Quisiera saber si es posible trasladar una tabla de excel de 5 columnas con
300 registros con datos de texto a una Tabla.DBF, conozco que se puede hacer
directamente desde Excel, pero quiero saber si es posible hacerlo con
Xailer-Xharbour, me pueden mandar un ejemplo en caso de que se pueda.
Francisco
In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
Pasar tabla Excel a DBF
-
Rene Flores
- Mensajes: 620
- Registrado: Jue Mar 23, 2006 2:39 am
Pasar tabla Excel a DBF
Francisco:
Se puede usando OLE hasta con xHarbour en modo consola
.
Ahi te va:
FUNCTION LeeExcel
LOCAL oExcel, oHoja, nRows, nCols
LOCAL TCampos:={}, nRow, nCol
oExcel := TOleAuto():New( "Excel.Application" )
oExcel:WorkBooks:Open("prueba.xls")
oHoja := oExcel:Get( "ActiveSheet" )
nRows := oHoja:UsedRange:Rows:Count()
nCols := oHoja:UsedRange:Columns:Count()
USE archivo.dbf
FOR nRow := 2 TO nRows
cBuffer := ""
APPEND BLANK
FOR nCol := 1 TO nCols
xValue := oHoja:Cells(nRow, nCol):Value
FIELDPUT(nCol, xValue)
NEXT
NEXT
oExcel:Quit()
oHoja:End()
RETURN
Ing. Francisco Gonzí¤lez Herrera escribió:
> Estimados Consultores:
>
> Quisiera saber si es posible trasladar una tabla de excel de 5 columnas con
> 300 registros con datos de texto a una Tabla.DBF, conozco que se puede hacer
> directamente desde Excel, pero quiero saber si es posible hacerlo con
> Xailer-Xharbour, me pueden mandar un ejemplo en caso de que se pueda.
>
> Francisco
>
>
>
Se puede usando OLE hasta con xHarbour en modo consola
.Ahi te va:
FUNCTION LeeExcel
LOCAL oExcel, oHoja, nRows, nCols
LOCAL TCampos:={}, nRow, nCol
oExcel := TOleAuto():New( "Excel.Application" )
oExcel:WorkBooks:Open("prueba.xls")
oHoja := oExcel:Get( "ActiveSheet" )
nRows := oHoja:UsedRange:Rows:Count()
nCols := oHoja:UsedRange:Columns:Count()
USE archivo.dbf
FOR nRow := 2 TO nRows
cBuffer := ""
APPEND BLANK
FOR nCol := 1 TO nCols
xValue := oHoja:Cells(nRow, nCol):Value
FIELDPUT(nCol, xValue)
NEXT
NEXT
oExcel:Quit()
oHoja:End()
RETURN
Ing. Francisco Gonzí¤lez Herrera escribió:
> Estimados Consultores:
>
> Quisiera saber si es posible trasladar una tabla de excel de 5 columnas con
> 300 registros con datos de texto a una Tabla.DBF, conozco que se puede hacer
> directamente desde Excel, pero quiero saber si es posible hacerlo con
> Xailer-Xharbour, me pueden mandar un ejemplo en caso de que se pueda.
>
> Francisco
>
>
>