FoxPro/Visual FoxPro - Consulta de exportación a excel

   
Vista:
Imágen de perfil de Yogui

Consulta de exportación a excel

Publicado por Yogui (79 intervenciones) el 08/05/2014 17:42:23
Holaaaa, tengo una consulta
Tengo un formulario, en donde tengo varios textboxs, luego tengo un query y ese resultado lo exporto a un excel con un nombre que conformo con los campos del textbox, todo eso me funciona bien así:

nombre_nuevo="año"+thisform.text1.value+"_entre_"+thisform.text2.value+thisform.text3.value
nombre_archivo=nombre_nuevo
EXPORT TO &nombre_archivo TYPE XL5

Sucede que ese archivo en excel se almacena en la carpeta del visual, lo que yo quisiera es darle una ruta y además, una vez exportado, quisiera que ejecute el archivo, o sea, que lo abra, no sé si habrá forma de que se pueda hacer eso?

Saludos
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

Consulta de exportación a excel

Publicado por Fidel José (558 intervenciones) el 08/05/2014 20:52:15
lcPath=Alltrim(Thisform.TxtDestino.value) && un textbox donde colocas la ruta.
nombre_nuevo="año"+thisform.text1.value+"_entre_"+thisform.text2.value+thisform.text3.value
nombre_archivo=Addbs(lcPath) + nombre_nuevo
EXPORT TO &nombre_archivo TYPE XL5

OpenExcel( nombre_archivo )

1
2
3
4
5
6
7
8
9
10
11
12
13
PROCEDURE openExcel
LPARAMETERS xcFile                 && Path + FileName
TRY
	LOCAL oExcel
	LOCAL loex as Exception
	oExcel = CREATEOBJECT("Excel.Application")
	oExcel.Workbooks.Open("&xcfile")
	oExcel.visible=.t.
CATCH TO loEx
	MESSAGEBOX("No tiene Microsoft Excel en su sistema")
FINALLY
ENDTRY
ENDPROC
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 Yogui

Consulta de exportación a excel

Publicado por Yogui (79 intervenciones) el 09/05/2014 19:52:33
Hola Fidel, el VFP que uso no me reconoce el try catch, uso el VFP5, en todo caso lo quité, pero no me reconoce tampoco el createobject, probé colocando newobject y tampoco funciona. :S
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