VB單擊按鈕宏注意工作

Question

我正在嘗試獲取在屏幕上跟蹤包的結果。 在Excel中，我有這個代碼，它成功打開IE瀏覽器並成功地將跟蹤號輸入到輸入框中。 什么不起作用是最后一步 - 按鈕單擊。 我得到運行時錯誤91 - 對象變量或未設置塊變量。 提前致謝。

Sub TrackUSPS（）

Const cURL = "https://tools.usps.com/go/TrackConfirmAction!input.action" 'Enter the web address here
Const trackNum = "9405511899560005266920" 'Tracking number 

Dim IE As InternetExplorer
Dim doc As HTMLDocument
Dim LoginForm As HTMLFormElement
Dim TrackInputBox As HTMLInputElement
Dim TrackButton As HTMLInputButtonElement
Dim HTMLelement As IHTMLElement
Dim qt As QueryTable

Set IE = New InternetExplorer

IE.Visible = True
IE.navigate cURL

'Wait for initial page to load

Do While IE.readyState <> READYSTATE_COMPLETE Or IE.Busy: DoEvents: Loop

Set doc = IE.document

'Get the tracking form on the page

Set LoginForm = doc.forms(1)

'Get the tracking input box and populate it
'<input type="text" id="search-text" autocomplete="off" name="searchText" class="default" value="Search USPS.com or Track Packages" onclick="javascript:dojo.byId('search-text').value='';"/>

Set TrackInputBox = LoginForm.elements("search-text")
TrackInputBox.Value = trackNum

'Get the form input button and click it
'<input type="image" id="search-btn" src="/media/images/global/blank.gif" alt="Process Search"  />

Set TrackButton = LoginForm.elements("search-btn")
TrackButton.Click

'Wait for the new page to load

Do While IE.readyState <> READYSTATE_COMPLETE Or IE.Busy: DoEvents: Loop

End Sub

Answer 1

這對我有用，取代Set TrackButton = LoginForm.elements（“search-btn”）
TrackButton.Click

同
IE.document.getelementbyID（ “搜索BTN”）。點擊