FoxPro/Visual FoxPro - "URGE" Interacturar con excel desde VFP V9 SP2

   
Vista:

"URGE" Interacturar con excel desde VFP V9 SP2

Publicado por Zamora (67 intervenciones) el 06/05/2017 20:39:50
Buen día a tod@s, de antemano agradezco las atenciones y ayuda que pueda recibir.

Les comento, pretendo insertar datos en una hoja de Excel "xlsx" que tengo como una plantilla con formulas y enlaces.

para abrir el archivo utilizo este codigo:

DECLARE INTEGER ShellExecute IN Shell32.dll INTEGER hndWin, STRING cAtion, STRING cFileName, STRING cParams, INTEGER nShowWin
Archivo = "Archivo.xlsx"
ShellExcecute(0,"open"Archivo,"","",1)

Esta acción si me permite abrir el archivo que estoy utilizando como plantilla si lo modifico manualmente si me lo permite

Pero yo necesito insertar en ciertas casillas información, es donde estoy atorado porque lo que yo hacia, generar un archivo nuevo y darle formato con "loExcel = CREATEOBJET("Excel.Application").

La pregunta en concreto es: ¿Como puedo insertar datos en ciertas casillas abriendo el archvo "plantilla" de la nueva forma?.

Gracias a todos de antemano
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

"URGE" Interacturar con excel desde VFP V9 SP2

Publicado por Fidel José (552 intervenciones) el 07/05/2017 16:50:13
Para ir aprendiendo, te conviene usar el modo interactivo, desde la ventana de comandos y vas viendo lo resultados.
Para un libro nuevo:
1
2
3
4
5
6
7
8
9
10
loExcel = NEWOBJECT("Excel.Application")
loExcel.Workbooks.Add()
loExcel = null
loExcel = NEWOBJECT("Excel.Application")
lobook = loExcel.Workbooks.Add()
loSheet = loExcel.ActiveSheet
loSheet.Cells(1,1).Value = 5
loExcel.Visible = .t.
loExcel.Quit
loExcel = null

Para un libro existente:
1
2
3
4
5
6
7
8
9
10
11
lcFileName = "c:\Users\Fidel\Documents\gex__4WS0LAK7P.xlsx"
loExcel = NEWOBJECT("Excel.Application")
loExcel.Workbooks.Open(m.lcfilename)
loSheet = loExcel.Sheets(1)
loExcel.Visible = .t.
loSheet.Cells(8,6).Value = 18426.12
loSheet.Cells(28,2).Value = "Pongo una Fecha"
loSheet.Cells(28,3).Value = DATE()
loExcel.Save()
loExcel.Quit
loExcel = null

Nota que la función Cells se escribe: Cells(nRow , nColumn )

Con esto vas construyendo hasta lograr lo que quieres. Fijate que al poner el punto en cada objeto de Excel, te aparecen las posibilidades en el Ide. Cualquier duda consultas en Google que te manda al centro de ayuda de Microsoft.
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

"URGE" Interacturar con excel desde VFP V9 SP2

Publicado por Zamora (67 intervenciones) el 08/05/2017 01:28:49
Fidel te agradezco el apoyo es precisamente lo que buscaba, 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
Revisar política de publicidad