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

zhzhang9756

yngkey 发表于 2019-12-14 16:21
大哥, 麻烦把剩余代码段给补齐一下, 测试查几句, 万分感谢;
GetAccount_test 还有GetAccount这两个

这就是获取用户名密码的子程序，你可以直接用你的方式获取或者直接写进程序里。我的你不一定适用。我GetAccount取得用户名密码是存在MySQL数据库里的。下面供参考。

Sub GetAccount_test(UserName As Variant, Password As Variant)
    '从路径文件中获取文件路径

    UserName = "CNYAZHA11"
    Password = "zZ567890"

End Sub

Sub GetAccount_Txt(UserName As Variant, Password As Variant)
    '从路径文件中获取文件路径
    Dim StrLine As String
    Open ThisWorkbook.Path & "\settings\account.txt" For Input As #1
    Do While Not EOF(1)
        Line Input #1, StrLine
        If InStr(StrLine, "UserName:") Then
            UserName = Trim(Replace(StrLine, "UserName:", ""))
        ElseIf InStr(StrLine, "Password:") Then
            Password = Trim(Replace(StrLine, "Password:", ""))
        End If
    Loop
    Close #1

End Sub

Sub GetAccount_xls(UserName As Variant, Password As Variant)

Set ShtST = Sheets("settings")
    With ShtST
        UserName = Trim(.Range("B1").Value)
        Password = Trim(.Range("B2").Value)
    End With

End Sub

Sub GetAccount(UserName As Variant, Password As Variant)

Dim con_str, sql_str, Str, rs, Cnn
Set rs = CreateObject("ADODB.recordset")
Set Cnn = CreateObject("ADODB.Connection")

con_str = MESConnString
sql_str = "SELECT config_value FROM sln_index.z_config where config_key = ""ProdOrder_GetInfoFromSAP"""
   
Cnn.Open (con_str)
   rs.Open sql_str, Cnn
    Str = rs.getrows
        UserName = Mid(Str(0, 0), 18, 8)
        Password = Mid(Str(0, 0), 44, 8)
   
End Sub

Frank_Zdh

zhzhang9756 发表于 2019-10-11 11:47
Sub SAPLogin()

Dim SapApp

您好，请问下Set SAPConn = SapApp.OpenConnectionByConnectionString(SAPConnStr)，这句话什么含义吗？是输密码的前面一个界面吗？我想点进去的是，”生产系统“。点进去界面之后，输入密码

玫瑰蝴蝶雨

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

请教大神一下，我用SAP录制的脚本放到VBA里后有一句是这样的：
session.findById("wnd[0]/usr/tblSAPLCOVGTCTRL_0100/ctxtAFVGD-ARBPL[2,0]").Text = "G1047"
我要把[2,0]这句中的0设为变量[2 , k]，k是变量，可是实际直接写成
session.findById("wnd[0]/usr/tblSAPLCOVGTCTRL_0100/ctxtAFVGD-ARBPL[2,k]").Text = "G1047" 时k不随变量变化，我应该怎么写才能随变量而变呢？

玫瑰蝴蝶雨

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

请教大神一下，我用SAP录制的脚本放到VBA里后有一句是这样的：
session.findById("wnd[0]/usr/tblSAPLCOVGTCTRL_0100/ctxtAFVGD-ARBPL[2,0]").Text = "G1047"
我要把[2,0]这句中的0设为变量[2 , k]，k是变量，可是实际直接写成
session.findById("wnd[0]/usr/tblSAPLCOVGTCTRL_0100/ctxtAFVGD-ARBPL[2,k]").Text = "G1047" 时k不随变量变化，我应该怎么写才能随变量而变呢？

玫瑰蝴蝶雨

请教大神一下，我用SAP录制的脚本放到VBA里后有一句是这样的： session.findById("wnd[0]/usr/tblSAPLCOVGTCTRL_0100/ctxtAFVGD-ARBPL[2,0]").Text = "G1047" 我要把[2,0]这句中的0设为变量[2 , k]，k是变量，可是实际直接写成 session.findById("wnd[0]/usr/tblSAPLCOVGTCTRL_0100/ctxtAFVGD-ARBPL[2,k]").Text = "G1047" 时k不随变量变化，我应该怎么写才能随变量而变呢？

玫瑰蝴蝶雨

tspliu 发表于 2019-3-7 13:58
'我是利用下面这样的方式实现自动登录我们公式系统的
Sub aa()
Dim WshShell

您这是放到VBA里用？？另外请教您下：
请教大神一下，我用SAP录制的脚本放到VBA里后有一句是这样的：
session.findById("wnd[0]/usr/tblSAPLCOVGTCTRL_0100/ctxtAFVGD-ARBPL[2,0]").Text = "G1047"
我要把[2,0]这句中的0设为变量[2 , k]，k是变量，可是实际直接写成
session.findById("wnd[0]/usr/tblSAPLCOVGTCTRL_0100/ctxtAFVGD-ARBPL[2,k]").Text = "G1047" 时k不随变量变化，我应该怎么写才能随变量而变呢？

玫瑰蝴蝶雨

zhzhang9756 发表于 2019-10-11 11:47
Sub SAPLogin()

Dim SapApp

请教大神一下，我用SAP录制的脚本放到VBA里后有一句是这样的：
session.findById("wnd[0]/usr/tblSAPLCOVGTCTRL_0100/ctxtAFVGD-ARBPL[2,0]").Text = "G1047"
我要把[2,0]这句中的0设为变量[2 , k]，k是变量，可是实际直接写成
session.findById("wnd[0]/usr/tblSAPLCOVGTCTRL_0100/ctxtAFVGD-ARBPL[2,k]").Text = "G1047" 时k不随变量变化，我应该怎么写才能随变量而变呢？

tspliu

玫瑰蝴蝶雨 发表于 2023-4-22 13:53
您这是放到VBA里用？？另外请教您下：
请教大神一下，我用SAP录制的脚本放到VBA里后有一句是这样的：
s ...

最开始学的时候这样操作公司各平台，再在都是直接request请求了，浏览器都不开了，模拟操作容易受外界因素干扰出错。
字符串加变量的话，需要用连接符
id="wnd[0]/usr/tblSAPLCOVGTCTRL_0100/ctxtAFVGD-ARBPL[2," & k &"]"
session.findById(id).Text = "G1047"

ovxyz

我研究sap编程好几年了。刚好遇上这个帖子，无偿奉献一下。


以上模块为主登录模块，直接调用这个函数就能全自动启动sap



以上模块为子模块，用来更改注册表，修改guixt文件配置，出除sap登录提示。


以上模块为子模块，用来判断sap是否打开。

Peny2020

ovxyz 发表于 2023-4-23 10:16
我研究sap编程好几年了。刚好遇上这个帖子，无偿奉献一下。

你好，我想借楼请问一下关于SAP GuiXT_Script编码的问题，就是我先录了操作之后生成的脚本，但里面有个日期是选当前日期的前一天，是一个不固定的值，我要在脚本里怎么改成变量？谢谢了。