HTML - 使用Microsoft Access VBA通​​过IE单击网站上的某个选项卡

Question

以下是网站上的标签：

点击它们会激活下面的另一个数据表。

我正在尝试激活RIGS标签。以下是图片中包含的所有选项卡的HTML代码：

<ul class="nav nav-tabs di-nav-tabs" ng-class="{'show-scroll': tabsNeedScroll}">
  <!-- ngRepeat: tab in tabState.tabs --><!-- ngIf: isDatasourceVisible(tab.datasourceId) --><li ng-repeat="tab in tabState.tabs" ng-class="{active: tab.active, disabled: tab.disabled}" ng-if="isDatasourceVisible(tab.datasourceId)" class="ng-scope">
    <a href="" ng-click="select(tab)" class="ng-binding">
      <!-- ngIf: tab.group==='International' -->
      Leases
    </a>
  </li><!-- end ngIf: isDatasourceVisible(tab.datasourceId) --><!-- end ngRepeat: tab in tabState.tabs --><!-- ngIf: isDatasourceVisible(tab.datasourceId) --><li ng-repeat="tab in tabState.tabs" ng-class="{active: tab.active, disabled: tab.disabled}" ng-if="isDatasourceVisible(tab.datasourceId)" class="ng-scope active" style="">
    <a href="" ng-click="select(tab)" class="ng-binding">
      <!-- ngIf: tab.group==='International' -->
      Production
    </a>
  </li><!-- end ngIf: isDatasourceVisible(tab.datasourceId) --><!-- end ngRepeat: tab in tabState.tabs --><!-- ngIf: isDatasourceVisible(tab.datasourceId) --><li ng-repeat="tab in tabState.tabs" ng-class="{active: tab.active, disabled: tab.disabled}" ng-if="isDatasourceVisible(tab.datasourceId)" class="ng-scope">
    <a href="" ng-click="select(tab)" class="ng-binding">
      <!-- ngIf: tab.group==='International' -->
      Wells
    </a>
  </li><!-- end ngIf: isDatasourceVisible(tab.datasourceId) --><!-- end ngRepeat: tab in tabState.tabs --><!-- ngIf: isDatasourceVisible(tab.datasourceId) --><li ng-repeat="tab in tabState.tabs" ng-class="{active: tab.active, disabled: tab.disabled}" ng-if="isDatasourceVisible(tab.datasourceId)" class="ng-scope">
    <a href="" ng-click="select(tab)" class="ng-binding">
      <!-- ngIf: tab.group==='International' -->
      Permits
    </a>
  </li><!-- end ngIf: isDatasourceVisible(tab.datasourceId) --><!-- end ngRepeat: tab in tabState.tabs --><!-- ngIf: isDatasourceVisible(tab.datasourceId) --><li ng-repeat="tab in tabState.tabs" ng-class="{active: tab.active, disabled: tab.disabled}" ng-if="isDatasourceVisible(tab.datasourceId)" class="ng-scope" style="">
    <a href="" ng-click="select(tab)" class="ng-binding">
      <!-- ngIf: tab.group==='International' -->
      Rigs
    </a>
  </li><!-- end ngIf: isDatasourceVisible(tab.datasourceId) --><!-- end ngRepeat: tab in tabState.tabs --><!-- ngIf: isDatasourceVisible(tab.datasourceId) --><li ng-repeat="tab in tabState.tabs" ng-class="{active: tab.active, disabled: tab.disabled}" ng-if="isDatasourceVisible(tab.datasourceId)" class="ng-scope">
    <a href="" ng-click="select(tab)" class="ng-binding">
      <!-- ngIf: tab.group==='International' -->
      Landtrac Lease
    </a>
  </li><!-- end ngIf: isDatasourceVisible(tab.datasourceId) --><!-- end ngRepeat: tab in tabState.tabs --><!-- ngIf: isDatasourceVisible(tab.datasourceId) --><li ng-repeat="tab in tabState.tabs" ng-class="{active: tab.active, disabled: tab.disabled}" ng-if="isDatasourceVisible(tab.datasourceId)" class="ng-scope">
    <a href="" ng-click="select(tab)" class="ng-binding">
      <!-- ngIf: tab.group==='International' -->
      Landtrac Unit
    </a>
  </li><!-- end ngIf: isDatasourceVisible(tab.datasourceId) --><!-- end ngRepeat: tab in tabState.tabs --><!-- ngIf: isDatasourceVisible(tab.datasourceId) --><!-- end ngRepeat: tab in tabState.tabs --><!-- ngIf: isDatasourceVisible(tab.datasourceId) --><!-- end ngRepeat: tab in tabState.tabs --><!-- ngIf: isDatasourceVisible(tab.datasourceId) --><!-- end ngRepeat: tab in tabState.tabs --><!-- ngIf: isDatasourceVisible(tab.datasourceId) --><!-- end ngRepeat: tab in tabState.tabs --><!-- ngIf: isDatasourceVisible(tab.datasourceId) --><!-- end ngRepeat: tab in tabState.tabs --><!-- ngIf: isDatasourceVisible(tab.datasourceId) --><!-- end ngRepeat: tab in tabState.tabs --><!-- ngIf: isDatasourceVisible(tab.datasourceId) --><!-- end ngRepeat: tab in tabState.tabs --><!-- ngIf: isDatasourceVisible(tab.datasourceId) --><!-- end ngRepeat: tab in tabState.tabs --><!-- ngIf: isDatasourceVisible(tab.datasourceId) --><!-- end ngRepeat: tab in tabState.tabs --><!-- ngIf: isDatasourceVisible(tab.datasourceId) --><!-- end ngRepeat: tab in tabState.tabs --><!-- ngIf: isDatasourceVisible(tab.datasourceId) --><!-- end ngRepeat: tab in tabState.tabs --><!-- ngIf: isDatasourceVisible(tab.datasourceId) --><!-- end ngRepeat: tab in tabState.tabs -->

  <li ng-class="{active: shapefileTableInfo.active, disabled: shapefileTableInfo.disabled}" ng-show="hasShapefiles()" class="" style="">
    <a href="" ng-click="select(shapefileTableInfo)">Shapefiles</a>
  </li>
</ul>

我已经尝试了许多方法来激活RIGS标签，但没有一种方法可以完成。有没有人有任何建议？

Answer 1

我无法弄清楚语法。它是否为“生产”？

Sub DownloadData()

Dim lColumn As Long
Dim iCntr As Long
Dim ws As Worksheet
Dim rwsToCheck As Long
Dim MyRange As Range
Dim iCounter As Long
Dim LastRow As Long
Dim LastColumn As Long

Set ie = CreateObject("InternetExplorer.application")


With ie
    .Visible = True
    .navigate "your_url_here"

' Wait for the page to fully load; you can't do anything if the page is not fully loaded
Do While .Busy Or _
    .readyState <> 4
    DoEvents
Loop


For Each Anchor In ieAnchors 
    If Anchor.innerHTML Like "*Production*" Then 
        Anchor.Click 
        Exit For 
    End If 
Next Anchor 


End Sub