VBA与网页上的单选按钮交互

Question

编辑:几个月后,我再次尝试使用我第一次尝试的相同语法(在下面发布).出于某种原因,它奏效了!也许除了我的语法之外的其他东西导致无效...结束编辑

我一直在搜索论坛几个小时,现在试图找到解决这个问题的方法,但我没有尝试过任何工作.

我正在使用VBA自动化在SurveyMonkey上创建调查的过程.到目前为止,我已经能够:

• 登录我的帐户,
• 单击几个超链接以创建新的响应收集器,
• 命名收藏家,
• 转到收集器设置,
• 并选择四个单选按钮中的三个来更改收集器设置.

问题不在于我无法选择单选按钮; 我的代码选择前三个按钮就好了.令我困惑的是,第四个按钮不会改变!我对每个按钮使用相同的过程,所以我无法弄清楚为什么最后一个按钮不会选择.

这是我的代码部分:

objIE.Document.getElementById("rdlResponseType_1").Click    'Allow multiple responses = Yes
objIE.Document.getElementById("rdlResponseEdit_1").Click    'Allow Responses to be Edited = Yes
objIE.Document.getElementById("rdlThankyou_1").Click        'Display a "Thank You" page? = Yes
objIE.Document.getElementById("rdlCompleteOpt_1").Click     'Survey Completion = Close Window

这是单选按钮的HTML:

<table border="0" cellpadding="0" cellspacing="0" style="width: 100%;">
                        <tr id="CompleteOptDesc">
            <td style="">&nbsp;</td>
            <td>After the respondent leaves the survey:</td>
        </tr>

                        <tr id="CompleteOptItems">
            <td style="">&nbsp;</td>
            <td align="left" nowrap="nowrap" valign="top">
                                <table id="rdlCompleteOpt" class="Clean radioList" OnClick="radioToggle('rdlCompleteOpt', '0', 'panLink');" name="rdlCompleteOpt" border="0" style="white-space: nowrap">
                <tr>
                    <td><span style="white-space: nowrap"><input id="rdlCompleteOpt_0" type="radio" name="rdlCompleteOpt" value="0" checked="checked" /><label for="rdlCompleteOpt_0"><b>Redirect</b> to your own webpage.</label></span></td>
                </tr><tr>
                    <td><input id="rdlCompleteOpt_1" type="radio" name="rdlCompleteOpt" value="2" /><label for="rdlCompleteOpt_1"><b>Close Window</b></label></td>
                </tr>
            </table>

这是收音机切换部分的代码:

<td width="65%" valign="top">
                                <div id="panLink" style="DISPLAY:inline">

                                    <div class="URLinfo">

                                            <b>Enter a URL</b> to jump to upon leaving the survey:<br />
                                            <div title="REQUIRED: Enter URL (255 character max)" style="padding:4px 0 2px 0;">
                                                <input name="txtWebLink" type="text" value="http://www.surveymonkey.com/" maxlength="255" size="40" id="txtWebLink" class="RQR opaque" />
                                            </div>
                                            <span class="tip">Example: <u>http://www.mysite.com/home.html</u></span>
                                    </div>

            </div>
                            </td>

任何建议将非常感谢!

Answer 1

有几件事需要考虑：

1. 你什么时候调用这个代码？OnNavigate 还是 DocumentComplete？该对象可能还不存在。您可以通过使用断点并添加表达式监视来检查它是否有效

   objIE.Document.getElementById("rdlCompleteOpt_1")
   

   使用 OnDocumentComplete 确保 HTML 组件存在

2. 您调用点击函数的方式可能会导致问题。尝试这个

   Call objIE.Document.getElementById("rdlCompleteOpt_1").Click()
   

   我怀疑它可能会产生很大的影响，但我喜欢验证一切。

3. 通过删除“层”来隔离问题的原因。您可以使用从 IE 开发工具 (F12) JavaScript 控制台调用的纯 JavaScript 来完成此操作吗？

   如果不是，则问题出在您与页面元素交互的方式上。如果是，那么我们需要弄清楚是什么导致了 VBA 完整性问题。再次参见#2，因为它可能是问题的原因。

   另外，如果更改元素的 HTML 顺序，是否会出现此问题？如果你这样称呼怎么办？

   objIE.Document.getElementById("rdlCompleteOpt_1").Click     'Survey Completion = Close Window
   objIE.Document.getElementById("rdlResponseType_1").Click    'Allow multiple responses = Yes
   objIE.Document.getElementById("rdlResponseEdit_1").Click    'Allow Responses to be Edited = Yes
   objIE.Document.getElementById("rdlThankyou_1").Click        'Display a "Thank You" page? = Yes
   

   那么它是否有效，或者“最后”一项是否失败？

4. 不太可能是原因，但 HTML 提供缺少关闭单元格、行和表格的代码。

           </tr>
   
       </table>
      <!-- missing -->
      </td>
     </tr>
   </table>
   

5. 虽然不是您问题的具体答案，但我相信这可能符合您帖子的意图。由于您想要管理 SurveyMonkey 收集器，请查看此处的 SurveyMonkey API，因为使用 API 会给您带来很多好处。

   • 您不必依赖可能会发生变化或超出您控制范围的用户元素
   • 您可以使用受控和“契约”界面来管理涵盖您未来任何更改的信息（假设它们不弃用并停止支持该 API）