FoxPro/Visual FoxPro - Pasar de DBF a XLS

   
Vista:

Pasar de DBF a XLS

Publicado por Federico (4 intervenciones) el 22/02/2002 14:18:53
Buenos Dias.
Tengo el siguiente problema. Cuando paso de DBF a EXCEL con el Comanto COPY TO XLS o EXPORT solo me copia los primeros 16000 registros de la tabla cuando yo necesito pasar todos. Estoy trabajando con la version 6.0.

Saludos Atte.
Federico Gordillo
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
1
Responder

RE:Pasar de DBF a XLS

Publicado por Lucy Diana (48 intervenciones) el 23/02/2002 00:45:22
Hola, bueno solo te digo que si usas
COPY TO Miarchivo.dbf TYPE FOX2X
copiaras todos tus datos a una tabla que puede ser leida por excel.
Puedes intentar poniendo
COPY TO Miarchivo.xls TYPE FOX2X
asi te aseguraras que tenga la extension de excel pero te copiara los datos. Preuba y me avisas
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar

RE:Pasar de DBF a XLS

Publicado por Müriel  (1 intervención) el 25/06/2009 23:33:40
Gracias, eso mismo quería hacer aunque estoy trabajando con VFP5 y me sirvió de mucho el usar COPY TO Miarchivo.xls TYPE FOX2X
Muy agradecida.
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:Pasar de DBF a XLS

Publicado por GUSTAVO (1 intervención) el 17/03/2015 21:47:24
muchas gracias con ese comando pude pasar mas de 16000 registros!!!!
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:Pasar de DBF a XLS

Publicado por PAUL (1 intervención) el 13/06/2016 02:19:12
Muchas gracias trabajo con bases de fox con cantidades enormes de registros y nunca he podido encontrar un paso simple para convertirlo en excel.
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:Pasar de DBF a XLS

Publicado por jorge jfranco3000@gmail.com (1 intervención) el 01/03/2017 05:13:05
No entendi ni mela....estando en la ventana de comando de fox debo tipear: miarchvo.xls type fox2x ?
pero si mi archivo es dbf como fox va a reconocer un arcbivo que no existe?
pueden ser mas explicito (paso a paso)
gracias
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:Pasar de DBF a XLS

Publicado por Fidel José (380 intervenciones) el 01/03/2017 14:21:44
Suponte:
SELECT CLIENTES
COPY TO MisClientes.xls TYPE FOX2X
Con eso consigues generar una tabla dbf (tipo xbase compatible) llamada MisClientes con extensión xml. Este tipo de tablas son reconocidas por Microsoft Excel por lo que la puedes abrir sin más con ese programa. Sigue siendo una tabla DBF, aunque la puedes convertir al formato nativo de Excel.

En cuanto a la automatización, es algo para estudiar. Te tiro un ejemplo muy básico

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
* Generar un cursor para pasar a Microsoft Excel por Automatización
SELECT nombre,idclien,cuit,calle,numero,ciudad,provincia ;
	FROM clientes ;
	WHERE !EMPTY(idclien) ;
	ORDER BY nombre ;
	INTO CURSOR curClien READWRITE
 
Export_Excel("curClien")
 
 
 
 
PROCEDURE export_excel
*---------------------
LPARAMETERS tcCursor
 
LOCAL loExcel as Object,;
	loSheet as Object,;
	loBook as Object,;
	lnItem,;
	lnRow,;
	lnCol,;
	lnFields,;
	lcField,;
	lcType,;
	lxValor,;
	lxDefault,;
	lnPasos,;
	loExCreate as Exception,;
	loExGen as Exception
 
 
 
 
lnRow = 0
lnCol = 0
lnPasos = 0
lnFields = AFIELDS(laFields,m.tcCursor)
TRY
	loExcel = NEWOBJECT("Excel.Application")
CATCH TO loexCreate
	loExCreate.UserValue = PROGRAM()
	MESSAGEBOX("No tiene la aplicación Microsoft Excel ® instalada")
 
FINALLY
 
ENDTRY
 
IF VARTYPE(loExCreate) # "O"
	TRY
		loBook = loExcel.workbooks.ADD()
		loSheet = loExcel.ActiveSheet
 
		SELECT (m.tcCursor)
		SCAN
			lnRow = m.lnRow + 1
			lnCol = 0
			FOR lnItem = 1 TO m.lnfields
				lxValor = EVALUATE(FIELD(m.lnItem,m.tcCursor))
				lcType = VARTYPE(m.lxValor)
				lxDefault = ICASE(m.lcType="N",0,;
							m.lcType="C","",;
							m.lcType="L",".f.",;
							m.lcType="D",null,;
							m.lctype="T",null,;
							"")
				IF m.lcType = "L"
					lxValor = TRANSFORM(m.lxValor)
				ELSE
					IF EMPTY(m.lxvalor)
						lxValor = m.lxDefault
					ENDIF
				ENDIF
 
				lnCol = m.lnCol + 1
				loSheet.Cells(m.lnRow,m.lnCol).Value = m.lxValor
			ENDFOR
			lnPasos = m.lnPasos + 1
			IF lnPasos > 99
				WAIT WINDOW TRANSFORM(m.lnRow)+" Registros Transferidos..." AT 15,20 NOWAIT
				lnPasos = 0
			ENDIF
		ENDSCAN
		loSheet.COLUMNS.AUTOFIT
	CATCH TO loexGen
		loExGen.UserValue = PROGRAM()
		ShowError(loexGen)
	FINALLY
		WAIT CLEAR
		loExcel.Visible = .t.
 
		loSheet = null
		loBook = null
		loExcel = null
		USE IN SELECT(m.tcCursor)
	ENDTRY
 
ENDIF
 
ENDPROC

En este enlace podés ver otra forma que también te puede interesar.
https://comunidadvfp.blogspot.com/2006/10/exportar-cursor-vfp-excel.html
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:Pasar de DBF a XLS

Publicado por JJ (1 intervención) el 07/04/2017 05:58:12
Hola!

Muchas gracias por el tip, logré pasar más de 40,000 registros de una consulta a un archivo excel.

Saludos desde CDMX, México.
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:Pasar de DBF a XLS

Publicado por Lucy Diana (48 intervenciones) el 23/02/2002 00:46:05
Hola, bueno solo te digo que si usas
COPY TO Miarchivo.dbf TYPE FOX2X
copiaras todos tus datos a una tabla que puede ser leida por excel.
Puedes intentar poniendo
COPY TO Miarchivo.xls TYPE FOX2X
asi te aseguraras que tenga la extension de excel pero te copiara los datos. Preuba y me avisas
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar

RE:Pasar de DBF a XLS

Publicado por ElSuperRo (98 intervenciones) el 25/02/2002 02:50:56
usa el comando EXPORT TO aa.xls type xls fiels a,b,c,d,etc...
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:Pasar de DBF a XLS

Publicado por roger (2 intervenciones) el 20/04/2017 17:50:58
con este comando solo exporta 65635 registros...
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:Pasar de DBF a XLS

Publicado por roger coraje001@hotmail.com (2 intervenciones) el 20/04/2017 17:52:33
excelente la manera mas facil y rapida de exportar.
gracias logre exportar 229 000 registros.

atte.

roger
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:Pasar de DBF a XLS

Publicado por Jose Rolando (331 intervenciones) el 25/02/2002 13:34:10
Hola
yo tengo un ejemplo de como pasar de dbf a excel y te permite seleccionar la tabla que deseas convertir. Si lo quieres escribeme y te lo envio porque ahora no lo tengo a mano, ok?
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:Pasar de DBF a XLS

Publicado por CARLOS ARTURO (1 intervención) el 20/09/2007 16:23:33
por remiteme el procedimiento para pasar una tabla DBF A XLS
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:Pasar de DBF a XLS

Publicado por Gustavo (31 intervenciones) el 23/11/2012 18:32:54
Hola Jose, estoy necesitando hacer esta tarea, me podrias pasar tu ejemplo de como pasar de dbf a excel?

Desde ya muchas gracias, 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:Pasar de DBF a XLS

Publicado por frank ventas@sofven.com (1 intervención) el 24/04/2014 00:23:24
Hola Rolando me puedes pasar el codigo para pasar dbf a xls e implementarlo en mi sistema.

Saludos y gracias por su apoyo
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:Pasar de DBF a XLS

Publicado por Ramgar dramirezg1@hotmail.com (1 intervención) el 19/10/2016 05:02:08
Me podrian ayudar necesito pasar un DBF a Excel pero el archivo pesa 3GB si me pueden ayudar por favor
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:Pasar de DBF a XLS

Publicado por jhonatan (1 intervención) el 04/08/2007 19:10:49
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
resp=MESSAGEBOX("¿Despues de convertir la tabla, el sistema se cerrará" + chr(13);
+ "para evitar conflictos de incompatibilidad." + chr(13)+;
chr(13)+ ;
 "                 ¿Desea continuar?                  ",4+32+0,"Personal Municipal")
IF resp=6 &&si
	gcTableName = GETFILE('DBF', 'Nombre de archivo:')
	IF EMPTY(gcTableName)  && Esc presionada
		RETURN
	ENDIF
	USE (gcTableName)
	gcDelimName = ALIAS( ) + '.XLS'
	gcDelimFile = PUTFILE('Nombre de archivo:', gcDelimName, 'XLS')
	IF EMPTY(gcDelimFile)  && Esc presionada
		RETURN
	ENDIF
	Wait Windows "Convirtiendo tabla a hoja de cálculo." + CHR(13) +;
	"Espere uno segundos por favor..." NOWAIT
	COPY TO (gcDelimFile) TYPE XL5
	Wait Windows "Proceso completado" TIMEOUT 3
	*CLOSE ALL
	CLEAR ALL
	*QUIT
	ELSE
ENDIF
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
Imágen de perfil de Paramaconny

RE:Pasar de DBF a XLS

Publicado por Paramaconny gasesw@gmail.com (1 intervención) el 05/12/2016 14:37:38
Hola Buenos Días. Pregunta: ¿Como exportar tablas DBF hacia una Hoja excel en un libro especifico y unas celdas especificas? Gracias por sus comentarios por anticipado.
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:Pasar de DBF a XLS

Publicado por Fidel José (380 intervenciones) el 05/12/2016 16:03:20
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar

Pasar de DBF a XLS

Publicado por CLAUDIO REYES  (6 intervenciones) el 23/01/2009 03:17:47
HOLA COMO ESTAS, MI NOMBRE ES CLAUDIO, TE ESCRIBO DE LA PLATA BUENOS AIRES ARGENTINA.
POR FAVOR ME PODRIAS MANDAR EL FUENTE QUE TENES PARA PASAR DE DBF A XLS .
EN REALIDA YO SOLO QUIERO PASAR UNA TABLA Y SE QUE CON “ COPY TO conteo.dbf TYPE FOX2X” SE PUEDE, PERO COMO HAGO PARA DARLE LA RUTA DONDE QUIERO QUE SE GUARDE LA HOJA DE EXCEL ?
UN ABRAZO Y MUCHAS GRACIAS.
CLAUDIO
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:Pasar de DBF a XLS

Publicado por fidel (2 intervenciones) el 25/06/2009 03:24:12
copy to unidad: utaconteo.dbf type fox2x
te sirve?
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