Открытие SAP Logon Pad с VBA для любого профиля пользователя windows - PullRequest
Новая
       63

Открытие SAP Logon Pad с VBA для любого профиля пользователя windows

0 голосов
/ 26 мая 2020 
Private Sub CommandButton1_Click()

Unload LOGINZGLOC

Dim strPath As String

strPath = Environ("USERPROFILE") & "\Desktop\saplgpad.lnk"

Shell "strPath", 4

Set WshShell = CreateObject("WScript.Shell")

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

Dim Row
Dim UD As Worksheet
Set UD = Application.ActiveSheet

Row = 3

Set SapGui = GetObject("SAPGUI")
Set Appl = SapGui.GetScriptingEngine
Set Connection = Appl.Openconnection("[GT] ECC Production (GE4)", True)
Set session = Connection.Children(0)

Это код, который я использую для открытия SAP с использованием информации для входа, полученной из пользовательской формы. Но поскольку это код, предназначенный для использования несколькими сотрудниками и коллегами по работе, мне нужно открыть SAP в любом профиле пользователя, для этого я попытался создать ярлык и сослаться на него на рабочем столе, поскольку я новичок в VBA, код может выглядеть немного сырым. Код не работает, говоря, что файл не может быть найден.

...