MUNDOSAP

Regresar   MUNDOSAP > DESARROLLO > Otros lenguajes: VB, JAVA
Nombre de Usuario
Contraseña
Home Descargas Registrar FAQ Miembros Calendario Buscar Temas de Hoy Marcar Foros Como Leídos




 
Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Viejo 02/03/17, 16:45:43
montsemava montsemava is offline
Junior Member
 
Fecha de Ingreso: mar 2017
Mensajes: 2
Conectarme a SAP a través de excel

Hola, me llamo Montse.

Te explico tengo una hoja de excel y quiero pasarla a un archivo txt a traves de una macro, hasta aqui todo bien. Pero luego quiero que ese fichero txt subirlo a una ruta en la al11, entonces necesitaria conectarme a la AL11 para dejar el fichero allí y no tengo idea de como hacerlo.

Alguien me puede ayudar.

Gracias
Responder Con Cita
  #2  
Viejo 16/03/17, 11:00:57
dabtgn dabtgn is offline
Junior Member
 
Fecha de Ingreso: mar 2017
Mensajes: 1
Conectar a SAP desde Excel

prueba con este código



Sub Prueba_AL11()
'
' Prueba AL11 Macro
'
'
Set SAPGuiAuto = GetObject("SAPGUI")
Set Aplicacion = SAPGuiAuto.GetScriptingEngine
Set Connection = Aplicacion.Children(0)
Set Session = Connection.Children(0)

' maximiza la pantalla de SAP
Session.findById("wnd[0]").maximize
' escoge la transición a enviar
Session.findById("wnd[0]/tbar[0]/okcd").text = "/n/AL11"

' llama a la transición
Session.findById("wnd[0]").sendVKey 0
Responder Con Cita
  #3  
Viejo 16/03/17, 13:33:13
cardama cardama is offline
Junior Member
 
Fecha de Ingreso: feb 2017
Localización: Luxembourg
Mensajes: 6
Buenas, montsemana

Yo tengo este procedimiento para abrir una conexion con sap:

Private Sub LoginSAP()
user = InputBox("SAP User ID")
If user = "" Then Exit Sub
pass = InputBox("Please, enter your SAP password")
If pass = "" Then Exit Sub
If FindProcess("saplogon.exe") Then
Set SapGui = GetObject("SAPGUI")
Else
Call Shell("C:\Program Files (x86)\SAP\FrontEnd\SAPGUI\saplogon.exe", vbMinimizedFocus)
Esperar 5 ' Funcion para esperar unos segundos a que se ejecute el progama "saplogon"
Set SapGui = GetObject("SAPGUI")
End If
Esperar 2
Set Appl = SapGui.GetScriptingEngine
Set Connection = Appl.Openconnection("Nombre de la Instancia", True)
Set Session = Connection.Children(0)
Session.findById("wnd[0]/usr/txtRSYST-BNAME").Text = user
Session.findById("wnd[0]/usr/pwdRSYST-BCODE").Text = pass
Session.findById("wnd[0]/usr/txtRSYST-LANGU").Text = "EN"
Session.findById("wnd[0]").sendVKey 0
End Sub

Private Sub Esperar(Tiempo As Integer)
newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + Tiempo
waitTime = TimeSerial(newHour, newMinute, newSecond)
Application.Wait waitTime
End Sub

Function FindProcess(ProcessName)
Dim WMIServ, Processes, Process
FindProcess = False
Set WMIServ = GetObject("winmgmts:{impersonationLevel=" & "impersonate}!\\.\root\cimv2")
Set Processes = WMIServ.ExecQuery("Select * from Win32_Process " & _
"Where Name = '" & ProcessName & "'")
For Each Process In Processes
FindProcess = True
Exit Function
Next
End Function

Despues vendría la llamada a la transaccion deseada:

Session.findById("wnd[0]/tbar[0]/okcd").Text = "KSB1"
Session.findById("wnd[0]").sendVKey 0

Para el resto del proceso, mi consejo (que es lo que yo hago) es activar la grabacion de un script y realizo el proceso completo manualmente, cuando acabo, paro la grabacion y ya tengo las sentencias necesarias para realizar el resto de la macro.

Espero que te sirva, un saludo.
Responder Con Cita
  #4  
Viejo 20/07/21, 13:52:38
Edgar MS Edgar MS is offline
Junior Member
 
Fecha de Ingreso: abr 2020
Mensajes: 1
Re: Conectarme a SAP a través de excel

Ingresa a SAP y entra al icono de dos engranes, ahi esta la Opcion: Grabar y reproducir scrip, le das click a la opcion grabar script y puedes hacer el proceso que gustes, una vez termines la actividad, abres con un bloc de notas la scrip que se grabo en C:\Users\Tu usuario\AppData\Roaming\SAP\SAP GUI\Scripts, el codigo resultante lo colocas en vba anteponiendo las siguientes declaraciones de variable

Dim application
Dim connection

y listo solo ejecutas la macro.
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Reglas de Mensajes
no puedes crear nuevos temas
no puedes responder temas
no puedes adjuntar archivos
no puedes editar tus mensajes

El código vB está On
Las caritas están On
Código [IMG] está On
Código HTML está Off
Saltar a Foro


Husos Horarios son GMT. La hora en este momento es 10:48:35.


www.mundosap.com 2006 - Spain
software crm, crm on demand, software call center, crm act, crm solutions, crm gratis, crm web