搜索按钮/跨度类/不起作用/ VBA Excel

Question

Sub Orion()

Dim IE As Object
Dim doc As HTMLDocument
Set IE = CreateObject("InternetExplorer.Application")
Set IE = New InternetExplorerMedium

IE.Visible = True
IE.navigate "http://aporion.lear.com/Orion/Nodes/Default.aspx"

Do While IE.Busy
    Application.Wait DateAdd("s", 1, Now)
Loop

Set doc = IE.document

doc.getElementById("search").Value = ThisWorkbook.Sheets("Data").Range("A1").Value

我尝试了这个但没有用：

IE.doc.getElementsbyClassName("sw-btn-t")(0)

---

有一个具有语法的搜索按钮。

span class="sw-btn-t"Search/span>

任何人都可以帮忙。