Buenas tardes.

Es raro que no puedas abrirlo. Debes tener algún problema con la
configuración del Excel o te estas equivocando en la típica chorrada que
tienes delante de las narices y no ves.

Mientras que lo encuentras, te adjunto el código fuente de los tres
“componentes” del libro. Por que supongo que por lo menos te saldrán los
tres. Es el código de, respectivamente, la hoja, el libro y un formulario de
usuario que utiliza el compañero para filtrar los datos a mostrar.

Espero que por lo menos el código fuente te pueda ayudar, aunque no lo
puedas ejecutar.

Y haz que te revisen el Excel. Por mi experiencia reinstalar no siempre
funciona. Busca en google el error a ver si encuentras como solucionarlo.

 

Gustavo Adolfo Márquez Álvarez.

Departamento de Informática.

[email protected]

 

inforZitro, S. L.

Carretera de Níjar, nº 404.

04007 Almería (España).

Teléfono:    950 226 658.

Extensión:              148.

Fax:          950 223 620.

-----Mensaje original-----
De: [email protected]
[mailto:[email protected]] En nombre de Javier Mora
Enviado el: martes, 17 de marzo de 2009 15:53
Para: forum.help400
Asunto: 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 

 
<http://www.sidra400.com/sidra400.nsf/dx/ADO-NET?opendocument&comments#anc1>
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&amp;#225;s de ServerNEWS.
&amp;#169; Publicaciones Help400, S.L. - Todos los derechos reservados
 <http://www.help400.es/> http://www.help400.es
_____________________________________________________

Para darte de baja visita la siguente URL:
 <http://listas.combios.es/mailman/listinfo/forum.help400>
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"

Attachment: Hoja1.cls
Description: Binary data

Attachment: ThisWorkbook.cls
Description: Binary data

Attachment: UserForm1.frm
Description: Binary data

__________________________________________________
Forum.HELP400 es un servicio m&amp;#225;s de ServerNEWS.
&amp;#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

Responder a