- ベストアンサー
VBAで食べログの検索結果を取得する方法エラーについて
- VBAを使用して食べログの検索結果を取得しようとしていますが、エラーが発生しています。
- 具体的には、「オブジェクトは、このプロパティまたはメソッドをサポートしていません」というエラーメッセージが表示されています。
- 原因として、取得する要素のクラス名が正しく指定されていない可能性があるため、エラーが発生していると考えられます。
- みんなの回答 (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 みたいに、クラス名で篩に掛けておくようにしてみてもいいかも知れませんね。
お礼
ありがとうございました。