VBA、Amazon注文画面の全データを取込む
- (2014-01-26 12:38:48)
Debug.Printでイミディエイト画面への表示
DOM(?)エレメント「InnerText」を使用して画面内のテキストをすべて表示してみる。
For n = 0 To IE.どocument.all.Length - 1
Debug.Print n & "-" & IE.どocument.all(n).innerText
Next n
VBAイミディエイト画面の行数は200行まで
イミディエイト画面の行数は200行までという制限があるようで一部が消える。そこでファイル出力することに。
「標準モジュール」に出力プロシージャ
Debug.Printの内容をファイルに出力するサンプルプロシージャを公開してくれている方がおられたので、そのままコピー → http://www.tsware.jp/tips/tips_546.htm
Public Sub DebugPrintFile(varData As Variant)
Dim lngFileNum As Long
Dim strLogFile As String
strLogFile = "D:\DebugPrint.txt"
lngFileNum = FreeFile()
Open strLogFile For Append As #lngFileNum
Print #lngFileNum, varData
Close #lngFileNum
Debug.Print varData
上記コードを「標準モジュール」として作成してプロジェクトに入れておく。
自分のVBAのAmazon画面のテキストを表示する部分に下記のように埋め込む:
For n = 0 To IE.どocument.all.Length - 1
DebugPrintFile n & "★--------★" & IE.どocument.all(n).innerText
Next n
※「どocument」は「document」 → 本ブログでこの表記がエラーを起こすための
<< VBA、InputBoxのIMEをデフォルトOFF< | >UWSCで楽天銀行の自動ログイン >>