在 vba 中处理 Internet Explorer 表单答案

【问题标题】：Working on Internet explorer form in vba在 vba 中处理 Internet Explorer 表单
【发布时间】：2016-08-28 22:29:45
【问题描述】：

 </tr><tr IsParameterRow="true">
<td class="ParamLabelCell"><label for="ReportViewerControl_ctl04_ctl07_txtValue"><span>Enter Number</span></label></td><td class="ParamEntryCell" style="padding-right:0px;"><div id="ReportViewerControl_ctl04_ctl07">
                                    <input name="ReportViewerControl$ctl04$ctl07$txtValue" type="text" size="30" id="ReportViewerControl_ctl04_ctl07_txtValue" disabled="disabled" class="DisabledTextBox" />
                                </div></td>
                            </tr>

对于上述 HTML 代码，我无法在 vba 中输入数字。请建议。下面是输入数据的VBA代码。

sub my()
Dim IE As Object
Dim objElement As Object
Dim objCollection As Object

Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.Navigate Link
Do While IE.Busy
    Application.Wait DateAdd("s", 1, Now)
Loop
IE.document.getElementsById("ReportViewerControl_ctl04_ctl07_txtValue") = 12345
End Sub()




<td class="ParamLabelCell"><label for="ReportViewerControl_ctl04_ctl03_txtValue"><span>Enter Start Date Here</span></label></td><td class="ParamEntryCell" style="padding-right:0px;"><div id="ReportViewerControl_ctl04_ctl03">
                                    <div onactivate="event.cancelBubble=true;" style="white-space:nowrap;">
                                        <input name="ReportViewerControl$ctl04$ctl03$txtValue" type="text" value="11/29/2015" size="28" onchange="javascript:setTimeout('__doPostBack(\'ReportViewerControl$ctl04$ctl03$txtValue\',\'\')', 0)" onkeypress="if (WebForm_TextBoxKeyHandler(event) == false) return false;" id="ReportViewerControl_ctl04_ctl03_txtValue" disabled="disabled" class="DisabledTextBox" />&nbsp;<input src="/ReportServer/Reserved.ReportViewerWebControl.axd?OpType=Resource&Version=11.0.5058.0&Name=Microsoft.Reporting.WebForms.calendar_disabled.gif" name="ReportViewerControl$ctl04$ctl03$ddDropDownButton" type="image" id="ReportViewerControl_ctl04_ctl03_ddDropDownButton" alt="Select a value" title="Select a value" style="cursor:pointer;" disabled="disabled" />
                                    </div>
                                </div></td>

我有另一个日期输入框，但我使用的日期框相同。它显示错误“对象不支持此属性或方法

 IE.document.getElementById("ReportViewerControl_ctl04_ctl03").Value = sdate

其中 sdate 包含当前日期

【问题讨论】：

试试IE.document.getElementById("ReportViewerControl_ctl04_ctl07").Item(0) = 12345
IE.document.getElementById("ReportViewerControl_ctl04_ctl07_txtValue").value = "12345"
我有另一个日期输入框，但我使用的日期框相同。它显示错误“对象不支持此属性或方法”

标签： excel internet-explorer-11 vba

【解决方案1】：

IE.Document.getElementById("ctl32_ctl04_ctl03_txtValue").value = SDate

【讨论】：