Xailer & OZ Software

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

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
>
>
>