teratail header banner
teratail header banner
質問するログイン新規登録

質問編集履歴

1

誤字訂正

2019/09/03 15:37

投稿

tanaka_ganbare
tanaka_ganbare

スコア11

title CHANGED
@@ -1,1 +1,1 @@
1
- VBAでのIE操作 サイトから料金情報を取得する方法
1
+ VBAでのIE操作 getElementsByClassNameでエラー(オブジェクト変数または With ブロック変数が設定されていません。)
body CHANGED
@@ -1,15 +1,15 @@
1
1
  VBAでIEを操作し、nexco西日本のサイト(https://search.w-nexco.co.jp/route.php)から
2
2
  高速料金を取得するexcelファイルを作成しようとしています。
3
3
 
4
- class属性のテキストをgetElementsByClassNameで取得しようと試みているのですがうまくいきません。
4
+ class属性のテキストをgetElementsByClassName(0).innertextで取得しようと試みているのですがうまくいきません。
5
5
  以下のコードを実行すると「オブジェクト変数またはWithブロック変数が設定されていません。」という、
6
6
  エラーが表示されてしまいます。ただ、デバックから継続すると、必要な情報を表示することができますが。
7
7
  初めにエラーが表示される原因がわかりません。原因がわかる方がいればご指摘をお願いします。
8
8
 
9
- 浜松西や豊田JCTなどの情報を取得したい。
9
+ 浜松西や豊田JCTなどの情報を取得したい。
10
10
  ![イメージ説明](c1648dde8d935bfd9db75c84709239f5.png)
11
11
 
12
-
12
+ ```VBA
13
13
  Dim IE As Object, Obj As Object
14
14
  'IE起動
15
15
  Set IE = CreateObject("InternetExplorer.Application")
@@ -43,4 +43,5 @@
43
43
 
44
44
  MsgBox IE.document.getElementsByClassName("point")(0).innerText
45
45
 
46
- End Sub
46
+ End Sub
47
+ ```