FoxPro/Visual FoxPro - Migrar Excel a dbf

 
Vista:

Migrar Excel a dbf

Publicado por IDELSY (25 intervenciones) el 09/11/2015 17:52:36
Que tal amigos y amigas de este prestigioso foro,

En esta oportunidad quisiera que alguien pueda decirme sobre como pasar una archivo de excel a dbf y si fuera posible como se hace de dbf a excel.

Veo muchos procedimientos para hacer esto en la web pero no se que pasa siempre dan problemas.
Aqui algunos de ellos:
IMPORT FROM Archivo.XLS TYPE XLS

IMPORT FROM Archivo.XLS TYPE XLS SHEET NombreHoja

EXPORT TO aa.xls type xls fiels a,b,c,d,etc

He intentado hacerlo guardando el archivo de excel como dbase IV pero excel solo permite llamarlo como dbase IV pero al guardarlo no da esta opcion.
Si alguien ha logrado hacer esto con procedimiento sencillo por favor ayudenme.
El archivo de Excel que quiero pasar a dbf se llama INVENTARIO.
Gracias por estar siempre disponibles.
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
sin imagen de perfil

Migrar Excel a dbf

Publicado por neo (1604 intervenciones) el 09/11/2015 22:00:19
Saludos,

Existen dos opciones que yo utilizo a la hora de importar de Excel a Dbf

1. El archivo de excel, guardarlo como .xl5 (Esto si el archivo es menor a 16,600 registros)

2. Si el archivo tiene mas de 16,000 registros en tonces puedes guardar el archivo de excel como .csv

una vez que ya tengas el archivo en cualquiera de las 2 opciones anteriores, ya puedes importar.

En la ventana de comandos de VFP escribe lo siguiente:

Append from C:\MiArchivo_de_Excel.xls type xl5
o'
Append from C:\MiArchivo_de_excel.csv type csv


y para exportar basta con:

Copy to C:\Mi_Archivo_de_Excel.xl5 type xl5
ó
Copy to C:\Mi_Archivo_de_Excel.csv typr csv
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

Migrar Excel a dbf

Publicado por Gerardo Ramirez (16 intervenciones) el 10/11/2015 00:34:39
APPEND FROM FileName | ?[FIELDS FieldList] [FOR lExpression]

[[TYPE] [DELIMITED [WITH Delimiter | WITH BLANK | WITH TAB

| WITH CHARACTER Delimiter] | DIF | FW2 | MOD | PDOX | RPD |

SDF | SYLK | WK1 | WK3 | WKS | WR1 | WRK | CSV | XLS | XL5

[SHEET cSheetName] | XL8 [SHEET cSheetName]]] [AS nCodePage]
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
sin imagen de perfil
Val: 29
Ha aumentado su posición en 2 puestos en FoxPro/Visual FoxPro (en relación al último mes)
Gráfica de FoxPro/Visual FoxPro

Migrar Excel a dbf

Publicado por richard (197 intervenciones) el 12/11/2015 18:14:07
tambien puedes usar CODIGO Y funciona muy bien

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
LOCAL oExcel, lfiladatos, ifila, icolumna, cfile
	iFila = 1
	iColumna = 1
	Filadatos = .T.
	oExcel = CREATEOBJECT("Excel.application")
	cfile = "C:\mi_directorio\archivo.xls"
	oExcel.workbooks.open(cfile)
*********
	DO WHILE filadatos
	use mi_tabla
	IF VARTYPE (oExcel.cells(ifila,1).value)= .NULL.
	 Filadatos = .F.
	 oExcel.Quit
	ELSE
      lcr = oExcel.cells(iFila,1).value
      lcf = oExcel.cells(iFila,2).value
      lcfv= oExcel.cells(iFila,3).value
      lcd = oExcel.cells(iFila,4).value
      lci = oExcel.cells(iFila,5).value
      lva = oExcel.cells(iFila,6).value
		IF lcfv = .null.
		 lcfv = lcf
		  endif
	SELECT tbproce
	INSERT INTO tbproce (idradi,fecha,fechav,obli,radi,valor);
		 values	(lcr,lcf,lcfv,lcd,lci,lva)
	iFila = iFila + 1
	ENDIF
	ENDDO
	oExcel.quit
********************
espero te sirva


atentamente,


Richard
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

Migrar Excel a dbf

Publicado por IDELSY (25 intervenciones) el 13/11/2015 18:53:32
Gracias a todos,

Intentare hacerlo de estas formas pero lo hice abriendolo en access y luego de aqui exportandolo a dbase, funciona sin problemas.

gracias nuevamente a todos.
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