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。
我将非常感谢您的帮助！ 谢谢！
您好 Stefan Schnell ，
谢谢您的帮助！
我稍微修改了代码以包含我的范围，但由于SAP未返回数据，因此出现错误619。
您知道如何解决吗？
子QM03（） Set SapGuiAuto = GetObject（" SAPGUI"）'获取SAP GUI脚本对象 设置SAPApp = SapGuiAuto.GetScriptingEngine'获取当前正在运行的SAP GUI Set SAPCon = SAPApp.Children（0）'获取当前已连接的第一个系统 设置会话= SAPCon.Children（0）'获取该连接上的第一个会话（窗口） '开始交易以查看表格 session.StartTransaction" QM03" Dim rngNotificationNumbers作为范围 设置rngNotificationNumbers = Range（" A4：A704"） Dim arrNotificationNumbers（700）作为字符串 暗单元格范围 昏暗的我只要 我= 0 对于i = 0到UBound（arrNotificationNumbers）-1 session.FindById（" wnd [0]/usr/ctxtRIWO00-QM03"）。Text = arrNotificationNumbers（i） session.FindById（" wnd [0]"）。SendVKey 0 StatusBarText = session.FindById（" wnd [0]/sbar/pane [0]"）。Text 如果InStr（StatusBarText，"不存在"），则 转到NextIteration 万一 NextIteration： 下一个 结束
最多设置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/237881.html','页面编码gb2312|utf-8默认gb2312'));){kind=link}
您好 Stefan Schnell ，
谢谢您的帮助！
我稍微修改了代码以包含我的范围，但由于SAP未返回数据，因此出现错误619。
您知道如何解决吗？
子QM03（） Set SapGuiAuto = GetObject（" SAPGUI"）'获取SAP GUI脚本对象 设置SAPApp = SapGuiAuto.GetScriptingEngine'获取当前正在运行的SAP GUI Set SAPCon = SAPApp.Children（0）'获取当前已连接的第一个系统 设置会话= SAPCon.Children（0）'获取该连接上的第一个会话（窗口） '开始交易以查看表格 session.StartTransaction" QM03" Dim rngNotificationNumbers作为范围 设置rngNotificationNumbers = Range（" A4：A704"） Dim arrNotificationNumbers（700）作为字符串 暗单元格范围 昏暗的我只要 我= 0 对于i = 0到UBound（arrNotificationNumbers）-1 session.FindById（" wnd [0]/usr/ctxtRIWO00-QM03"）。Text = arrNotificationNumbers（i） session.FindById（" wnd [0]"）。SendVKey 0 StatusBarText = session.FindById（" wnd [0]/sbar/pane [0]"）。Text 如果InStr（StatusBarText，"不存在"），则 转到NextIteration 万一 NextIteration： 下一个 结束一周热门 更多>