Clipper/FiveWin - archivo xls (excel) a Dbf

 
Vista:

archivo xls (excel) a Dbf

Publicado por James Andrade (1 intervención) el 24/11/2005 18:11:19
he intentado guardar un archivo xls a dbf por mdio del comando guardar como, pero al abrirlo con el dbase 3 me dice que no es una base de datos alguien m podria explicar como hago o que utlizo para esto gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:archivo xls (excel) a Dbf

Publicado por Luis Ponce (119 intervenciones) el 24/11/2005 19:25:35
Con que trabajas, si es con FiveWin puedes utilizar la FileXls.lib, es sencilla, si no la ubicas yo la tengo...

Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:archivo xls (excel) a Dbf

Publicado por Gabriel Pascual (913 intervenciones) el 25/11/2005 06:34:27
Si utilizas Fivewin, mejor utiliza OLE para leer directamente las celdas de la hoja y guardarlas sobre la DBF sin necesidad de hacer nada de por medio, este es el ejemplo:

FUNCTION XLS2DBF
LOCAL oExcel, oHoja, nRows, nCols
LOCAL TCampos:={}, nRow, nCol
oExcel := TOleAuto():New( "Excel.Application" )
oExcel:Visible := .T. // por si quieres ver la hoja abierta
oExcel:WorkBooks:Open(cGetFile("*.XLS", "Seleccione Fichero"))
oHoja := oExcel:Get( "ActiveSheet" )
nRows := oHoja:UsedRange:Rows:Count()
nCols := oHoja:UsedRange:Columns:Count()
USE IMPDIAR
FOR nRow := 2 TO nRows
APPEND BLANK
FOR nCol := 1 TO nCols
xValue := oHoja:Cells(nRow, nCol):Value
FieldPut(nCol,xValue)
SysRefresh()
NEXT
DBCOMMIT()
NEXT
oHoja:End()
oExcel:End()
RETURN
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar