Mut*_* A. 5 excel internet-explorer vba
我正在尝试使用 VBA (Excel) 从列表框(表元素实际上是文本区域)中选择一个项目。
\n\n我可以选择该项目(通过更改值),但问题是当我按下“保存”按钮时,网站返回以下错误:
\n\n\n\n\n当状态为待处理或已解决时,“状态原因”字段需要一个值。从菜单中选择状态原因。(ARERR 1291220)
\n
我认为发生这种情况是因为列表框没有更新。
\n\n列表框(不是真正的列表框):
\n\n<textarea title="" class="text sr " id="arid_WIN_1_1000000881" style="left: 117px; top: 0px; width: 223px; height: 21px;" rows="1" cols="20" wrap="off" readonly="" arencryptdataatrest="0" arautoctt="400" arautocak="0" mdd="1" mstyle="2" armenu="SYS:RSN:StatusReason-Q-HPD-HelpDesk" maxlen="40"></textarea>\nRun Code Online (Sandbox Code Playgroud)\n\n我的代码:
\n\nDim post As Object, evt As Object\nSet evt = .Document.createEvent("keyboardevent")\nevt.initEvent "change", True, False\n\nSet post = .Document.getElementByID("arid_WIN_1_1000000881")\n post.Value = "No Further Action Required"\npost.dispatchEvent evt\nRun Code Online (Sandbox Code Playgroud)\n\n如果您需要更多信息,请告诉我。
\n\n[更新]
\n\n下面是按下列表框后显示的表格的完整代码
\n\n<div class="MenuOuter" style="left: 338px; top: 127px; width: 225px; height: 114px; visibility: inherit; z-index: 100007;" armenuelementserial="0"><div class="MenuScrollUp" style="width: 223px; visibility: hidden;">\xe2\x96\xb2</div><iframe src="https://extranet.inditex.com/arsys/resources/html/Blank.html" frameborder="0" scrolling="no" style="border: currentColor; border-image: none; left: 0px; top: 0px; width: 100%; height: 100%; display: block; position: absolute;"></iframe><div class="MenuTableContainer"><table class="MenuTable" style="width: 223px;" cellspacing="0" cellpadding="0"><tbody class="MenuTableBody"><tr class="MenuTableRow"><td class="MenuEntryName" nowrap="">Automated Resolution Reported</td><td class="MenuEntryNoSub" arvalue="Automated Resolution Reported"></td></tr><tr class="MenuTableRow"><td class="MenuEntryNameHover" nowrap="">Customer Follow-Up Required</td><td class="MenuEntryNoSubHover" arvalue="Customer Follow-Up Required"></td></tr><tr class="MenuTableRow"><td class="MenuEntryName" nowrap="">Temporary Corrective Action</td><td class="MenuEntryNoSub" arvalue="Temporary Corrective Action"></td></tr><tr class="MenuTableRow"><td class="MenuEntryName" nowrap="">Future Enhancement</td><td class="MenuEntryNoSub" arvalue="Future Enhancement"></td></tr><tr class="MenuTableRow"><td class="MenuEntryName" nowrap="">Monitoring Incident</td><td class="MenuEntryNoSub" arvalue="Monitoring Incident"></td></tr><tr class="MenuTableRow"><td class="MenuEntryName" nowrap="">No Further Action Required</td><td class="MenuEntryNoSub" arvalue="No Further Action Required"></td></tr><tr class="MenuTableRow"><td class="MenuEntryName" nowrap="">(clear)</td><td class="MenuEntryNoSub" arvalue=""></tr></tbody></table></div><div class="MenuScrollDown" style="width: 223px; visibility: hidden;">\xe2\x96\xbc</div></div>\nRun Code Online (Sandbox Code Playgroud)\n\n以及显示列表框的屏幕截图。
\n\n\n\n我想在更改值后更新状态原因字段的值(我已经能够做到),请注意,状态原因项目在状态列表框中选择项目后更新(状态列表框是输入)项目,我可以成功编辑该值并更新它)。
\n\n[更新1]
\n\n现在,我可以找到按下“状态原因”文本区域附近的按钮后出现的下拉列表。
\n\n首先,我单击按钮查看下拉列表
\n\n.Document.getElementsByClassName("df arfid1000000881 ardbnzID_Status_Reason Char")(0).getElementsByClassName("btn btn3d menu")(0).Click\nRun Code Online (Sandbox Code Playgroud)\n\n现在我成功地在表中找到了正确的行
\n\n.Document.getElementsByClassName("MenuTable")(0).Rows(5)\nRun Code Online (Sandbox Code Playgroud)\n\n但是当我这样做时 .Click 没有任何反应,我也尝试使用 FireEvent 和 Selected = True (最后一个给了我一个错误)
\n\n[更新2]
\n\n当我单击按钮打开下拉列表时,有一个 GET 回调,当我单击下拉列表中的项目时也会发生同样的情况。
\n\n\n\n<ExpandMenu>\n\nRequest URL: https://extranet.inditex.com/arsys/BackChannel/?param=283%2FExpandMenu%2F35%2FSYS%3ARSN%3AStatusReason-Q-HPD-HelpDesk6%2Fitxars13%2FHPD%3AHelp%20Desk6%2Fitxars28%2FSYS%3AStatus%20Reason%20Menu%20Items103%2F1%5C1%5C1%5C4%5C1%5C1%5C1000000101%5C2%5C4%5C13%5CHPD%3AHelp%20Desk%5C4%5C1%5C1%5C1000000186%5C99%5C7%5C4%5C1%5C1%5C7%5C2%5C6%5C1%5C4%5C1%5C1%5C1000004827%5C2%5C6%5C0%5C0%2F1%2F01%2F05%2F1%2F1%2F715%2F1%2F10%2F4%20Resolved5%2F1%2F1%2F62%2F0%2F2%2F0%2F2%2F0%2F2%2F0%2F2%2F0%2F2%2F0%2F&sToken=MCNY-LTDA-W512-T7V8-J5GS-JHN4-58XW-VYAK\nRun Code Online (Sandbox Code Playgroud)\n\n<GetEntryList>\n\nRequest URL: https://extranet.inditex.com/arsys/BackChannel/?param=266%2FGetEntryList%2F6%2Fitxars13%2FHPD%3AHelp%20Desk18%2FBest%20Practice%20View6%2Fitxars28%2FSYS%3AStatus%20Reason%20Menu%20Items0%2F71%2F1%5C4%5C1%5C99%5C1000000881%5C1%5C1000000009%5C4%5C1%5C2%5C4%5C13%5CHPD%3AHelp%20Desk%5C1%5C1000000101%5C15%2F1%2F10%2F100000088131%2F1%2F26%2FNo%20Further%20Action%20Required5%2F1%2F1%2F45%2F1%2F1%2F01%2F01%2F21%2F715%2F1%2F10%2F1000004336&sToken=MCNY-LTDA-W512-T7V8-J5GS-JHN4-58XW-VYAK\nRun Code Online (Sandbox Code Playgroud)\n
| 归档时间: |
|
| 查看次数: |
240 次 |
| 最近记录: |