VBA登录SAP

VBA代码

Dim SAPexePath As String
Dim user As String, pwd As String, lang As String, client As String, sysname As String

SAPexePath = "C:\Program Files (x86)\SAP\FrontEnd\SAPgui\sapshcut.exe"
system = " -system=" & "PRD" 'SAP系统的SID
client = " -client=" & "800" 'SAP系统的Client
user = " -user=" & "zhangshan" '登录账号
pwd = " -pw=" & "Password" '登录密码
lang = " -language=" & "EN" '登录语言

Shell (SAPexePath & system & user & pwd & lang & client) '调用登录

VBA 延时代码

Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr)

Sub shishi()

Sleep 2000 '延时2秒钟
MsgBox "Hello World"

End Sub

　　

python代码

import subprocess


def login():
    login_info = ['C:\\Program Files (x86)\\SAP\\FrontEnd\\SAPgui\\sapshcut.exe', '-system=PRD', '-client=110','-l=ZH', '-user=用户名', '-pw=密码']
    subprocess.check_call(login_info)

login()