问VBA在网页上选择选项卡，该选项卡引用Java脚本

EN

name="home_tab_name_97" value="KPI - Best Card Jobs"/></div>
<div id="home_tab_98" class="home_tab" title="" >
   <div class="home_tab_inner"><span id="home_tab_label_98" onclick="SelectHomeTab(98)">NBT Order Intake</span>&nbsp;<img src="Includes.aspx?type=image&amp;name=Images/lsd_down.gif" border="0" class="home_tab_setting" onclick="HomeTabSettings(98)" /></div>
   <div class="el_hidden" id="home_tab_settings_98">
      <div><a class="mnu_item" href="javascript: RenameHomeTab(98)">Rename</a></div>
      <div><a class="mnu_item" href="javascript: DeleteHomeTab(98)">Delete</a></div>
      <div><a class="mnu_item" href="javascript: ShareHomeTab(98)">Make Public</a></div>
      <div><a class="mnu_item" href="javascript: ShowAddDashCustomPageOptions(98)">Add Custom Item</a></div>
      <div class="mnu_item_divider"></div>
      <div><a class="mnu_item" onclick="HideHomeSettings(98)">Cancel</a></div>
   </div>
   <input type="hidden" id="home_tab_name_98" name="home_tab_name_98" value="NBT Order Intake"/>
</div>
<div id="home_tab_99" class="home_tab" title="" >
<div class="home_tab_inner">
<span id="home_tab_label_99"

Sub test()
    Dim IE As Object
    Dim objElement As Object
    Dim objCollection As Object

    'add worksheet
    Sheets.Add after:=ActiveSheet

    'destination
    Set destsheet = ActiveSheet

    'use internet explorer
    Set IE = CreateObject("InternetExplorer.application")
    ' with internet open, make this visable and go to webpage x, enter username a
    nd passwork
    With IE
        .Visible = True
        .navigate ("URL")
        While .Busy Or .readyState <> 4: DoEvents: Wend
        'ie.Document.getElementsbyname("User name").Focus
        IE.document.getElementsByName("username")(0).Value = "Username"
        IE.document.getElementsByName("password")(0).Value = "Pword"
        While .Busy Or .readyState <> 4: DoEvents: Wend
        'look for the input field (HTML CODE)
        Set objCollection = IE.document.getElementsByTagName("input")

        i = 0
        While i < objCollection.Length
            If objCollection(i).Type = "submit" And _
               objCollection(i).Name = "" Then
                ' "Search" button is found
                Set objElement = objCollection(i)

            End If
            i = i + 1
        Wend
        '(click the log on)
        objElement.Click
        While .Busy Or .readyState <> 4: DoEvents: Wend
    End With
    With IE
        IE.document.querySelector("input[id=home_tab_name_98]").Click
    End With
    'close the internet page
End Sub