VBA、Amazon注文画面の全データを取込む
  • (2014-01-26 12:38:48)
sellercentralの画面から必要データをプログラムで吸い上げExcelにコピーするためのvba作成中。まずは全データの吸い上げをやってみた:

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で楽天銀行の自動ログイン >>
search
layout
admin

[▲page top]