全ての質問には、答えられませんが、リクエストや質問があったら、[作者(三流君)に質問する] から 気軽に送ってください

IE操作 2007/05/20 三流君 過去のメモ

読者より、下記の書き込みをいただきました。(2007/10/08 20:23:39)

MSHTMLに参照設定して、以下コードを実行すると、
WebBrowser1オブジェクトのDocumentオブジェクトに補完が聞きますよ。
その後、VB、VBAのオブジェクトブラウザでMSHTMLのActiveXに関する情報が手に入ります。
--
dim objHTML as MSHTML.HTMLDocument
set objHTML = WebBrowser1.Document
.....
set objHTML = Nothing
--
あと、デバッグ中にobjHTMLをウォッチすると、いろいろわかります。

我流の解説 VBAでIE操作

はじめは・・・CreateObject かな？

CreateObjectは簡単で、

Sub ie_test()
    Dim objIE    As Object  'ＩＥオブジェクト参照用
    Set objIE = CreateObject("InternetExplorer.application") 'IEのオブジェクトを作る
    objIE.Visible = True '見えるようにする(お約束)
End Sub

↓IEの起動は、ここの解説がはじめの一歩として、わかりやすいと思う。
http://www.microsoft.com/japan/technet/scriptcenter/resources/qanda/mar06/hey0313.mspx
↑イロイロなサイズを指定して起動できたりするみたい。

サンプルを走らせながらが一番いいのかなぁ？ マニュアルや調査することも非常に大切なのですが、入り口で挫折しないためには、楽しくなくっちゃ？？？
サンプルを見ながら動かしていけば、なんとなく感覚がつかめてくるので、あとはエラー処理を含めた丁寧なプログラムを組んでいく、そんな感じがいいのでは？？？

URLを開く(.open)じゃなくって、.Navigateなんですよ

Sub ie_test_Navigate()

    Dim objIE    As Object  'ＩＥオブジェクト参照用
    Set objIE = CreateObject("InternetExplorer.application") 'IEのオブジェクトを作る
    objIE.Visible = True '見えるようにする(お約束)

    '.Navigate で 指定した文字列のURLを開く
    objIE.Navigate "http://ken3-info.blog.ocn.ne.jp/"

End Sub

IEのdocumentオブジェクト .allを使ってhtml入力フォームにアクセスしてみた

	<!-- comment form -->
	<script type="text/javascript" src="/.shared-blogzine/js/comments.js"></script>
	<script type="text/javascript">hostName = '.blog.ocn.ne.jp';</script>
	
	<form id="comment-form"
		method="post" action="http://app.blog.ocn.ne.jp/t/comments">
		<input type="hidden" name="entry_id" value="6252955" />
		
		<div class="comments-open">
			<h2 class="comments-open-header">コメントを投稿</h2>
			<div class="comments-open-content">
						<div id="comments-open-data">
						<p>
							<label for="comment-author">名前：</label>
							<input id="comment-author" name="author" size="30" />
						</p>
						<p>
							<label for="comment-email">メールアドレス：</label>
							<input id="comment-email" name="email" size="30" />
						</p>
						<p>
							<label for="comment-url">URL：</label>
							<input id="comment-url" name="url" size="30" />
						</p>
						<p>
							<label for="comment-bake-cookie"><input type="checkbox"
								id="comment-bake-cookie" name="bakecookie" value="1" />
								この情報を登録する</label>
						</p>
					</div>
				<p id="comments-open-text">
					<label for="comment-text">コメント：</label>
					<textarea id="comment-text" name="text" rows="10" cols="30"></textarea>
				</p>
			</div>
			<div id="comments-open-footer" class="comments-open-footer">
				<input type="submit" name="preview" id="comment-preview" value="&nbsp;確認&nbsp;" />
				<input type="submit" name="post" id="comment-post" value="&nbsp;投稿&nbsp;" />
			</div>
		</div>
	</form>

Sub ie_test_data_set()

    Dim objIE    As Object  'ＩＥオブジェクト参照用
    Dim time2    As Date    '２秒待ちに使う。

    Dim strNAME    As String  '名前の入力
    Dim strCOMMENT As String  'コメントの入力
    
    'INPUTBOXでデータをもらう
    strNAME = InputBox("セットする名前は？", "", "鈴木 小林 田中 高橋")
    strCOMMENT = InputBox("Ken3へ一言？", "", "速く続きが見たい・・・コメントを書いて下さい")
    
    'IEを起動する
    Set objIE = CreateObject("InternetExplorer.application") 'IEのオブジェクトを作る
    objIE.Visible = True '見えるようにする(お約束)

    '.Navigate で 指定したURLを開く
    objIE.Navigate "http://ken3-info.blog.ocn.ne.jp/test/2006/12/post_745c.html"
    
    '手抜きで２秒待つ(読み込み待ちを単純に２秒とする)
    time2 = DateAdd("s", 4, Now()) '2--4秒後を計算する
    Do While True  '無限ループ
        DoEvents
        If time2 < Now() Then Exit Do  '2秒後に抜ける
    Loop
    
    '名前とコメントを転記(代入)する。
    objIE.document.all("author").Value = strNAME
    objIE.document.all("text").Value = strCOMMENT
    
End Sub

.Clickを使ってボタン(投稿ボタン)を押してみた

Sub ie_test_投稿ボタンclick()

    Dim objIE    As Object  'ＩＥオブジェクト参照用
    Dim time2    As Date    '２秒待ちに使う。

    Dim strNAME    As String  '名前の入力
    Dim strCOMMENT As String  'コメントの入力
    
    'INPUTBOXでデータをもらう
    strNAME = InputBox("セットする名前は？", "", "勉強中")
    strCOMMENT = InputBox("Ken3へ一言？", "", "XXXXX コメント 投稿ボタンを押したよ")
    
    'IEを起動する
    Set objIE = CreateObject("InternetExplorer.application") 'IEのオブジェクトを作る
    objIE.Visible = True '見えるようにする(お約束)

    '.Navigate で 指定したURLを開く
    objIE.Navigate "http://ken3-info.blog.ocn.ne.jp/test/2006/12/post_745c.html"
    
    '手抜きで２秒待つ(読み込み待ちを単純に２秒とする)
    time2 = DateAdd("s", 4, Now()) '2--4秒後を計算する
    Do While True  '無限ループ
        DoEvents
        If time2 < Now() Then Exit Do  '2秒後に抜ける
    Loop
    
    '名前とコメントを転記(代入)する。
    objIE.document.all("author").Value = strNAME
    objIE.document.all("text").Value = strCOMMENT
    
    '投稿ボタンを単純に押してみた(.click)
    objIE.document.all("post").Click  'Name="post"をクリック
End Sub

.Busy = True の間、読み込み完了を待ってみる

Sub ie_test_busy()

    Dim objIE    As Object  'ＩＥオブジェクト参照用

    Dim strNAME    As String  '名前の入力
    Dim strCOMMENT As String  'コメントの入力
    
    'INPUTBOXでデータをもらう
    strNAME = InputBox("セットする名前は？", "", "勉強中2")
    strCOMMENT = InputBox("Ken3へ一言？", "", ".busy で待ってから ボタンを押したよ")
    
    'IEを起動する
    Set objIE = CreateObject("InternetExplorer.application") 'IEのオブジェクトを作る
    objIE.Visible = True '見えるようにする(お約束)

    '.Navigate で 指定したURLを開く
    objIE.Navigate "http://ken3-info.blog.ocn.ne.jp/test/2006/12/post_745c.html"
    
    '表示終了まで待つ
    Do While objIE.Busy = True
        DoEvents  '何もしないループ（笑）
    Loop

    '名前とコメントを転記(代入)する。
    objIE.document.all("author").Value = strNAME
    objIE.document.all("text").Value = strCOMMENT
    
    '投稿ボタンを単純に押してみた(.click)
    objIE.document.all("post").Click  'Name="post"をクリック
End Sub

※まだまだ、書きかけ、内容をまとめていく予定・・・

チョット、はじめの一歩が長すぎましたね。ここからドキュメントの探りやプロパティ、メソッド、イベント・・・と先は長いんだけど。

過去のメールマガジンのリンクが長かったので、下記に移動しました。
[IE操作 メルマガ 一覧]
よろしくお願いします。

改版履歴 更新情報:過去のIE操作の解説はこちら↓(IE6+XP,IE7+XPの古い記事もアリ)
2009-12-01:[過去の解説 vba_ie_20091201.asp]
2009-06-01:[過去の解説 vba_ie_20090601.asp]
2009-02-01:[過去の解説 vba_ie_20090201.asp]
2008-05-01:[過去の解説 vba_ie_20080501.asp]
2007-08-31:[過去の解説 vba_ie_20070831.asp]
2007-05-20:[過去の解説 vba_ie20070520.asp]

2012-03-19:[過去の解説 vba_ie_20120319.html]
もあわせてみてください。
(↑もしかして書き直さない過去の解説の方がよかったかも？(笑))

中刷り広告？？？（オイオイ）

読者からのお勧め本。私はまだ購入していないのですが、下記の
[自動売買ロボット作成マニュアル~エクセルで理想のシステムトレード]
が参考になった三流君も見習って株のソフトを作ってくださいと多数(と言っても３人)に言われました。
株の自動売買ソフトかぁ・・・みなさん夢がありますね。。。
※追加情報(2006/11/08)、各証券会社にあわせたVBA IEコントロールの発注方法などは載っていないみたいです。本を買っただけではわからない・・と読者からお叱りを受けました。
※※メールで送られてくる質問の多数は株と競馬の自動データ処理なので、新たに解説ページを別で作ろうかなぁ・・・と思いつつ、具体的な予定は無かったり・・・はやく動き出せ、動けよコラ、三流プログラマーはこれだから と 自分自身に言ってみた。

読者からのお勧め本その２私はまだ購入していないのですが(またカヨ)、下記の
[VBAマクロで作る株式自動売買プログラム(仮)]
のタイトルが気になったので三流君も買ってみたら？と言われました(と言っても1 人ですが、、)
たしかに、タイトルに惹かれますね。あとは中身のチェックかな。
※じゃなくって、ポツポツIEを使った自動処理の本が出ているってことは、私は波に乗り遅れたかなぁ、、、今から証券口座を申し込んで作成を始めても遅いか。(そもそも、今から勉強して素人が株デビューするには時期が悪い？それとも？)

読者さんから、株の全自動売買MLの紹介。
>中刷り広告のコラムで、VBAによるIEの自動操作での
>株発注などのお話が出ておりました。
>
>この件は、私も興味があり、すでにメーリングリストを
>開設して日々勉強している所です。
>
>よろしければ、私のHPにメーリングリストの解説など、
>ございますので、一度ご覧になって頂ければ嬉しい限りです。
>
>http://www.geocities.jp/kameyama_kabu/
>
>メーリングリスト内では、
>VBAのソースもかなりの証券会社のものが、
>公開されており（フリーです）有効に使用されている方も
>いらっしゃいます。
>
>もし、コラムのような方が今後も多いようでしたら、
>メーリングリストを紹介して頂けると嬉しいです。
----
と、メールをいただきました。ますます私は出遅れているなぁと感じつつ、 メールを紹介しました。※興味のある方は、ＭＬに参加されてみては??

ページフッター

Googleで情報を探す

せっかくホームページに来ていただいたのに、検索の紹介 ぉぃぉぃ
サイト指定や期間の指定を組み合わせて実行してみてください。

探す言葉:
をググる。↑VBAなど 気になる単語や,オブジェクト(MailItem),プロパティ(.Body)やメソッド(.Move)などを入れて検索してみてください。

---

サイト指定:人気QAサイト や 一次情報MS本家を指定する
条件無し WWW 全体から検索も良いけど↓で絞り込むのもおススメです
一次情報・二次情報まとめから探る
一次情報は基本のMSDN含む microsoft.comから
まとめ一次・二次情報 Qiita 知識を記録・共有 qiita.comで個人まとめを参考に
手前味噌の三次情報 三流君メモBlog ken3memo.hatenablogから検索
QAサイトの質問から探る
QAはやっぱり人の多いYahoo知恵袋 chiebukuro.yahoo.co.jpから探る
こちらもどうぞ おしえてgoo! oshiete.goo.ne.jp
15分探して見つからなかったら？回答率90％以上 teratail.com
私も利用中 最近過疎ってる失礼 人力検索 q.hatena.ne.jp
意外と穴場？ 2ch 5ch.netから探す
検索実行: ←オプション確認後に検索ボタンを押してください

---

期間指定:情報の鮮度も大切？
指定なし(全て)※不変の情報を得るには指定無しが一番？
3日以内 最新の更新情報を探す時など。
3ヶ月 これはあまり使わないかも
1年以内の更新なら情報鮮度もOK？バランス型
3年も経てばOfficeもバージョンUP？
検索実行: ←オプション確認後に検索ボタンを押してください

メッセージ送信

ここまで、読んでいただきどうもです。ここから下は、三流君宛のメッセージ送信や 三流君のホームページの紹介・案内です
目的の情報が見つかったか？少々心配しつつ、、、

感想や質問・要望・苦情など 三流君へメッセージを送る。
下記のフォームからメッセージを送ることができます。

[三流君(TOPへ)] / [VBAで楽しく] / [記事一覧]

カスタム検索