SAP script 自动创建销售订单机器人，协同Excel

已于 2023-06-06 17:07:04 修改
阅读量1w 收藏 8
点赞数
分类专栏： ABAP SD 文章标签： linux 运维 服务器
于 2022-01-25 17:32:59 首次发布
gavin-gxh
本文链接：https://blog.csdn.net/xiaofei2008gxh/article/details/122689246
版权
ABAP 同时被 2 个专栏收录
203 篇文章 15 订阅
订阅专栏
SD
45 篇文章 3 订阅
订阅专栏

首先要开启SAP的脚本 参考 ​​​​​​SAP系统开启脚本录制和回放功能 - 简书

参考一边生成销售订单的过程 注意不要有额外的操作 记录下脚本

If Not IsObject(application) Then
   Set SapGuiAuto  = GetObject("SAPGUI")
   Set application = SapGuiAuto.GetScriptingEngine
End If
If Not IsObject(connection) Then
   Set connection = application.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]/tbar[0]/okcd").text = "va01"
session.findById("wnd[0]").sendVKey 0
session.findById("wnd[0]/usr/ctxtVBAK-AUART").text = "ZTA"
session.findById("wnd[0]/usr/ctxtVBAK-VKORG").text = "1000"
session.findById("wnd[0]/usr/ctxtVBAK-VTWEG").text = "20"
session.findById("wnd[0]/usr/ctxtVBAK-SPART").text = "00"
session.findById("wnd[0]/usr/ctxtVBAK-SPART").setFocus
session.findById("wnd[0]/usr/ctxtVBAK-SPART").caretPosition = 2
session.findById("wnd[0]").sendVKey 0
session.findById("wnd[0]/usr/subSUBSCREEN_HEADER:SAPMV45A:4021/txtVBKD-BSTKD").text = "1 1"
session.findById("wnd[0]/usr/subSUBSCREEN_HEADER:SAPMV45A:4021/subPART-SUB:SAPMV45A:4701/ctxtKUAGV-KUNNR").text = "100002"
session.findById("wnd[0]/usr/subSUBSCREEN_HEADER:SAPMV45A:4021/subPART-SUB:SAPMV45A:4701/ctxtKUWEV-KUNNR").text = "100002"
session.findById("wnd[0]/usr/subSUBSCREEN_HEADER:SAPMV45A:4021/txtVBKD-BSTKD").setFocus
session.findById("wnd[0]/usr/subSUBSCREEN_HEADER:SAPMV45A:4021/txtVBKD-BSTKD").caretPosition = 3
session.findById("wnd[0]/usr/subSUBSCREEN_HEADER:SAPMV45A:4021/btnBT_HEAD").press
session.findById("wnd[0]/usr/tabsTAXI_TABSTRIP_HEAD/tabpT\09").select
session.findById("wnd[0]/usr/tabsTAXI_TABSTRIP_HEAD/tabpT\09/ssubSUBSCREEN_BODY:SAPMV45A:4152/subSUBSCREEN_TEXT:SAPLV70T:2100/cntlSPLITTER_CONTAINER/shellcont/shellcont/shell/shellcont[1]/shell").text = "123" + vbCr + ""
session.findById("wnd[0]/usr/tabsTAXI_TABSTRIP_HEAD/tabpT\09/ssubSUBSCREEN_BODY:SAPMV45A:4152/subSUBSCREEN_TEXT:SAPLV70T:2100/cntlSPLITTER_CONTAINER/shellcont/shellcont/shell/shellcont[1]/shell").setSelectionIndexes 3,3
session.findById("wnd[0]/tbar[0]/btn[3]").press
session.findById("wnd[0]/usr/subSUBSCREEN_HEADER:SAPMV45A:4021/ctxtVBKD-BSTDK").text = "20211201"
session.findById("wnd[0]/usr/tabsTAXI_TABSTRIP_OVERVIEW/tabpT\02/ssubSUBSCREEN_BODY:SAPMV45A:4401/subSUBSCREEN_TC:SAPMV45A:4900/tblSAPMV45ATCTRL_U_ERF_AUFTRAG/ctxtRV45A-MABNR[1,0]").text = "12341"
session.findById("wnd[0]/usr/tabsTAXI_TABSTRIP_OVERVIEW/tabpT\02/ssubSUBSCREEN_BODY:SAPMV45A:4401/subSUBSCREEN_TC:SAPMV45A:4900/tblSAPMV45ATCTRL_U_ERF_AUFTRAG/txtRV45A-KWMENG[3,0]").text = "2"
session.findById("wnd[0]/usr/tabsTAXI_TABSTRIP_OVERVIEW/tabpT\02/ssubSUBSCREEN_BODY:SAPMV45A:4401/subSUBSCREEN_TC:SAPMV45A:4900/tblSAPMV45ATCTRL_U_ERF_AUFTRAG/txtRV45A-KWMENG[3,0]").setFocus
session.findById("wnd[0]/usr/tabsTAXI_TABSTRIP_OVERVIEW/tabpT\02/ssubSUBSCREEN_BODY:SAPMV45A:4401/subSUBSCREEN_TC:SAPMV45A:4900/tblSAPMV45ATCTRL_U_ERF_AUFTRAG/txtRV45A-KWMENG[3,0]").caretPosition = 19
session.findById("wnd[0]").sendVKey 0
session.findById("wnd[0]/tbar[1]/btn[18]").press
session.findById("wnd[0]/usr/tabsTAXI_TABSTRIP_OVERVIEW/tabpT\02/ssubSUBSCREEN_BODY:SAPMV45A:4401/subSUBSCREEN_TC:SAPMV45A:4900/tblSAPMV45ATCTRL_U_ERF_AUFTRAG/txtVBAP-POSNR[0,0]").setFocus
session.findById("wnd[0]/usr/tabsTAXI_TABSTRIP_OVERVIEW/tabpT\02/ssubSUBSCREEN_BODY:SAPMV45A:4401/subSUBSCREEN_TC:SAPMV45A:4900/tblSAPMV45ATCTRL_U_ERF_AUFTRAG/txtVBAP-POSNR[0,0]").caretPosition = 4
session.findById("wnd[0]").sendVKey 2
session.findById("wnd[0]/usr/tabsTAXI_TABSTRIP_ITEM/tabpT\09").select
session.findById("wnd[0]/usr/tabsTAXI_TABSTRIP_ITEM/tabpT\09/ssubSUBSCREEN_BODY:SAPMV45A:4152/subSUBSCREEN_TEXT:SAPLV70T:2100/cntlSPLITTER_CONTAINER/shellcont/shellcont/shell/shellcont[1]/shell").text = "123" + vbCr + ""
session.findById("wnd[0]/usr/tabsTAXI_TABSTRIP_ITEM/tabpT\09/ssubSUBSCREEN_BODY:SAPMV45A:4152/subSUBSCREEN_TEXT:SAPLV70T:2100/cntlSPLITTER_CONTAINER/shellcont/shellcont/shell/shellcont[1]/shell").setSelectionIndexes 3,3
session.findById("wnd[0]/tbar[0]/btn[3]").press
session.findById("wnd[0]/usr/tabsTAXI_TABSTRIP_OVERVIEW/tabpT\02/ssubSUBSCREEN_BODY:SAPMV45A:4401/subSUBSCREEN_TC:SAPMV45A:4900/tblSAPMV45ATCTRL_U_ERF_AUFTRAG/ctxtRV45A-MABNR[1,1]").text = "12341"
session.findById("wnd[0]/usr/tabsTAXI_TABSTRIP_OVERVIEW/tabpT\02/ssubSUBSCREEN_BODY:SAPMV45A:4401/subSUBSCREEN_TC:SAPMV45A:4900/tblSAPMV45ATCTRL_U_ERF_AUFTRAG/txtRV45A-KWMENG[3,1]").text = "3"
session.findById("wnd[0]/usr/tabsTAXI_TABSTRIP_OVERVIEW/tabpT\02/ssubSUBSCREEN_BODY:SAPMV45A:4401/subSUBSCREEN_TC:SAPMV45A:4900/tblSAPMV45ATCTRL_U_ERF_AUFTRAG/txtRV45A-KWMENG[3,1]").setFocus
session.findById("wnd[0]/usr/tabsTAXI_TABSTRIP_OVERVIEW/tabpT\02/ssubSUBSCREEN_BODY:SAPMV45A:4401/subSUBSCREEN_TC:SAPMV45A:4900/tblSAPMV45ATCTRL_U_ERF_AUFTRAG/txtRV45A-KWMENG[3,1]").caretPosition = 19
session.findById("wnd[0]").sendVKey 0
session.findById("wnd[0]").sendVKey 0
session.findById("wnd[0]/tbar[1]/btn[18]").press
session.findById("wnd[0]/usr/tabsTAXI_TABSTRIP_OVERVIEW/tabpT\02/ssubSUBSCREEN_BODY:SAPMV45A:4401/subSUBSCREEN_TC:SAPMV45A:4900/tblSAPMV45ATCTRL_U_ERF_AUFTRAG/txtVBAP-POSNR[0,1]").setFocus
session.findById("wnd[0]/usr/tabsTAXI_TABSTRIP_OVERVIEW/tabpT\02/ssubSUBSCREEN_BODY:SAPMV45A:4401/subSUBSCREEN_TC:SAPMV45A:4900/tblSAPMV45ATCTRL_U_ERF_AUFTRAG/txtVBAP-POSNR[0,1]").caretPosition = 4
session.findById("wnd[0]").sendVKey 2
session.findById("wnd[0]/usr/tabsTAXI_TABSTRIP_ITEM/tabpT\09/ssubSUBSCREEN_BODY:SAPMV45A:4152/subSUBSCREEN_TEXT:SAPLV70T:2100/cntlSPLITTER_CONTAINER/shellcont/shellcont/shell/shellcont[1]/shell").text = "123" + vbCr + ""
session.findById("wnd[0]/usr/tabsTAXI_TABSTRIP_ITEM/tabpT\09/ssubSUBSCREEN_BODY:SAPMV45A:4152/subSUBSCREEN_TEXT:SAPLV70T:2100/cntlSPLITTER_CONTAINER/shellcont/shellcont/shell/shellcont[1]/shell").setSelectionIndexes 3,3
session.findById("wnd[0]/tbar[0]/btn[11]").press

Cells(5, 1) = session.findById("wnd[0]/sbar").text

新建一个excel  进入开发工具，把上面的脚本拖入到里面 ，

加入Sub runva01()

末尾加入 end sub 

编辑Excel表格 

注意：表格的内容是指你要输入SAP 销售订单 的内容 

修改一下脚本如下：

Sub runva01()
Dim i, j, itemi, itemj, randx, strp, modvalue
itemi = Cells(1, 3)
itemj = Cells(1, 5)
 
modvalue = Cells(4, 9)
 
If Not IsObject(sapapplication) Then
   Set SapGuiAuto = GetObject("SAPGUI")
   Set sapapplication = SapGuiAuto.GetScriptingEngine
End If
If Not IsObject(connection) Then
   Set connection = sapapplication.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 sapapplication, "on"
End If
session.findById("wnd[0]").maximize
session.findById("wnd[0]/tbar[0]/okcd").text = "va01"
session.findById("wnd[0]").sendVKey 0
session.findById("wnd[0]/usr/ctxtVBAK-AUART").text = "ZTA"
session.findById("wnd[0]/usr/ctxtVBAK-VKORG").text = "1000"
session.findById("wnd[0]/usr/ctxtVBAK-VTWEG").text = "20"
session.findById("wnd[0]/usr/ctxtVBAK-SPART").text = "00"
session.findById("wnd[0]/usr/ctxtVBAK-SPART").setFocus
session.findById("wnd[0]/usr/ctxtVBAK-SPART").caretPosition = 2
session.findById("wnd[0]").sendVKey 0
session.findById("wnd[0]/usr/subSUBSCREEN_HEADER:SAPMV45A:4021/txtVBKD-BSTKD").text = Cells(4, 4)
session.findById("wnd[0]").sendVKey 0
session.findById("wnd[0]").sendVKey 0
session.findById("wnd[0]/usr/subSUBSCREEN_HEADER:SAPMV45A:4021/subPART-SUB:SAPMV45A:4701/ctxtKUAGV-KUNNR").text = Cells(4, 6)
session.findById("wnd[0]/usr/subSUBSCREEN_HEADER:SAPMV45A:4021/subPART-SUB:SAPMV45A:4701/ctxtKUWEV-KUNNR").text = Cells(4, 7)
session.findById("wnd[0]/usr/subSUBSCREEN_HEADER:SAPMV45A:4021/txtVBKD-BSTKD").setFocus
session.findById("wnd[0]/usr/subSUBSCREEN_HEADER:SAPMV45A:4021/txtVBKD-BSTKD").caretPosition = 3
session.findById("wnd[0]/usr/subSUBSCREEN_HEADER:SAPMV45A:4021/btnBT_HEAD").press
session.findById("wnd[0]/usr/tabsTAXI_TABSTRIP_HEAD/tabpT\09").select
session.findById("wnd[0]/usr/tabsTAXI_TABSTRIP_HEAD/tabpT\09/ssubSUBSCREEN_BODY:SAPMV45A:4152/subSUBSCREEN_TEXT:SAPLV70T:2100/cntlSPLITTER_CONTAINER/shellcont/shellcont/shell/shellcont[1]/shell").text = Cells(4, 8)
session.findById("wnd[0]/usr/tabsTAXI_TABSTRIP_HEAD/tabpT\09/ssubSUBSCREEN_BODY:SAPMV45A:4152/subSUBSCREEN_TEXT:SAPLV70T:2100/cntlSPLITTER_CONTAINER/shellcont/shellcont/shell/shellcont[1]/shell").setSelectionIndexes 3, 3
session.findById("wnd[0]/tbar[0]/btn[3]").press
session.findById("wnd[0]/usr/subSUBSCREEN_HEADER:SAPMV45A:4021/ctxtVBKD-BSTDK").text = Cells(4, 5)
 
For i = itemi To itemj
j = i - itemi
While j >= modvalue
j = j - modvalue + 1
Wend
 
session.findById("wnd[0]/usr/tabsTAXI_TABSTRIP_OVERVIEW/tabpT\02/ssubSUBSCREEN_BODY:SAPMV45A:4401/subSUBSCREEN_TC:SAPMV45A:4900/tblSAPMV45ATCTRL_U_ERF_AUFTRAG/ctxtRV45A-MABNR[1," & j & "]").text = Cells(i, 1)
session.findById("wnd[0]/usr/tabsTAXI_TABSTRIP_OVERVIEW/tabpT\02/ssubSUBSCREEN_BODY:SAPMV45A:4401/subSUBSCREEN_TC:SAPMV45A:4900/tblSAPMV45ATCTRL_U_ERF_AUFTRAG/txtRV45A-KWMENG[3," & j & "]").text = Cells(i, 2)
session.findById("wnd[0]/usr/tabsTAXI_TABSTRIP_OVERVIEW/tabpT\02/ssubSUBSCREEN_BODY:SAPMV45A:4401/subSUBSCREEN_TC:SAPMV45A:4900/tblSAPMV45ATCTRL_U_ERF_AUFTRAG/txtRV45A-KWMENG[3," & j & "]").setFocus
session.findById("wnd[0]/usr/tabsTAXI_TABSTRIP_OVERVIEW/tabpT\02/ssubSUBSCREEN_BODY:SAPMV45A:4401/subSUBSCREEN_TC:SAPMV45A:4900/tblSAPMV45ATCTRL_U_ERF_AUFTRAG/txtRV45A-KWMENG[3," & j & "]").caretPosition = 19
session.findById("wnd[0]").sendVKey 0
session.findById("wnd[0]/tbar[1]/btn[18]").press
session.findById("wnd[0]/usr/tabsTAXI_TABSTRIP_OVERVIEW/tabpT\02/ssubSUBSCREEN_BODY:SAPMV45A:4401/subSUBSCREEN_TC:SAPMV45A:4900/tblSAPMV45ATCTRL_U_ERF_AUFTRAG/txtVBAP-POSNR[0," & j & "]").setFocus
session.findById("wnd[0]/usr/tabsTAXI_TABSTRIP_OVERVIEW/tabpT\02/ssubSUBSCREEN_BODY:SAPMV45A:4401/subSUBSCREEN_TC:SAPMV45A:4900/tblSAPMV45ATCTRL_U_ERF_AUFTRAG/txtVBAP-POSNR[0," & j & "]").caretPosition = 4
session.findById("wnd[0]").sendVKey 2
session.findById("wnd[0]/usr/tabsTAXI_TABSTRIP_ITEM/tabpT\09").select
session.findById("wnd[0]/usr/tabsTAXI_TABSTRIP_ITEM/tabpT\09/ssubSUBSCREEN_BODY:SAPMV45A:4152/subSUBSCREEN_TEXT:SAPLV70T:2100/cntlSPLITTER_CONTAINER/shellcont/shellcont/shell/shellcont[1]/shell").text = Cells(i, 3)
session.findById("wnd[0]/usr/tabsTAXI_TABSTRIP_ITEM/tabpT\09/ssubSUBSCREEN_BODY:SAPMV45A:4152/subSUBSCREEN_TEXT:SAPLV70T:2100/cntlSPLITTER_CONTAINER/shellcont/shellcont/shell/shellcont[1]/shell").setSelectionIndexes 3, 3
session.findById("wnd[0]/tbar[0]/btn[3]").press
 
Next
 
session.findById("wnd[0]/tbar[0]/btn[11]").press

Cells(5, 1) = session.findById("wnd[0]/sbar").text
End Sub

 然后再excel里面执行一下 

以上是测试

实际在Excel里面 开发工具→插入按钮  修改按钮名称  右键按钮 → 指定宏 为上述的runva01()

然后就可以执行了

完整的执行过程 GO 

文件

gavin_gxh
关注
  • 0
    点赞
  • 踩
  • 8
    收藏
    觉得还不错? 一键收藏
  • 打赏
    打赏
  • 2
    评论
专栏目录
SAP按销售订单生产和标准结算配置及操作办法
06-27
SAP按销售订单生产和标准结算配置及操作办法
Excel VBA + GUI Script 批量创建SAP采购订单
07-14
Excel VBA + GUI Script 批量创建SAP采购订单，经过ECC6.0+EHP8+SAP GUI 740验证。 由于不同公司的SAP对采购订单可能会有一些增强，建议有VBA和GUI Script经验的人可以下载修改为适合自己公司的RPA。
【SAP GUI 脚本 VBA】
最新发布
qq_43156252的博客
05-25 4090
用VBA编写SAP GUI脚本，实现办公自动化
SAP GUI Scripting案例2:创建用户 Excel导入数据
weixin_41857472的博客
04-19 943
SAP GUI Scripting案例1:创建用户 Excel导入数据 一、pandas是什么？ 二、使用步骤 总结 提示：这里对文章进行总结： 例如：以上就是今天要讲的内容，本文仅仅简单介绍了pandas的使用，而pandas提供了大量能使我们快速便捷地处理数据的函数和方法。 ...
SAP SCRIPTFORM 操作手册
热门推荐
yannickdann的博客
07-05 1万+
SAPscript 用途：SAP SCRIPT常用来打印需要输出到纸张的报表、凭证。 SAP SCRIPT 使用页、窗口、段落格式和文本来控制输出。文本存在于窗口之中，每个文本有段落格式来指定字体，间隔等信息。窗口存在于页上，在‘页窗口’设置每个窗口的位置。 建立SAPscript事务码： SE71 格式绘制器1.  创建SAPscript（form） 2.  SAPscript 组件分为表头、页...
SAP Script教程：SE71、SE78、SCC1、VF03、SO10-013
Sunflower
06-21 2196
AP 脚本是 SAP 系统自己的文本处理系统。它的外观和感觉与其他领先的文本处理系统非常相似。它用于以预先格式化的形式打印预先格式化的文本。SAP 脚本由五个主要组件组成： 用于输入和编辑文本行的编辑器打印布局的样式和布局集。这些是使用相应的维护事务独立于各个文本创建的，并在以后分配给文本作曲家是一个中央输出模块。SAP 脚本编写器对外不可见一个编程接口，允许您将 SAP 脚本组件包含在您自己的应用程序中，并从程序中控制布局集的输出用于存储文本、样式和布局集的多个数据库表要使用编程接口输出文档，R/3 应用
Session详解
越努力越幸运的博客
07-25 403
文章目录Session详解一、什么是Session二、Session的使用2.1 创建、获取Session2.2 Session域数据的存和取2.3 Session生命周期控制三、浏览器和服务器的Session之间关联的底层技术 Session详解 一、什么是Session Session是一个接口（HttpSession） Session是一个会话，用来维护一个客户端和服务器之间关联的技术 每个客户端都有自己的Session会话 我们经常在Session中保存用户登录后的信息 那么，Session怎么
mybatis的学习
MyBlogHiHi的博客
08-24 177
MyBatis 一、MyBatis 之前jdbc连接数据库 选择:mybatis框架连接数据库 （一）mybatis概述 Mybatis是一个ORM(Object Relational Mapping 对象关系映射)数据持久层框架.把实体类和SQL语句之间建立了映射关系，是一种半自动化(需要我们自己写sql语句)的ORM实现 MyBatis 本是apache的一个开源项目iBatis, 2010年这个项目由apache software foundation 迁移到了google code，并且改名为MyB
SAP script小结
shardday的博客
03-29 3697
1.sap script 是用来设计单据格式并打印的工具 2.事务码：se71 或者选择 Tools->SAPscript->Form 3.工作流程 program:open_form->start_form->write_form->close_form. 根据图中的lv_formname的值可以确定form的名字， CALL FUNCTION 'OPEN_FORM' EXPORTIN
SAP GUI Scripting
matinal 當冬夜漸暖 。公众号：matinal
05-19 799
SAP GUI Scripting 简介SAP在处理期初数据
SAP_SD_销售服务类订单操作说明
10-26
SAP_SD_销售服务类订单操作说明，配置的以及操作说明，英文版本
SAP IDOC - 消息输出 - 采购订单<->销售订单
03-26
SAP 采购订单自动生成销售订单 , 消息输出，IDOC 1，源系统采购订单输出消息类型 （LI - 供应商）ORDERS 2，目标系统接收IDOC生成销售订单（LS - 逻辑系统） 3，目标系统生成销售订单后，消息输出回写源系统采购...
SAPscript Legacy Text Editor patch
09-29
CSapEditorCtrl::GetObject: Object XX does not exist的解决方法
SAP 领料BAPI BAPI_GOODSMVT_CREATE 提示 短缺未限制使用的SL
GAVIN
03-15 3912
短缺未限制使用的SL 一般是BAPI_GOODSMVT_CREATE的参数 GOODSMVT_ITEM 里面含有待移动数量为0的行项目 但是此次比较特殊 跟了很久 都是这样的问题， 解决方案:BAPI BAPI_GOODSMVT_CREATE的GOODSMVT_ITEM的RES_TYPE 记录类型赋值 FUNCTION ZBOM_MM_CJLL. *"-----------------------------------------------------------...
SAP FI 会计凭证批量创建实现 客户/供应商/资产
GAVIN
09-13 3216
注意：不及时commit的情况下 不会产生会计凭证。双击会计凭照号 用FB03打开会计凭证。统驭科目+特别总账标记 → 总账科目。主要SAP 会计凭证 BAPI。1、检查凭证参数是否有问题。Excel分页签导入格式。2、产生凭证编号并占用。
SAP 批量创建生产订单并下达
GAVIN
03-01 3201
PPORDER 创建 且 下达 CREATE RELEASE
SAP 序列号SER**相关表
GAVIN
03-22 2954
PPORDER的序列号 交货单对应的序列号 通过对象列表清单关联到 OBJK 类似的ser05 更改交货单上的序列号BAPI_OUTB_DELIVERY_CHANGE
SAP 交货单号的序列号跟踪查询
GAVIN
03-22 2830
*&---------------------------------------------------------------------* *& Report ZRPT_PP_SEQ_RELATE *& *&---------------------------------------------------------------------* *& author gavin *& date 20220321 *& from ji...
sap script 自动登陆
05-12
SAP Script 是一种基于 ABAP 的 SAP 编程语言，它主要用于创建和打印 SAP 表单和文档。自动登录 SAP Script 的方法可以使用 SAP GUI Scripting 技术，通过模拟用户的操作来实现自动登录。以下是一个示例脚本： ``` Set SapGuiAuto = GetObject("SAPGUI") Set application = SapGuiAuto.GetScriptingEngine Set connection = application.Children(0) Set session = connection.Children(0) session.findById("wnd[0]/usr/txtRSYST-BNAME").Text = "用户名" session.findById("wnd[0]/usr/pwdRSYST-BCODE").Text = "密码" session.findById("wnd[0]").sendVKey 0 ``` 其中，"用户名" 和 "密码" 分别替换为 SAP 系统的登录名和密码，"0" 代表模拟用户按下回车键完成登录操作。这段脚本可以在 SAP GUI Scripting 已经启用的情况下使用。

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论 2
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

gavin_gxh

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付：¥1
获取中
扫码支付

您的余额不足，请更换扫码支付或充值

打赏作者

实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值