0

Tengo un conflicto en mi macro, al añadir la referencia de Microsoft Outlook 15.0 Object Library en VBA, todas las demás macros relacionadas con SAP no funcionan en la línea de código de acceso a la transacción.

¿Alguno sabe a qué puede ser debido?

Este es el código que estoy utilizando:

'Rutina de inicio, llama a SAP
 If Not IsObject(Appli) Then
    Set SapGuiAuto = GetObject("SAPGUI")
    Set Appli = SapGuiAuto.GetScriptingEngine
End If
If Not IsObject(Connection) Then
    Set Connection = Appli.Children(0)
End If
If Not IsObject(session) Then
    Set session = Connection.Children(0)
End If
'Elegimos la transación esta es la línea donde me da el ERROR
session.findById("wnd[0]/tbar[0]/okcd").Text = "ME5A"

El error que recibo es:

Error '438' en tiempo de ejecución: El objeto no admite esta propiedad o método.

4
  • 1
    Puedes añadir la linea que te falla?
    – lois6b
    Commented el 24 oct. 2016 a las 11:42
  • 1
    He editado la pregunta añadiendo el código de error Commented el 24 oct. 2016 a las 12:15
  • muy bien, y qué error te lanza?
    – lois6b
    Commented el 24 oct. 2016 a las 12:16
  • Error '438' en tiempo de ejecución: El objeto no admite esta propiedad o método Commented el 24 oct. 2016 a las 12:23

1 respuesta 1

1

Uno de los motivos por los cuales puede estar fallando es que el nombre de las variables podría entrar en conflicto con otras variables de VBA de Outlook.

Mi sugerencia:

 Set SapGuiAuto = GetObject("SAPGUI")
 Set Appli = SapGuiAuto.GetScriptingEngine
 Set SAPConnection = Appli.Children(0)
 Set SAPsession = SAPConnection.Children(0)
 SAPsession.findById("wnd[0]/tbar[0]/okcd").Text = "ME5A"
3
  • Vamos a esperar en lugar de Pablos resultado de la prueba. ;-)
    – ScriptMan
    Commented el 25 oct. 2016 a las 10:21
  • Parece ser que efectivamente era un conflicto con otras variables de VBA de Outlook. Commented el 26 oct. 2016 a las 6:40
  • Gracias a Mariano para el diseño gramatical perfecta. ;-)
    – ScriptMan
    Commented el 26 oct. 2016 a las 7:01

Tu Respuesta

By clicking “Publica tu respuesta”, you agree to our terms of service and acknowledge you have read our privacy policy.

¿No es la respuesta que buscas? Examina otras preguntas con la etiqueta o formula tu propia pregunta.