Hola:

Estoy tratando de conseguir, en el programa de contabilidad SAP, acceder a sus menús lo más rápidamente posible creando "accesos directos" con macros.

Éste código abre el Sap (cuyo nombre lo coge de la celda activa según la penúltima línea), ingresa el usuario, clave y algunos enter y tabulaciones hasta llegar al campo donde se pone el nombre de lo que se llama transacción (por ejemplo FB03 es para visualizar una factura).

La orientacion que neceisto ahora sería cómo hacer para que desde dentro del programa, o sea, una vez abierto (la macro lo primero que hace es abrirlo), puediera cambiar de transacción suponiendo que las más frecuentes las tuviera escritas en la columna A.

La idea supongo que será crear crear varios Application.SendKeys Retun o Backspace (no sé cual) para volver hasta el menú principal, y desde ahí ir hacia delante hasta la transacción buscada. Pero independientemente los application necesarios, ¿cómo debería empezar el código para que teniendo sap abierto y estando en el menú que estés, llegue a la transacción buscada?

Public Declare Function ShellExecute Lib "Shell32.dll" Alias "ShellExecuteA" _

  (ByVal hwnd As Long, _

  ByVal lpOperation As String, _

  ByVal lpFile As String, _

  ByVal lpParameters As String, _

  ByVal lpDirectory As String, _

  ByVal nShowCmd As Long) As Long

Function Abrir(prog_o_file As String)

ShellExecute 0, "Open", prog_o_file, "", "", 1

Application.Wait Now + TimeValue("00:00:02")

Application.SendKeys "~", True

Application.Wait Now + TimeValue("00:00:02")

Application.SendKeys "miusuario", True

Application.SendKeys "{TAB}", True

Application.Wait Now + TimeValue("00:00:01")

Application.SendKeys "miclave", True

Application.SendKeys "~", True

Application.Wait Now + TimeValue("00:00:01")

Application.SendKeys "FB03", True '<---Transacción de sap

Application.SendKeys "~", True

Application.SendKeys "{TAB}", True

Application.SendKeys "ES01", True  '<---nº empresa

End Function

Sub AbrirPrograma()

Abrir ActiveCell()

End Sub

[/CODE]

sap.rar

Buscando otro tema me encontré con este.

Yo tabajo con SAP pero solo a nivel usuario.

Algo manejo de macros en excel.

Pero encontré interesantisimo la posibilidad de crea accesos directos.

Podrías tu decirme donde encentro mas literatura al respecto.

Y lo mas esencial, donde se ponen esos codigos en SAP ?

gracias

Wfredo

Días después descubrí como activar la ventana de alguno de los programas que se tengan abiertos con esta macro:

Sub prueba()

AppActivate "Microsoft word"

End Sub

[/CODE]

Solo hay que modificar "Microsoft word" por el nombre del programa que aparezca en la pestaña de la barra de tareas (abajo en la pantalla).

Las macros se ponen en Excel, no en Sap (desconozco si hay alguna opción para poner algún tipo de código en sap).

Puedes adaptar la siguiente macro -la he puesto a ojo a modo de ejemplo- para construir los pasos que darías con tu teclado desde que lo abres (incluso usuario y contraseña).

[CODE]Sub prueba()
AppActivate "saplogon" '(o el nombre que te aparezca en la pestaña cuando lo abras)
Application.Wait Now + TimeValue("00:00:02")
Application.SendKeys "~", True '(la virgula significa Enter)
Application.Wait Now + TimeValue("00:00:02")
Application.SendKeys "usuario", True
Application.Wait Now + TimeValue("00:00:02")
Application.SendKeys "{TAB}", True
Application.Wait Now + TimeValue("00:00:02")
Application.SendKeys "contraseña", True
Application.Wait Now + TimeValue("00:00:02")
Application.SendKeys "{ENTER}", True
Application.Wait Now + TimeValue("00:00:02")
Application.SendKeys "FB03", True '<-----------------Transaccion de sap[/CODE]

No conozco manuales ni nada al respecto. Si tu los encontraras te agradecería que pusieras algo por aquí.

Saludos.

Años atrás trabaje con SAP y me parece interesante el tema, un buen comienzo para dinamizarlo a la inversa volcando datos de SAP a Excel utilizando alguna solución como ADO digo!!! ya que SAP es excesivamente protocolar a la hora de descargar sus layout pero lastimosamente lo poco que hay esta monopolizado y nada dejan al descubierto