Question

编辑：几个月后，我再次尝试使用我第一次尝试的相同语法（在下面发布）。出于某种原因，它有效！也许除了我的语法之外的其他东西导致无效...... END EDIT

我一直在搜索论坛几个小时，现在试图找到解决这个问题的方法，但我尝试过的都没有。

我正在使用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

有几件事需要考虑：

您何时调用此代码？ OnNavigate或DocumentComplete？可能该对象尚不存在。您可以通过使用断点并为表达式
添加监视来检查它是否存在
```
objIE.Document.getElementById("rdlCompleteOpt_1")
```
使用OnDocumentComplete确保HTML组件存在
您调用点击功能的方式可能会导致问题。试试这个
```
Call objIE.Document.getElementById("rdlCompleteOpt_1").Click()
```
我怀疑它可能会产生很大的影响，但我想验证一切。
通过删除“图层”来隔离问题的原因。您可以使用从IE开发工具（F12）JavaScript控制台调用的纯JavaScript来实现此目的吗？

如果不是，则问题在于您如何与页面元素进行交互。如果是，那么我们需要弄清楚它是什么，VBA intaction导致问题。再次看到＃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
```
是否有效或“最后”项目失败？
极不可能是原因，但HTML耗材缺少关闭单元格，行和表格的代码。
```
        </tr>

    </table>
   
   </td>
  </tr>
</table>
```
虽然不是您问题的具体答案，但我认为这可能符合您帖子的意图。由于您想要管理surveymonkey收集器，请查看SurveyMonkey API here，因为使用API可以带来很多好处。
- 您不必依赖可能在您的控件之外更改或更改的用户元素
- 您可以使用受控和“签约”的界面来管理涵盖您未来任何更改的信息（假设他们不弃用并停止支持API）

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

1 个答案: