• ベストアンサー
※ ChatGPTを利用し、要約された質問です(原文:食べログの検索結果をVBAで取得したいのですが)

VBAで食べログの検索結果を取得する方法エラーについて

このQ&Aのポイント
  • VBAを使用して食べログの検索結果を取得しようとしていますが、エラーが発生しています。
  • 具体的には、「オブジェクトは、このプロパティまたはメソッドをサポートしていません」というエラーメッセージが表示されています。
  • 原因として、取得する要素のクラス名が正しく指定されていない可能性があるため、エラーが発生していると考えられます。

質問者が選んだベストアンサー

  • ベストアンサー
回答No.1

こんにちは。 > myObj.class ではなくて、 myObj.className なのでは? プロパティのあるなしで躓くようでしたら、MSHTMLに参照設定なさった方が宜しいかと。 ローカルウィンドウ、オブジェクトブラウザ、なども活用できると 困ることが減らせると思いますよ。 ' ' /// ' ' ■ SHDocVw 参照設定: Microsoft Internet Controls ' ' ■ MSHTML 参照設定: Microsoft HTML Object Library Sub Re9094432() Dim strURL As String Dim objIE As InternetExplorer Dim myObj As Object ' As HTMLAnchorElement   strURL = "http://tabelog.com/tokyo/rstLst/washoku/"   Set objIE = CreateObject("InternetExplorer.Application")   objIE.Visible = True   objIE.Navigate strURL   Do While objIE.Busy = True Or objIE.ReadyState < 3     DoEvents   Loop   For Each myObj In objIE.Document.all.tags("a")     If myObj.className = "list-rst__rst-name-target js-click-rdlog" Then     Debug.Print myObj.href     End If   Next   objIE.Quit   Set objIE = Nothing End Sub ' ' /// 因みに、   For Each myObj In objIE.Document.getElementsByClassName("list-rst__rst-name-target js-click-rdlog")     Debug.Print myObj.href   Next みたいに、クラス名で篩に掛けておくようにしてみてもいいかも知れませんね。

BUHIPWJPVNRE
質問者

お礼

ありがとうございました。