Automatizacion de excel con VFP9

207 views
Skip to first unread message

Manrique Flores

unread,
Sep 13, 2023, 2:05:22 PM9/13/23
to Comunidad de Visual Foxpro en Español
Hola buen dia, tengo un codigo que me pasa informacion de vfp a excel, pero de la noche a la mañana me dejo de funcionar, me genera bien la primera hoja1 sin problema pero al momento de agregar una hoja adicional es cuando me marco el error

este es el codigo de la primera hoja:
with m.oExcel
.visible =.T.  && muestra excel
.workbooks.add  && crea un libro de trabajo
        .workSheets(1).Activate 

hago todo el proceso y bien, pero al momento de generar el codigo para agregar una segunda hoja es donde me envia el error de ole y este es el codigo:

.workSheets(2).Activate

y no he podido quitar dicho error alguien me podria ayudar con esto


Gracias 

Sergio Lescano

unread,
Sep 13, 2023, 2:13:47 PM9/13/23
to publice...@googlegroups.com
Hola Manrique, buenas, probá de esta forma....

i = 0
Select cursorHojas
Go Top
Do While Not Eof()
       oExcel.Application.sheets.Add
       i = i + 1
     Select cursorHojas
   Skip
Enddo

Saludos


--
Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.
Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/aa9224bb-db27-4bbd-b677-faff63ede95an%40googlegroups.com.

Manrique Flores

unread,
Sep 13, 2023, 2:40:02 PM9/13/23
to Comunidad de Visual Foxpro en Español
gracias lo voy a realizar

gracias

Edwin Duran

unread,
Sep 13, 2023, 6:36:49 PM9/13/23
to Comunidad de Visual Foxpro en Español
Puede ser que no esta detectando que excel instalado Prueba este codigo

Try
oExcel   = Newobject("Excel.Application")
Catch To loExCreate
loExCreate.UserValue = Program()
Finally
Endtry

If Vartype(loExCreate) = "O"
Try
oExcel   = Newobject("ExcelScript.Workbook")
Catch To loExCreate
loExCreate.UserValue = Program()
Messagebox("No tiene la aplicación Microsoft Excel ® instalada",32,"a v i s o")
Finally
Endtry
Endif

If Vartype(loExCreate)  <>  "O"
Messagebox("Microsoft Excel esta ® instalada",32,"a v i s o")
endif

Antonio Jose Gomez Lazaro

unread,
Sep 13, 2023, 7:05:34 PM9/13/23
to publice...@googlegroups.com
¿Cuál es el código que usas para generar una nueva hoja?

--
Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.


--
Antonio J. Gomez Lazaro Web: NotasEli9

Fidel Charny

unread,
Sep 14, 2023, 6:06:59 PM9/14/23
to Comunidad de Visual Foxpro en Español
Fijate si te sirve esto:

loBook = loExcel.ActiveWorkbook
loBook.sheets.add()
loSheet = loExcel.ActiveSheet    && loSheet = loBook.Sheets(loExcel.Sheets.Count)

integral

unread,
Sep 15, 2023, 11:31:27 AM9/15/23
to Comunidad de Visual Foxpro en Español
Buenos Dias

Dejo el siguiente link en donde encontraras un buen ejemplo.
 
https://groups.google.com/g/publicesvfoxpro/c/91qgpFYSP0Y/m/6_VOMg8OAgAJ

Saludos,

Integral

Walter Valle

unread,
Sep 15, 2023, 12:22:10 PM9/15/23
to Comunidad de Visual Foxpro en Español
Hola, bueno tengo una función que te puede servir de ejemplo o para tu uso. No es 100% código hecho por mi pero su "lo pulí" para mis necesidades, en un rato pondré un post para que la bajen y prueben.

Saludos,

Walter Valle
San Pedro Sula, Honduras.

HernanCano

unread,
Sep 15, 2023, 10:20:43 PM9/15/23
to Comunidad de Visual Foxpro en Español
Walter: 
lo pusiste en otro hilo (diferente a éste: abriste otro hilo para el compartir).

Walter Valle

unread,
Sep 15, 2023, 11:23:07 PM9/15/23
to Comunidad de Visual Foxpro en Español
Hola Hernan,

Claro amigo, lo puse en otro hilo tal cual lo dije, aquí... Es porque la función cubre una función un poco mas extensa y allá podemos mejorarla y agregarle mas funcionalidades y nos beneficiamos todos.

Alejandro Garcia ya empezó a dar unos retoques excelentes.

Como les digo, adapte la función a mis necesidades y me ha trabajado al 100% , tengo en mis librerías de UDFs otras funciones que se combinan con C2E que no considere agregarlas, pero con todo lo que podamos agregarle la vamos a pulir.

Saludos!

Walter Valle

Reply all
Reply to author
Forward
0 new messages