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 延时代码

1
2
3
4
5
6
7
8
Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr)
 
Sub shishi()
 
Sleep 2000 '延时2秒钟
MsgBox "Hello World"
 
End Sub

  

python代码

1
2
3
4
5
6
7
8
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()

  

posted @   ken-yu  阅读(780)  评论(0编辑  收藏  举报
相关博文:
阅读排行:
· 微软正式发布.NET 10 Preview 1:开启下一代开发框架新篇章
· 没有源码,如何修改代码逻辑?
· NetPad:一个.NET开源、跨平台的C#编辑器
· PowerShell开发游戏 · 打蜜蜂
· 凌晨三点救火实录:Java内存泄漏的七个神坑,你至少踩过三个!
点击右上角即可分享
微信分享提示