Доступ к элементу ввода, встроенному в таблицу HTML, через VBA

0

Я осмотрелся, и я не уверен, что этот вопрос задавали раньше. Я думаю, что я нахожусь в начале решения, но вот моя проблема. У меня есть HTML-таблица на веб-странице, в которой есть встроенный элемент ввода, и мне нужно получить к нему доступ через VBA. Вот соответствующий фрагмент HTML:

<td class="tbl1"><input size="11" type="text" maxlength="9" name="txtCusipNo" value=''><a href="javascript:;" onclick="window.open('/SecFinderII1/SIM_SeekSearch.jsp?clientobjectreference=frmSearchEntry.txtCusipNo&formname=frmSearchEntry&textboxname=txtCusipNo','SecurityFinder','resizable=yes,scrollbars=yes,status=no');"><img src="/Settlement/static/images/pbs/lookup.gif" border="0" alt="Open Security Finder" align="absmiddle"></a>&nbsp;<img name="imgCusipNo" src="/Settlement/static/images/pbs/req.gif" border="0" align="top"></td>

Я могу найти эту ячейку достаточно легко, используя следующий код:

Set Cells = HTMLDoc.getElementsByTagName("td")
For Each Cell In Cells
    If Cell.className = "tbl1" And Cell.something = something Then
        'This is the cell
    End If
Next Cell

На странице всего 5 ячеек, так что ничего страшного. Мне все еще нужно выяснить, как использовать элемент ввода. Думаю, получишь ребенка или что-то еще? Кажется, не удается найти какие-либо выводы по этому поводу...

Теги:
html-table
dom

1 ответ

0

Попробуйте InvokeMember:

Set Cells = HTMLDoc.getElementsByTagName("td")
For Each Cell In Cells
    If Cell.className = "tbl1" And Cell.something = something Then
        Cell.InvokeMember("click")
    End If
Next Cell

Ещё вопросы

Сообщество Overcoder
Наверх
Меню