Ｅｘｃｅｌ２０１０、エクセルでＩＥを操作する方法

Ｅｘｃｅｌ２０１０は、手頃な価格で高機能な表計算ソフトです。
表計算、グラフ表示、マクロによる自動化など色々な機能が有ります。

しかし、これだけでは単に表計算ソフトでしかありません。
現在はインターネットの時代です。エクセルとＷｅｂサイトを結びつければ、大変便利になります。
エクセルでＷｅｂサイトにアクセスする方法を模索しました。
使用したパソコンは、下記のソフトを使用していました。

ＯＳ　　　　　　　：　Ｗｉｎｄｏｗｓ７（６４ｂｉｔ）
表計算ソフト　　　：　Ｅｘｃｅｌ２０１０（３２ｂｉｔ）

以下、Ｅｘｃｅｌ２０１０、エクセルでＩＥを操作する方法を記載して行きます。

（項目１）
　・ＩＥを起動してYahoo! JAPANに行き、エクセル将棋館を検索する方法を紹介します。
　・本ページは、三流君VBAでIE操作 ドキュメント操作 Documentを参照に作成しました。

（項目２）
　・大きな流れは、下記の通りです。
　　ＩＥ起動　→　キーワード入力　→　検索実行

　・ＩＥ起動
　　Dim myIE As Object
　　Set myIE = CreateObject("InternetExplorer.Application")
　　myIE.Navigate "https://www.yahoo.co.jp/"
　　myIE.Visible = True
　　Call sub_wait(myIE)

　・キーワード入力
　　myIE.Document.all("srchtxt").Value = "エクセル将棋館"
　　Call sub_wait(myIE)

　・検索実行
　　myIE.Document.all("srchbtn").Click
　　Call sub_wait(myIE)

（項目３）
　・上記のポイントとなるのは、.Document.all("○○○")の○○○です。
　・Ｗｅｂサイトを操作するには、ドキュメントにアクセスする必要が有ります。
　・ドキュメントにアクセスする為には、○○○を指定します。
　・これを調べるには、Ｃｈｒｏｍｅで当該ＵＲＬを表示し、右クリックして「要素を検証」を選択します。
　・キーワード入力を調べると、srchtxtが見つかりました。
　　
　　

　・検索実行を調べると、srchbtnが見つかりました。
　　
　　

（項目４）
　・ＩＥ自体を操作するには、ＥｘｅｃＷＢメソッドが使用できます。
　　myIE.ExecWB 17, 0 '全てを選択
　　myIE.ExecWB 12, 0 'コピー

　・下記ＵＲＬが参考になります。
　　InternetExplorer object (Windows)
　　ExecWB method (Windows)
　　OLECMDID enumeration (COM)
　　OLECMDEXECOPT enumeration (COM)

（項目５）
　・全部のソースコードは、下記の通りです。
　　Option Explicit

　　'Sleep関数
　　Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

　　Sub main()

　　　　'変数宣言
　　　　Dim myIE As Object

　　　　'変数設定
　　　　Set myIE = CreateObject("InternetExplorer.Application")

　　　　'ＩＥ操縦
　　　　myIE.Navigate "https://www.yahoo.co.jp/"

　　　　'ＩＥ表示
　　　　myIE.Visible = True

　　　　'一時待機
　　　　Call sub_wait(myIE)

　　　　'キーワード入力
　　　　'<input name="p" id="srchtxt" class="bdA7" type="text" value="" autocomplete="off">
　　　　myIE.Document.all("srchtxt").Value = "エクセル将棋館"
　　　　Call sub_wait(myIE)

　　　　'検索実行
　　　　'<input type="submit" id="srchbtn" class="srchbtn" value="検索">
　　　　myIE.Document.all("srchbtn").Click
　　　　Call sub_wait(myIE)

　　'　　 'ＩＥを終了
　　' 　　myIE.Quit
　　' 　　Set myIE = Nothing

　　End Sub

　　Sub sub_wait(myIE)

　　　　Do While myIE.Busy = True Or myIE.readystate <> 4
　　　　　　DoEvents
　　　　Loop

　　　　Sleep 100

　　End Sub

（項目６）
　・以上で、Ｅｘｃｅｌ２０１０、エクセルでＩＥを操作する方法は終了です。