< návrat zpět

MS Excel


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

Zaslal/a 10.1.2021 15:30

FantasykHola Hekři 1 ,
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

Zaslat odpověď >

#049426
Fantasyk
Omlouvám se za delší kód 7citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

odpocet a storno tl.

PavDD • 28.3. 8:53

odpocet a storno tl.

Začátečník • 26.3. 14:39

odpocet a storno tl.

PavDD • 26.3. 10:22

odpocet a storno tl.

elninoslov • 26.3. 7:50

odpocet a storno tl.

PavDD • 26.3. 7:26

odpocet a storno tl.

elninoslov • 25.3. 22:34

odpocet a storno tl.

Začátečník • 25.3. 15:09