Hola, Javier.
El ejemplo que te adjunto no es tan completo como el de Héctor, pero te lo
envío por si es de ayuda.
Lo utilizo para obtener las direcciones email, junto con algún dato más, del
AS400 y grabarlo todo en .CSV para importarlo más tarde a la libreta de
direcciones de outlook express.
Usa una conexión ODBC. El código específico de excel lo he ido obteniendo a
base de grabar macros y luego uniéndolas todas bajo un mismo procedicimiento.
"Manualmente" también creé una consulta para obtener los datos del AS400, que
luego refresca automáticamente.
Espero que te sirva un poco de ayuda.
Un saludo.
Víctor Díaz.
----- Original Message -----
From: Javier Mora
To: forum.help400
Sent: Tuesday, March 17, 2009 3:52 PM
Subject: RE: Acceso al iSeries desde Excel+VBA
Hola Hector:
Tengo habilitada la posibilidad de ejecutar macros y no me pide contraseña.
Además, me deja abrir el proyecto donde está el código VB, pero no me visualiza
nada. Cuando intento pinchar en formularios o objetos me aparece el mensaje ya
indicado.
------------------------------------------------------------------------------
De: [email protected]
[mailto:[email protected]] En nombre de Hector Vera G.
Enviado el: martes, 17 de marzo de 2009 14:46
Para: forum.help400
Asunto: RE: Acceso al iSeries desde Excel+VBA
Javier,
Excel tiene un nivel de seguridad para poder ejecutar macros y código en
V.B.
Revisa si tienes configurado Excel para poder ejecutar macros. si el
proyecto esta protegido la clave es: hevego
Saludos,
Hector
De: [email protected]
[mailto:[email protected]] En nombre de Javier Mora
Enviado el: Martes, 17 de Marzo de 2009 06:51 a.m.
Para: forum.help400
Asunto: RE: Acceso al iSeries desde Excel+VBA
Hola Hector:
Estoy intentando revisar y probar el ejemplo que enviaste. Al intentar abrir
el proyecto para ver el código VB me aparece el error "El proyecto no se puede
mostrar". Desconozco cual es la razón. ¿Es posible que falte algo en el
proyecto?
Estoy interesado en probar lo que me envías.
Un saludo.
Javier Mora
------------------------------------------------------------------------------
De: [email protected]
[mailto:[email protected]] En nombre de Hector Vera G.
Enviado el: jueves, 12 de marzo de 2009 17:22
Para: forum.help400
Asunto: RE: Acceso al iSeries desde Excel+VBA
Javier, aquí te paso un Excel que usa un query para accesar tablas del
Iseries, lo hace via ODBC por lo tanto tendras que configurar un acceso para
conectar Excel y el Iseries.
Para ver la lógica usada entras al Excel y le das alt +F11 y veras el
código que me sirve para hacer un join y mostrar el resultado en Excel.
Si tienes tienes alguna duda, aquí me encuentras.
Saludos,
Hector
De: [email protected]
[mailto:[email protected]] En nombre de Javier Mora
Enviado el: Jueves, 12 de Marzo de 2009 10:04 a.m.
Para: forum.help400
Asunto: RE: Acceso al iSeries desde Excel+VBA
Hola Martín:
Es posible que no me explicara bien en mi correo inicial. NO TENGO NI IDEA DE
VISUAL BASIC NI .NET. ;-)
Detallo un poco más mi problema. Necesito programar una macro en Excel que
acceda a uno o varios ficheros del iSeries para extraer información (p.e. con
SQL) y, además, necesito ejecutar un mandato. Si no me equivoco, las macros de
Excel se programan en Visual Basic o en VBA (creo que es casi lo mismo) y que
al iSeries se puede acceder usando ADO (posiblemente no necesite ADO.NET).
Excel ya lleva integrado un editor para el código. No tengo muchos
conocimientos sobre este tema y solo quiero o un pequeño ejemplo que me pueda
servir de guía o algún enlace a algún recurso que me pueda ayudar a desarrollar
lo que quiero.
Cualquier ayuda será bienvenida.
Javier Mora
------------------------------------------------------------------------------
De: [email protected]
[mailto:[email protected]] En nombre de
[email protected]
Enviado el: jueves, 12 de marzo de 2009 13:54
Para: forum.help400
Asunto: Re: Acceso al iSeries desde Excel+VBA
Hola Javier, tu pregunta tiene algún matiz, me explico:
Desde Visual Basic a pelo (versión 5 o 6) el acceso a DB2 es muy fácil,
tienes un asistente que te lleva de la mano para acceso a datos, ejecutar
programas, etc. Pero ya sabes que para Microsoft ahora es todo .NET
Yo creo a partir de la 5.2 de Client Access ya usa OLEDB, lo que quiere decir
que tendrás un buen rendimiento.
Pero si estas hablando de .NET la cosa cambia, te pongo un enlace a un
documento en mi blog con una pequeña guia relacionada con tu pregunta.
Tengo algún cliente que controla un montón de estas cosas, igual me puede
hacer algún ejemplo para "Torpes". En mi caso hace años que no enredo con estas
cosas, pero lo básico desde Visual si lo se, si necesitas algo ya sabes donde
encontrame.
Un saludo
Martín
El enlace
From:
"Javier Mora" <[email protected]>
To:
"forum.help400" <[email protected]>
Date:
12/03/2009 13:32
Subject:
Acceso al iSeries desde Excel+VBA
Sent by:
[email protected]
------------------------------------------------------------------------------
Estimados colegas:
Me ha surgido la necesidad de obtener una serie de datos del iSeries y la de
ejecutar un programa(s) desde una hoja de cálculo. Sé que se puede programar en
Visual Basic (VBA) en Excel y se puede acceder al iSeries con ADO, pero soy un
TOTAL DESCONOCEDOR de este entorno.
¿Tenéis algún ejemplo cortito de estos dos casos? ¿Conocéis algún recurso
(libro, tutorial, guía, etc.) que me pueda servir de introducción?
Un saludo.
Javier Mora García
__________________________________________________
Forum.HELP400 es un servicio m&#225;s de ServerNEWS.
&#169; Publicaciones Help400, S.L. - Todos los derechos reservados
http://www.help400.es
_____________________________________________________
Para darte de baja visita la siguente URL:
http://listas.combios.es/mailman/listinfo/forum.help400
------------------------------------------------------------------------------
Este mensaje se transmite exclusivamente para el uso del destinatario
previsto y puede contener información que es PRIVILEGIADA y/o CONFIDENCIAL.
Dicha información no expresa la posición de la compañía. Si usted no es el
destinatario previsto, se le notifica por este medio, que cualquier uso,
difusión, acceso o copia de esta comunicación está prohibida terminantemente.
Si usted ha recibido esta comunicación por error, destruya por favor todas las
copias de este mensaje y sus adjuntos y notifíquenos inmediatamente.
This message is sent exclusively for the use of the intended recipient and
may contain information that is PRIVILEGED and/or CONFIDENTIAL. This
information do not express the position of the company. If you are not the
intended recipient, you are hereby notified that any use, dissemination,
disclosure or copying of this communication is strictly prohibited. If you have
received this communication by mistake, please destroy all copies of this
message and its attachments and notify us immediately
"Bienvenido a la Vida, Bienvenido a InVita"
------------------------------------------------------------------------------
Este mensaje se transmite exclusivamente para el uso del destinatario
previsto y puede contener información que es PRIVILEGIADA y/o CONFIDENCIAL.
Dicha información no expresa la posición de la compañía. Si usted no es el
destinatario previsto, se le notifica por este medio, que cualquier uso,
difusión, acceso o copia de esta comunicación está prohibida terminantemente.
Si usted ha recibido esta comunicación por error, destruya por favor todas las
copias de este mensaje y sus adjuntos y notifíquenos inmediatamente.
This message is sent exclusively for the use of the intended recipient and
may contain information that is PRIVILEGED and/or CONFIDENTIAL. This
information do not express the position of the company. If you are not the
intended recipient, you are hereby notified that any use, dissemination,
disclosure or copying of this communication is strictly prohibited. If you have
received this communication by mistake, please destroy all copies of this
message and its attachments and notify us immediately
"Bienvenido a la Vida, Bienvenido a InVita"
------------------------------------------------------------------------------
__________________________________________________
Forum.HELP400 es un servicio m&#225;s de ServerNEWS.
&#169; Publicaciones Help400, S.L. - Todos los derechos reservados
http://www.help400.es
_____________________________________________________
Para darte de baja visita la siguente URL:
http://listas.combios.es/mailman/listinfo/forum.help400__________________________________________________
Forum.HELP400 es un servicio m&#225;s de ServerNEWS.
&#169; Publicaciones Help400, S.L. - Todos los derechos reservados
http://www.help400.es
_____________________________________________________
Para darte de baja visita la siguente URL:
http://listas.combios.es/mailman/listinfo/forum.help400
