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

天空的天

江南新绿 发表于 2019-3-11 22:46
方法一:Sap的快捷登录方式
开始菜单(Ctrl+Esc),右键点击"SAP Logon",打开"属性",在"快捷方式"选项卡上"打 ...

我现在用的是760的GUI，网上关于快捷方式输密码的操作似乎全部失效了，我是用旧版本的保存了带密码的快捷方式，然后用记事本打开，复制密码有关的那段字符到新版本的快捷方式里面，这样实现不输密码账号登陆的。看还有啥更好的办法不。

天空的天

江南新绿 发表于 2019-3-11 23:19
管理员账号通常是不会被要到的.一旦要到等同于开挂了,一路登天,不用打怪了.
录制脚本的功能权限也不太会被 ...

确实，看了一圈思路开阔很多，桌面设置带密码的快捷登录，然后用VBA调用这个快捷方式，再运行以前的代码，稳了！

carlostevez1984

江南新绿 发表于 2019-3-11 23:19
管理员账号通常是不会被要到的.一旦要到等同于开挂了,一路登天,不用打怪了.
录制脚本的功能权限也不太会被 ...

录制脚本不让你用 那么SAP的精华都没有了 就是录制宏 修改变量 添加循环 SAP才有无限可能 才能迅速帮你做任何事情

江南新绿

回复下23楼,你说:录制脚本不让你用 那么SAP的精华都没有了
这个观点有些偏颇,你百度一下<UIPath入门系列七之SAP录制><sap如何录制脚本和回放>,这里面都提到录制Sap脚本的前提要有事务RZ11的权限,如果没有这个权限,默认的Sap脚本录入的功能是不存在的.

而默认是没有这个脚本录入的功能和权限的.在这个残酷的事实面前,广大一无技术二无门路的爱好者不得不走到了走向了互联网.
到了ExcelHome,这才有了无限可能.

江南新绿

说到无限可能,举一个例子吧.比如上图中,有纵向的一长条红蓝色组成的框,那个就是我写的,(Gdip技术画的色块)
看起来虽然简陋,但技术部门在厂部级会议上说这个功能无法实现.
不然怎么办?在几百几千行中去一行一行看啊.看完左边列,再看右边列啊.

dyc44944

这个厉害，学习了

zhzhang9756

Sub SAPLogin()

Dim SapApp
SAPConnString_TEST = "   /SAP_CODEPAGE=1100  /FULLMENU  /M/cn-s-sapq08d.cn.abb.com/S/sapmsQ08/G/OsA_Q08 /UPDOWNLOAD_CP=8400" '换成你的SAP测试系统登陆字符串
SAPConnString = "    /SAP_CODEPAGE=1100  /FULLMENU  /M/cn-s-sapp06d.cn.abb.com/S/sapmsP06/G/OsA Accounting /UPDOWNLOAD_CP=8400" '换成你的SAP正式系统登陆字符串

UserName ="你的SAP登录用户名"
PassWord = "你的SAP登录密码"

'检查是测试模式或是正式模式，设置相应字符串
    If IsTestMode = True Then
        Call GetAccount_test(UserName, Password)
        SAPConnStr = SAPConnString_TEST
    Else
        Call GetAccount(UserName, Password)
        SAPConnStr = SAPConnString
    End If
   
    If CheckExeIsRun("SAPLogon.exe") Then '判断SapGUI是否已经打开
        GoTo 11:    '如已经打开，直接跳转到登录程序
    Else
        Call OpenSapGUI     '否则，先打开SapGUI，再登录
    End If
   
11: If Not IsObject(SapApp) Then
       Set SapGuiAuto = GetObject("SAPGUI")
       Set SapApp = SapGuiAuto.GetScriptingEngine
      
    End If
   
    Set SAPConn = SapApp.OpenConnectionByConnectionString(SAPConnStr)
   
    Sleep (500)
   
    If Not IsObject(Connection) Then
       Set Connection = SapApp.Children(0)
    End If
    If Not IsObject(session) Then
       Set session = Connection.Children(0)
    End If
    If IsObject(wscript) Then
       wscript.ConnectObject session, "on"
       wscript.ConnectObject Application, "on"
    End If
    session.findById("wnd[0]").maximize
    session.findById("wnd[0]/usr/txtRSYST-BNAME").Text = UserName
    session.findById("wnd[0]/usr/pwdRSYST-BCODE").Text = Password
    session.findById("wnd[0]/usr/pwdRSYST-BCODE").SetFocus
    session.findById("wnd[0]/usr/pwdRSYST-BCODE").caretPosition = 8
    session.findById("wnd[0]/tbar[0]/btn[0]").press

'加上你自己录制的功能代码就可以了

End Sub


Function CheckExeIsRun(exeName As String) As Boolean '判断某个进程是否运行
On Error GoTo Err
Dim WMI
Dim Obj
Dim Objs
CheckExeIsRun = False
Set WMI = GetObject("WinMgmts:")
Set Objs = WMI.InstancesOf("Win32_Process")
    For Each Obj In Objs
        If (InStr(UCase(exeName), UCase(Obj.Description)) <> 0) Then
            CheckExeIsRun = True
            If Not Objs Is Nothing Then Set Objs = Nothing
            If Not WMI Is Nothing Then Set WMI = Nothing
            Exit Function
        End If
    Next
        If Not Objs Is Nothing Then Set Objs = Nothing
        If Not WMI Is Nothing Then Set WMI = Nothing
        Exit Function
Err:
    If Not Objs Is Nothing Then Set Objs = Nothing
    If Not WMI Is Nothing Then Set WMI = Nothing
End Function

zhzhang9756

Sub OpenSapGUI()

    SapFilePath = "SAP\FrontEnd\SAPgui\saplogon.exe"
    FullPath = VBA.Environ("PROGRAMFILES") & "\" & SapFilePath
     
    Shell FullPath, 1
   
    Set WSHShell = CreateObject("WScript.Shell")
    Do Until WSHShell.AppActivate("SAP Logon ")
        Application.Wait Now + TimeValue("0:00:01")
    Loop
   
    Set WSHShell = Nothing

End Sub

zhzhang9756

Function CheckExeIsRun(exeName As String) As Boolean '判断某个进程是否运行
On Error GoTo Err
Dim WMI
Dim Obj
Dim Objs
CheckExeIsRun = False
Set WMI = GetObject("WinMgmts:")
Set Objs = WMI.InstancesOf("Win32_Process")
    For Each Obj In Objs
        If (InStr(UCase(exeName), UCase(Obj.Description)) <> 0) Then
            CheckExeIsRun = True
            If Not Objs Is Nothing Then Set Objs = Nothing
            If Not WMI Is Nothing Then Set WMI = Nothing
            Exit Function
        End If
    Next
        If Not Objs Is Nothing Then Set Objs = Nothing
        If Not WMI Is Nothing Then Set WMI = Nothing
        Exit Function
Err:
    If Not Objs Is Nothing Then Set Objs = Nothing
    If Not WMI Is Nothing Then Set WMI = Nothing
End Function

yngkey

zhzhang9756 发表于 2019-10-11 11:58
Function CheckExeIsRun(exeName As String) As Boolean '判断某个进程是否运行
On Error GoTo Err
Dim W ...

大哥, 麻烦把剩余代码段给补齐一下, 测试查几句, 万分感谢;
GetAccount_test 还有GetAccount这两个