HTMLを使用するMicrosoft AccessのVBA IE

を通じてウェブサイト上で特定のタブをクリックすることは、ここでは、ウェブサイト上のタブがどのように見えるかです。HTMLを使用するMicrosoft AccessのVBA IE

[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タブとどれもがトリックを行っているアクティブにするには、多くの方法を試してみました。誰にも何か提案はありますか？

出典

2017-06-08 Rory Reyes

"私は多くの方法を試しました" - 通常、あなたが試したコードを表示し、実行したときに何が起こったのかを説明するのが最適です。 –

返信Timさんありがとうございます。私はそれがベストプラクティスであることに同意しますが、テストに追加して足踏みしているだけです。うまくいかないときは、別のものを試してみてください。私が試したことのいくつかの例を追跡します。私はHTMLについてあまり知りませんので、明らかな解決策があることを期待していました。もう一度お返事いただきありがとうございます –

'doc.getElementsByTagName（" a "）.getElementsByClassName（" ng-binding "）'のようなものは、すべてのタブを取得し、そのコレクションをループして 'innerText'に" Rigs " –

私は本当に構文を理解することはできません。それは '生産'を読むのですか？

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

出典

2017-06-20 17:35:16 ryguy72

HTMLを使用するMicrosoft AccessのVBA IE

答えて

関連する問題