エクセルのVBAで指定したURLソース内の指定したIDのDOMを抜き出す方法。

Question

###前提・実現したいこと
エクセルのVBAを使用して
A列にて指定したURLのソース内から
指定したIDのDOMをB列へ抜き出そうとしています。

###発生している問題

コンパイルエラー、プロージャが大きすぎます

500ページを実行しようとした際に
上記のようなエラーが発生してしまいました。
下記に今回作成したコードを記載しますので、
記述方法の改善案や、速度向上の方法があれば教えていただきたいです。

###該当のソースコード

Sub test()
  Dim objIE As Object
  Dim i As Long
  Set objIE = CreateObject("InternetExplorer.Application")
  With objIE
.navigate Cells(1, 1)
While .Busy Or .ReadyState <> 4: DoEvents: Wend
With .Document
Cells(1, 2) = .GetElementById("item_data").outerHTML
End With

×500

  End With
  objIE.Quit
  Set objIE = Nothing
End Sub

###最後に
VBAについてはこの度初めて触れたもので
説明不足な面もあるかと思いますが、
お力を貸していただければ幸いです。

Answer 1

調べたところ、単に１プロシージャ（関数）あたりのコード量が多すぎることが原因のようです。
https://msdn.microsoft.com/ja-jp/library/office/gg251481.aspx

提示されたコードを見た感じでは、以下の範囲が500回繰り返されているということですよね（End Whileがないので正確ではないかもですが）

.navigate Cells(1, 1)
While .Busy Or .ReadyState <> 4: DoEvents: Wend
	With .Document
		Cells(1, 2) = .GetElementById("item_data").outerHTML
	End With

これをハードコーディングせずにループで回せば解決するような気がします。

Sub test()
	Dim objIE As Object
	Dim i As Long
	Set objIE = CreateObject("InternetExplorer.Application")
	With objIE
		For i = 1 To 500
			.navigate Cells(i, 1)
			While .Busy Or .ReadyState <> 4: DoEvents: Wend
				With .Document
					Cells(i, 2) = .GetElementById("item_data").outerHTML
				End With
			End While
		Next
	End With
	objIE.Quit
	Set objIE = Nothing
End Sub

Comments

[zeele001]

ありがとうございます、まだまだ勉強し始めたばかりですので非常に助かりました。