请问可以直接用VBA直接登录SAP再进行操作吗？

天空的天 · 发表于 2019-3-4 12:13

现在录制了脚本并修改好了可以顺利运行，但每次都是先自己登录好了系统再运行脚本，看可不可以登录运行一气呵成？求教！

zpy2 · 发表于 2019-3-5 14:37

sendkeys，按键精灵。。。。。

向東 · 发表于 2019-3-5 14:39

可以的直接连接sap服务器

天空的天 · 发表于 2019-3-5 22:30

向東发表于 2019-3-5 14:39
可以的直接连接sap服务器

我试了一下，端口被关了。。。想办法打开先。

向東 · 发表于 2019-3-6 13:37

天空的天发表于 2019-3-5 22:30
我试了一下，端口被关了。。。想办法打开先。

内网容易连接，关键要知道数据库的连接账号密码。

天空的天 · 发表于 2019-3-6 21:07

向東发表于 2019-3-6 13:37
内网容易连接，关键要知道数据库的连接账号密码。

自己有账号不就可以登录？今天再试了下，好像没权限，看要怎么才能开通

向東 · 发表于 2019-3-7 09:35

天空的天发表于 2019-3-6 21:07
自己有账号不就可以登录？今天再试了下，好像没权限，看要怎么才能开通

要数据库的连接账号和密码，不是应用端的登录账号，这一般要系统管理员才能拿到。

wangydm2 · 发表于 2019-3-7 11:48

你这个主要是用来做什么操作呢

我们也在用sap，上传这些不是有模板吗？

carlostevez1984 · 发表于 2019-3-7 13:37

我写了个清理供应商的，不过自动登录是找IT用JAVA，后面调用VB。

tspliu · 发表于 2019-3-7 13:58

'我是利用下面这样的方式实现自动登录我们公式系统的
Sub aa()
Dim WshShell
Set WshShell = CreateObject("WScript.Shell")
app = WshShell.Run("你的sap程序路径")
If Application.Wait(Now + TimeValue("0:00:10")) Then '用这个控制等待时间
End If
WshShell.AppActivate app
'WshShell.SendKeys "{TAB}"
'If Application.Wait(Now + TimeValue("0:00:10")) Then '用这个控制等待时间
'End If
WshShell.SendKeys "账号"
'WshShell.SendKeys "{TAB}"
'If Application.Wait(Now + TimeValue("0:00:10")) Then '用这个控制等待时间
'End If
WshShell.SendKeys "密码"
'If Application.Wait(Now + TimeValue("0:00:10")) Then '用这个控制等待时间
'End If
WshShell.SendKeys "{ENTER}" '以上输入过程根据程序启动情况插入等待时间，和TAB键次数
End Sub

		自动登录	找回密码
密码			免费注册

[求助] 请问可以直接用VBA直接登录SAP再进行操作吗？