Excel VB单击按钮宏注释工作

我正在尝试在屏幕上获取跟踪包裹的结果。在Excel中，我有一段代码，它成功地打开了IE浏览器，并成功地将跟踪号输入到输入框中。不起作用的是最后一步-点击按钮。我得到运行时错误91-对象变量或未设置块变量。提前谢谢

子轨道USPS（）

Const cURL=”https://tools.usps.com/go/TrackConfirmAction！input.action“'在此处输入网址
Const trackNum=“9405511899560005266920”'跟踪编号
Dim IE作为InternetExplorer
作为HTMLDocument的Dim doc
作为HTMLFormElement的Dim LoginForm
将TrackInputBox设置为HTMLInputElement
将TrackButton变暗为HTMLInputButtonElement
将Htmlement设置为iHtmlement
将qt设置为查询表
Set IE=新的InternetExplorer
可见=真实
例如，卷曲
'等待加载初始页面
在IE.readyState readyState_完成或IE.Busy:DoEvents:Loop时执行
Set doc=IE.document
'获取页面上的跟踪表单
Set LoginForm=doc.forms（1）
'获取跟踪输入框并填充它
'
设置TrackInputBox=LoginForm.elements（“搜索文本”）
TrackInputBox.Value=trackNum
'获取表单输入按钮并单击它
'
Set TrackButton=LoginForm.elements（“搜索btn”）
轨迹按钮。单击
'等待加载新页面
在IE.readyState readyState_完成或IE.Busy:DoEvents:Loop时执行
端接头

这对我有效，请更换 Set TrackButton=LoginForm.elements（“搜索btn”）
轨迹按钮。单击

与
IE.document.getelementbyID（“搜索btn”）。单击

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