エクセルVBAエラーランタイムエラー438は、私は、Webページから特定のクラスの内容を取得しようとしているエクセルVBAを使用してWebページクラスのコンテンツ

Question

を取得。

これはコードです：

sUrl = "https://www.example.com/" 
Set oBrowser = CreateObject("InternetExplorer.Application") 
oBrowser.navigate sUrl 
With oBrowser 
Do While .Busy Or .ReadyState <> 4: Loop 
End With 
Set HTMLDoc = oBrowser.document.getElementsByClassName("classNew") 

このコードは、IEブラウザを作成し、正しいページに移動されます。

ラインの場合：すべてのエラーを生成しないコードをコンパイル

Set HTMLDoc = oBrowser.document.getElementsByClassName("classNew") 

はしかし、私はエラーを取得します。

Answer 1

あなたが欲しいクラスの要素のインデックス番号を知っておく必要があります場合、またはそのクラス名の試みとの唯一の要素：

Set HTMLDoc = oBrowser.document.getElementsByClassName("classNew")(0) 

ます。また、必要があります.innerText、outerText、innerHTMLかオブジェクトを文字列に変換するには、末尾にouterHTMLを追加します。