2020-09-19 01:32发布
点击此处---> 群内免费提供SAP练习系统（在群公告中）加入QQ群：457200227（SAP S4 HANA技术交流） 群内免费提供SAP练习系统（在群公告中）你好！ 我是SAP和VBA... 显示全部
加入QQ群：457200227（SAP S4 HANA技术交流） 群内免费提供SAP练习系统（在群公告中）
你好！
我是SAP和VBA的新手，但我确实需要一些帮助！
我正在尝试从Excel工作表中获取通知编号，将其输入QM03，然后转到"项目"以将"缺陷类型"输出到excel，然后转到"项目任务" 使用任务代码P020，然后将"任务文本"输出到excel。
如果找不到通知号，我想跳过它，转到下一个。
我正在使用Windows的SAP GUI。
我将非常感谢您的帮助！ 谢谢！
你好辛西娅，
请尝试以下代码：
子QM03（） 昏暗的SapGuiAuto作为对象 将SAPApp变暗为SAPFEWSELib.GuiApplication 将SAPCon昏暗为SAPFEWSELib.GuiConnection 昏暗的会话作为SAPFEWSELib.GuiSession Dim rngNotificationNumbers作为范围 昏暗的我只要 昏暗的StatusBarText作为字符串 Set SapGuiAuto = GetObject（" SAPGUI"）'获取SAP GUI脚本对象 设置SAPApp = SapGuiAuto.GetScriptingEngine'获取当前正在运行的SAP GUI Set SAPCon = SAPApp.Children（0）'获取当前已连接的第一个系统 设置会话= SAPCon.Children（0）'获取该连接上的第一个会话（窗口） '开始交易以查看表格 session.StartTransaction" QM03" 设置rngNotificationNumbers = Range（" A1：A3"） 对于i = 1到rngNotificationNumbers.Rows.Count session.FindById（" wnd [0]/usr/ctxtRIWO00-QMNUM"）。Text = CStr（rngNotificationNumbers.Cells（i，1）） session.FindById（" wnd [0]"）。SendVKey 0 StatusBarText = session.FindById（" wnd [0]/sbar/pane [0]"）。Text 如果InStr（StatusBarText，"不存在"），则 转到NextIteration 万一 '如果通知号存在，请按这里的正常流程 NextIteration： 下一个 结束子
在A1到A3单元格中是我的通知编号。
如上所述，我遍历该范围，并将每个通知号放在QM03字段中。
让我们知道您的结果。
干杯 Stefan
最多设置5个标签!
{var%20f='http://v.t.sina.com.cn/share/share.php?appkey=1515056452',u=z||d.location,p=['&url=',e(u),'&title=',e(t||d.title),'&source=',e(r),'&sourceUrl=',e(l),'&content=',c||'gb2312','&pic=',e(p||'')].join('');function%20a(){if(!window.open([f,p].join(''),'mb',['toolbar=0,status=0,resizable=1,width=440,height=430,left=',(s.width-440)/2,',top=',(s.height-430)/2].join('')))u.href=[f,p].join('');};if(/Firefox/.test(navigator.userAgent))setTimeout(a,0);else%20a();})(screen,document,encodeURIComponent,'','','http://www.easysap.com/data/attach/logo/logo.png', '推荐 me_for_i 的问题《需要帮助，将数据从excel输入到SAP，然后从那里输出到excel》','https://www.easysap.com/answer/87030/237882.html','页面编码gb2312|utf-8默认gb2312'));){kind=link}
你好辛西娅，
请尝试以下代码：
子QM03（） 昏暗的SapGuiAuto作为对象 将SAPApp变暗为SAPFEWSELib.GuiApplication 将SAPCon昏暗为SAPFEWSELib.GuiConnection 昏暗的会话作为SAPFEWSELib.GuiSession Dim rngNotificationNumbers作为范围 昏暗的我只要 昏暗的StatusBarText作为字符串 Set SapGuiAuto = GetObject（" SAPGUI"）'获取SAP GUI脚本对象 设置SAPApp = SapGuiAuto.GetScriptingEngine'获取当前正在运行的SAP GUI Set SAPCon = SAPApp.Children（0）'获取当前已连接的第一个系统 设置会话= SAPCon.Children（0）'获取该连接上的第一个会话（窗口） '开始交易以查看表格 session.StartTransaction" QM03" 设置rngNotificationNumbers = Range（" A1：A3"） 对于i = 1到rngNotificationNumbers.Rows.Count session.FindById（" wnd [0]/usr/ctxtRIWO00-QMNUM"）。Text = CStr（rngNotificationNumbers.Cells（i，1）） session.FindById（" wnd [0]"）。SendVKey 0 StatusBarText = session.FindById（" wnd [0]/sbar/pane [0]"）。Text 如果InStr（StatusBarText，"不存在"），则 转到NextIteration 万一 '如果通知号存在，请按这里的正常流程 NextIteration： 下一个 结束子在A1到A3单元格中是我的通知编号。
如上所述，我遍历该范围，并将每个通知号放在QM03字段中。
让我们知道您的结果。
干杯
Stefan
一周热门 更多>