html - Excel VBA を使用して Web サイトの検索バーに入力する

Question

データを Web 検索フォームに挿入し、結果をテーブルにコピーする Excel マクロを作成しようとしています。Web 検索フォームは実際には「フォーム」ではなく空白のテーブルなので、何もないためフォームの入力値を変更することはできません。

<td valign="top">
    <table border="0" cellspacing="0" cellpadding="2">
        <tr>
            <th class="navLabelText" align="left">Order:</th>
            <td>
                <input class="navEditField" id="opt_ordernumber_int" name="ordernumber" type="text" size="6" maxlength="6" />
            </td>
        </tr>
    </table>
</td>
<td width="10">&nbsp;</td>

HTML は、同じタイプのフォームをさらに続けています (サイトは .jsp であるため、Java でコーディングされていると思います)。空のテーブルに値を渡す方法はありますか?

これが私がこれまでに持っているものです：

Sub featurecode()

Dim ie As Object
Dim doc As HTMLDocument
Dim links As IHTMLElementCollection
Dim link As HTMLAnchorElement
Dim i As Integer
Dim found As Boolean
Dim todaysURL As String

Dim objElement As Object
Dim objCollection As Object

Set ie = CreateObject("InternetExplorer.Application")

ie.Visible = True 'false
ie.navigate "https://website.com"
Application.StatusBar = "Loading Feature Codes"

Do Until ie.readyState = IE_READYSTATE.complete: DoEvents: Loop

Set doc = ie.document


' Find the input tag of the order form and submit button:
Set objCollection = ie.document.getElementsByTagName("input")

i = 0
While i < objCollection.Length
    If objCollection(i).Name = "ordernumber" Then

        ' Set text for search
        objCollection(i).Value = "655032"

    Else
        If objCollection(i).Type = "submit" And objCollection(i).Name = "Submit" Then

            ' "Search" button is found
            Set objElement = objCollection(i)
            objElement.Click

        End If
    End If
    i = i + 1
Wend

End Sub

私が問題を抱えている部分はこれです：

If objCollection(i).Name = "ordernumber" Then

    ' Set text for search
    objCollection(i).Value = "655032"

通常はフォームのHTML値を変更できるのですが、今回はinputタグにHTML値が入っていないので途方に暮れています。ここでの私の目標は、注文番号をフォームに挿入して送信ボタンを押すことです。残念ながら、このウェブサイトは企業の内部サイトであるためお見せできませんが、関連情報のスクリーンショットを以下に示します:スクリーンショット

ありがとう！