FoxPro/Visual FoxPro - Abrir archivo excel

 
Vista:
sin imagen de perfil

Abrir archivo excel

Publicado por victor espinosa (18 intervenciones) el 31/10/2006 21:19:19
Buenas Tardes Compañeros


Estoy pasando una consulta a un archivo excel, y funciona bien, pero necesito que despues de pasarlo a excel, el programa abra el archivo de excel inmediatamente.


Muchas Gracias, para las personas que me puedan ayudar.
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:Abrir archivo excel

Publicado por Gregory (187 intervenciones) el 31/10/2006 22:45:27
Revisa CreateObject(Escel, Application)

tambien en el ejemplo Solution hay un buen ejemplo.
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:Abrir archivo excel

Publicado por Plinio (7841 intervenciones) el 31/10/2006 22:51:47
archivo= "c:\tuarchivo.doc"
oShell=CreateObject("Shell.Application")
oShell.ShellExecute("&archivo")
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:Abrir archivo excel

Publicado por Plinio (7841 intervenciones) el 31/10/2006 22:52:27
Perdon... El archivo es .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
sin imagen de perfil

RE:Abrir archivo excel

Publicado por Ernesto Hernandez (4623 intervenciones) el 01/11/2006 04:27:44
Prueba este codigo

PUBLIC oForm
oForm = CREATEOBJECT("form1")
oform.addobject("xCell","xCell")
oform.visible = 1
DEFINE CLASS form1 AS form
DoCreate = .T.
Caption = "Form1"
Name = "Form1"
height = 400
width = 400
autocenter = .t.
ENDDEFINE

DEFINE CLASS xCell as olecontrol
oleclass ='Excel.Sheet.8'
documentfile = GETFILE("xls")
visible = .t.
left = 10
top = 10
height = 300
width = 300
ENDDEFINE


Suerte
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