エクセルVBAのプログラムで

質問

特定のHTML構文中のテキストを読みとってセルに入力するプログラムを作りたいのですがどうしたらいいでしょうか？

回答No.3

BLUEPIXY · ベストアンサー

>下の部分が分りませんでした。
読込が完了するまで待つ処理です。

＃２の方がおっしゃる様に、どの部分をどのように取り出すかは、特に指定がなかったので、書いていませんが、
IE.Document.body.innerHTML
でbodyの内容が取り出せます。
基本的に、ＤＯＭで任意の部分が取り出せます。
ＩＤとか特定のタグが付いているとより直接的に取り出せます。

回答No.4

めとろいと（@naktak）

No.2で記されている方法で大抵取得は可能です。

但し、HTMLの記述が正しい事が前提です。
サイトにもよりますが、たとえばテーブルタグで、
</td>や</tr>が無い場合、別な所までテキストとして認識してしまいます。
あくまで、正しい文法でHTMLが構築されている事が前提になります。

お礼

皆様ありがとうございます。
自分でも少しきちんと考えてみます。
これからもまたわからなかったら質問させてください。

回答No.2

imogasi

テキストを囲むタグは一定していない（１つに決まってない）ので、テキストが始まる目印が無いように思います。その区別法（ロジック）を聞いておられるのでしょうか。
＜＞と＜＞で囲まれた情報を省いて、残りをテキストだといえるでしょうか。ＩＥのソースを数例見ると、ほぼそれで行けそうですが。
であれば
（Ａ）Ｉｎｓｔｒ関数で＜を見つける
（Ｂ）その後Ｉｎｓｔｒ関数で＞を見つけ、＞までは捨てる。＜＞も含めて
（Ｃ）次の＜までは、テキストとして拾う
エクセルのセルにセットする
セルを示す行ポインタに＋１
（Ｄ）終わりまで繰り返す
ようなロジックでしょうか。

回答No.1

BLUEPIXY

Set IE = CreateObject("InternetExplorer.Application")
のようにしてＩＥオブジェクトを使うことができます。
IE.Navigate ＵＲＬアドレス '読込
While IE.busy: Wend
While IE.Document.readyState <> "complete": Wend
その後は、思いのまま＾＾

お礼

いつもありがとうございます。

それですみませんが下の部分が分りませんでした。
While IE.busy: Wend
While IE.Document.readyState <> "complete": Wend
この命令の内容を理解するための説明があるサイトを教えていただけるとありがたいです。