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

天空的天

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

zpy2

sendkeys，按键精灵。。。。。

向東

可以的直接连接sap服务器

天空的天

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

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

向東

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

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

天空的天

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

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

向東

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

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

wangydm2

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

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

carlostevez1984

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

tspliu

'我是利用下面这样的方式实现自动登录我们公式系统的
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