2016-05-17 5 views
0

私はこのサイトのリンク:https://finder.fi/search?what=soneraにアクセスしようとしています。リンクはページの最初の結果です。開発ツールに表示されているソースコードではない要素にアクセスする方法VBA

<a class="SearchResult__ProfileLink" href="/Televiestint%C3%A4laitteita+ja+palveluja/Sonera/Helsinki/yhteystiedot/175522?what=sonera" data-track-link="profileLink" data-reactid=".27sinr99zb4.0:1.0.2.5:$0.1.1.0"><div class="SearchResult__Name" data-reactid=".27sinr99zb4.0:1.0.2.5:$0.1.1.0.0">Sonera</div></a> 

しかしこれのどれもが、ソースコードで見つけることができません:開発ツールのコードの一部は、このようなものです。 デベロッパーツールに表示されているコードにアクセスするにはどうすればよいですか?これまでの私のコードです。

Sub test() 
Dim browserIE As Object 
Set browserIE = CreateObject("InternetExplorer.Application") 
browserIE.Top = 0 
browserIE.Left = 800 
browserIE.Width = 800 
browserIE.Height = 1200 
browserIE.Visible = True 
browserIE.navigate ("https://finder.fi/search?what=sonera") 
Do While browserIE.ReadyState <> 4 And browserIE.Busy: DoEvents: Loop 

私はすでにいくつかの研究を行ってきた(例えばCant access element that are shown in developer tools but not in page source)が、まだ答えを見つけることができます。

+0

フレームはありますか? –

+0

ソースコードに含まれていない場合、DOMには含まれていないため、できません。 –

答えて

0

開発ツールには、"https://finder.fi/search?what=sonera"のHTMLコンテンツが表示されます。このページのHTMLにアクセスするには、HTMLページのDOM(Document Object Model)をナビゲートします。あなたが "InternetExplorer.Application"のためにGoogleの場合は、すべての必要な情報をMSDNへのリンクがあります。ページ上のすべてのリンクを検索するに

Dim oDoc As Object 
Set oDoc = BrowserIE.Document 

:ドキュメントにアクセスするには

Dim cLinks 
cLinks = oDoc.body.getElementsByTagName("A") 

この後者は、いくつかは、自分でしようとdebuggin必要があります。 MSDNはコレクションを返しますが、VBAの例は提供していません。したがって、DimはDim cLinks As Collectionである必要があります。

関連する問題