绩效助理

2020-09-06 05:41发布

         点击此处--->   EasySAP.com群内免费提供SAP练习系统(在群公告中)

加入QQ群:457200227(SAP S4 HANA技术交流) 群内免费提供SAP练习系统(在群公告中)


专家,

我已经运行了sap GUI脚本,脚本运行得非常好,但是我需要复制sap性能助手(备注)以粘贴到excel ........ pls帮助中。

我做了很多编码,但是没有用,请专家为此提供帮助

         点击此处--->   EasySAP.com群内免费提供SAP练习系统(在群公告中)

加入QQ群:457200227(SAP S4 HANA技术交流) 群内免费提供SAP练习系统(在群公告中)


专家,

我已经运行了sap GUI脚本,脚本运行得非常好,但是我需要复制sap性能助手(备注)以粘贴到excel ........ pls帮助中。

我做了很多编码,但是没有用,请专家为此提供帮助

付费偷看设置
发送
7条回答
灬番茄
1楼-- · 2020-09-06 06:16

转到"帮助"->"设置"->"模态"对话框

然后弹出窗口将是可记录和可交互的。

然后您可以执行以下操作

如果不是session.FindById(" wnd [1]",False),则什么也没有
                     设置pop = session.FindById(" wnd [1]")
                     如果InStr(pop.PopupDialogText," some Sting")> 0然后
                         有趣的评论
                         SomeTable(a,b)= pop.PopupDialogText
                     其他:
                         其他一些条件
                         设置流行=什么都没有
                     万一
                 万一
 
四川大学会员
2楼-- · 2020-09-06 06:17

在您的特定用例中,someTable(a,b)可能更适合您。 我在脚本编写中使用了此代码段。

bbpeas
3楼-- · 2020-09-06 06:13

好,先生,

它将保存在excel中?

渐行渐远_HoldOn
4楼-- · 2020-09-06 06:09

我谨建议您咨询具​​有一定经验的开发人员,从上面的代码段中我可以断定,您对此并不满意 语言。 如果它对您的项目确实很重要,那么专家资源对于减轻您的压力将非常宝贵。

好运。

丹尼尔(Daniel)

派大星 ヾ
5楼-- · 2020-09-06 06:03

先生不工作

蓋茨
6楼-- · 2020-09-06 06:04

嗨,先生,请检查我在excel中的编码,它不接受

公共Sub SAPUpload()
将对象的昏暗连接
将Myimvalue变体作为
Dim Myvalue2变体
将objSheet1昏暗于工作表

Set SapGuiAuto = GetObject(" SAPGUI")'获取SAP GUI脚本对象
Set SAPApp = SapGuiAuto.GetScriptingEngine'获取当前正在运行的SAP GUI
Set SAPCon = SAPApp.Children(0)'获取 当前连接的第一个系统
Set Session = SAPCon.Children(0)'获取该连接上的第一个会话(窗口)


如果不是IsObject(SAPApp),则

设置SapGuiAuto = GetObject(" SAPGUI")

设置SAPApp = SapGuiAuto.GetScriptingEngine

如果结束

如果不是IsObject(连接),则

设置连接= SAPconnection.Children(0)

如果结束


如果不是IsObject(Session),则

设置会话= connection.Children(0)

如果结束

如果IsObject(WScript)然后

WScript.ConnectObject会话,"开启"

WScript.ConnectObject SAPApp,"打开"

结束If
Session.FindById(" wnd [0]")。maximize

Dim objExcel,objWorkbook,objSheet,i
将Dim A作为变体

" Dim B为变体形式

设置objExcel = CreateObject(" Excel.Application")

myfile = application.GetOpenFilename(,,"浏览工作表")
工作簿。打开myfile

设置objSheet = ActiveWorkbook.Sheets(" Sheet1")
'A = Input("输入开始行","")
'B = Input("输入结束行","")
Myvalue = InputBox("开始行")
Myvalue2 = InputBox("结束行")
StopNow =假

'对于i = 2到1000
对于iRow = Myvalue到Myvalue2

Range(" A1")。Value = i


col1 = Trim(CStr(objSheet.Cells(iRow,1).Value))'Column1
COL2 = Trim(CStr(objSheet.Cells(iRow,2).Value))'Column2 < br> COL3 = Trim(CStr(objSheet.Cells(iRow,3).Value))'Column3
COL4 = Trim(CStr(objSheet.Cells(iRow,4).Value))'Column4
COL5 = Trim(CStr(objSheet.Cells(iRow,5).Value))'Column5


Session.FindById(" wnd [0]/tbar [0]/okcd")。Text ="/img/nzpb2"
Session.FindById(" wnd [0]")。sendVKey 0
Session.FindById(" wnd [0]/usr/ctxtRMMG1-MATNR")。Text = col1

Session.FindById(" wnd [0]/usr/ctxtRMMG1-MATNR")。caretPosition = 12 <错误>错误恢复下一个
Session.FindById(" wnd [0]")。sendVKey 0
Session.FindById(" wnd [1]/usr/tblSAPLMGMMTC_VIEW")。getAbsoluteRow(5).Selected = True <错误恢复后继续
Session.FindById(" wnd [1]/usr/tblSAPLMGMMTC_VIEW/txtMSICHTAUSW -DYTXT [0,5]")。SetFocus
Session.FindById(" wnd [1]/usr/tblSAPLMGMMTC_VIEW/txtMSICHTAUSW-DYTXT [0,5]")。caretPosition = 0
Session.FindById(" wnd [1]")。sendVKey 0
Session.FindById(" wnd [1]/usr/ctxtRMMG1-WERKS")。Text = COL2
Session.FindById(" wnd [1]/usr/ctxtRMMG1- WERKS")。caretPosition = 4
Session.FindById(" wnd [1]")。sendVKey 0
Session.FindById(" wnd [0]/usr/tabsTABSPR1/tabpSP11/ssubTABFRA1:SAPLMGMM:2000/subSUB2 :SAPLMGD1:2301/ctxtMARC-MMSTA")。Text =错误时恢复下一个
Session.FindById(" wnd [0]/usr/tabsTABSPR1/tabpSP11/ssubTABFRA1:SAPLMGMM:2000/subSUB2:SAPLMGD1: 2301/ctxtMARC-MMSTD")。Text = COL4
错误时恢复下一个
Session.FindById(" wnd [0]/usr/tabsTABSPR1/tabpSP11 /ssubTABFRA1:SAPLMGMM:2000/subSUB2:SAPLMGD1:2301/ctxtMARC-MMSTD").SetFocus
Session.FindById(" wnd [0]/usr/tabsTABSPR1/tabpSP11/ssubTABFRA1:SAPLMGMM:2000/subSUB2:SAPLMGD1:2301 /ctxtMARC-MMSTD").caretPosition = 10
Session.FindById(" wnd [0]")。sendVKey 0
Session.FindById(" wnd [1]/usr/btnSPOP-OPTION1")。press < br>错误恢复下一个
Session.FindById(" wnd [0]/sbar")。press <'>将ActiveSheets设为工作簿
'Session.findById(" wnd [1]/tbar [0]/btn [8]")。按'按"完成工作项"按钮


'MsgArea = Trim(Session.findById(" wnd [0]/sbar/")。MessageId)
'MsgNumber = Session.findById(" wnd [0]/sbar/")。MessageNumber
'MsgType = Session.findById(" wnd [0]/sbar/")。MessageType


'MsgText = Session.findById(" wnd [0]/sbar/")。Text
如果不是Session.FindById(" wnd [1]",False)则什么都没有,
设置pop = Session.FindById(" wnd [1]")
如果InStr(pop.PopupDialogText," some Sting")> 0然后
'有趣的评论

'sometable(A,B)= pop.PopupDialogText
其他:
'其他一些条件
设置pop =没问题
结束于
结束于

'Sap_session.findById(" wnd [0]")。sendVkey0
'Sap_session.findById(" wnd [0]")。sendVkey11
'Session.findById(" wnd [0]/shellcont" ).Close
'ActiveSheets(" sheet1")。Cells(iRow,5)= Sap_session.findById(" wnd [0]/sbar")。Text
'tabla.contextmenu
'tabla.selectContextMenuItemBytext "复制文本"
'objSheet.Cells(i,5).Value = Session.findBy(" wnd [0]/sbar/pane [0]")。Tex.Copy
'Session.findById(" wnd [0]")。sendVkey11

'Session.findById(" wnd [0]")。sendVkey8

'objSheet.Range(" E2")。PasteSpecial
Session。 FindById(" wnd [0]/tbar [0]/btn [3]")。按


'如果Session.FindById(" wnd [0]/sbar")。Text <>""然后Range(" A1")。Value.Copy.Paste = COL5
如果StopNow然后退出


下一个iRow

结束字幕

一周热门 更多>