MS Excel

Téma: přihlášení do SAPu

Zaslal/a Fantasyk 10.1.2021 15:30

Hola Hekři

,
Chci se zeptat mám kód:
,ale když už je SAP spuštěn tak mi to hodí error. Chtěl bych, když je spuštěn, tak ať to pokračuje dál kódem
Dim Appl As Object
Dim Connection As Object
Dim session As Object
Dim WshShell As Object
Dim SapGui As Object

LS24_text = Range("B2").text
Login = Range("H1").text
Passwd = Range("H2").text

'Of course change for your file directory
Shell "C:\Program Files\SAP\FrontEnd\SAPgui\saplogon.exe", 1
Set WshShell = CreateObject("WScript.Shell")

Do Until WshShell.AppActivate("SAP Logon ")
Application.Wait Now + TimeValue("0:00:01")
Loop

Set WshShell = Nothing

Set SapGui = GetObject("SAPGUI")
Set Appl = SapGui.GetScriptingEngine
Set Connection = Appl.OpenConnection("01 - PRD WINTEL")
Set session = Connection.Children(0)
'session.ActiveWindow.Iconify
'if You need to pass username and password
session.findById("wnd[0]/usr/txtRSYST-MANDT").text = "300"
session.findById("wnd[0]/usr/txtRSYST-BNAME").text = Login
session.findById("wnd[0]/usr/pwdRSYST-BCODE").text = Passwd
session.findById("wnd[0]/usr/txtRSYST-LANGU").text = "CS"

If session.Children.Count > 1 Then

answer = MsgBox("You've got opened SAP already," & _
"please leave and try again", vbOKOnly, "Opened SAP")

session.findById("wnd[1]/usr/radMULTI_LOGON_OPT3").Select
session.findById("wnd[1]/tbar[0]/btn[0]").press

Exit Sub

session.findById("wnd[0]").maximize
session.findById("wnd[0]").sendVKey 0 'ENTER
session.findById("wnd[0]/tbar[0]/okcd").text = "LS24"
session.findById("wnd[0]").sendVKey 0

End If

Omlouvám se za delší kód

citovat

Téma: přihlášení do SAPu

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje