VB單擊按鈕宏注意工作

Question

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

子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

這個工作對我來說，更換 設置TrackButton = LoginForm.elements（ 「搜索BTN」）
TrackButton.Click

與
IE.document .getelementbyID（「search-btn」）。Click