アクティブになっているIEのタブを掴むコード

最近の書き込み件数: 今日 0件、昨日 0件
未読分:1件

最新20件 最新50件 最新100件 最新200件 200件以前
昨日以降(0) 2日前以降(0) 3日前以降(0) 4日前以降(0) 5日前以降(0)


Excel VBAでIEを思いのままに操作できるプログラミング術 Excel 2013/2010/2007/2003対応

近田 伸矢, 植木 悠二, 上田 寛

IEのデータ収集&自動操作のプログラミング本はこの1冊だけ!IEの起動やポップアップウィンドウ、表示を制御する基本的なコードはもちろん、テキストボックスやラジオボタン、表、ハイパーリンクなどのHTML部品を制御する方法など、自動操作に欠かせないノウハウを丁寧に解説。

Message#1 2015年2月4日(水)21時16分
From: アクティブ
返事 削除 変更
いつもお世話になっております。

アクティブになっているIEのタブを掴むコード作りました。
ユーザーフォームにマクロを登録したボタンを配置して使っています。

WIN32APIのFindWindow関数でアクティブなIEを掴み、
アクティブなIEのタブでないと、ステータスバーに
文字を入力できないことを利用してアクティブなタブを識別しています。

基本的にはちゃんと動くのですが、時折アクティブなタブではなく、
一番左にあるタブを補足してしまいます。
もしくはIEを補足できずNot Foundになります。

ハンドルは必ず取得できているので、問題があるとすれば
コード内の★★★より下だと思います。

Not Foundになるのは(1)の部分でどのタブの
ステータスバーにも文字が代入されないことが原因でした。

一番左のタブを掴んでしまうときも、(1)の部分で
アクティブなタブではなく、一番左のタブの
ステータスバーに文字が入ってしまい、
それを掴んでいるようです。

タブが複数あるIEのウィンドウを複数立ち上げていることが多いのですが、
タブの開き方の問題なのか(特定の開き方をするとステータスバーを読まない?)、
原因が分かりかねている状況です。

ステータスバー云々はあんまり信頼性が高く無さそうな気がするのですが、
これ以外に何か確実にタブを掴む方法があればご教授ください。
もしくはこのコードを改良する方法があれば教えていただけると助かります。

よろしくお願いいたします。

WIN7 IE9 エクセル2010

Declare PtrSafe Function FindWindow Lib "user32.dll" Alias "FindWindowA" _
(ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long

Sub IEfind()

Dim ie As Object
Dim hwnd As long

hwnd = FindWindow("IEFrame", vbNullString)
For Each ie In CreateObject("Shell.Application").Windows()
If hwnd = ie.hwnd Then 

’★★★

If ie.StatusBar = False Then ie.StatusBar = True

ie.statusText = CStr(hwnd)’---(1)
If ie.statusText = CStr(hwnd) Then Exit For
End If
Next

If IsEmpty(ie) Then
MsgBox "Not Found"
Else
MsgBox ie.LocationURL
’若しくは他の処理
End If

End Sub

最新20件 最新50件 最新100件 最新200件 200件以前
昨日以降 2日前以降 3日前以降 4日前以降 5日前以降

VBAのIE制御についてのQ&A掲示板

↑エクセルVBAのIE(InternetExplorer)操作で分からない事があればこちらの掲示板よりご質問ください^^

ExcelのVBA初心者入門

↑こちらはExcelのVBAをマスターできるよう初心者向けのエクセルVBA入門コンテンツになります^^

VBAのIE制御入門RSS

RSSフィードを登録すると最新記事を受け取ることができます。

VBAIE操作のスカイプレッスン

VBAでIE(InternetExplorer)制御の準備

エクセルVBAでIE制御の応用編

こちらでは、エクセルVBAで実際に作成したIE(InternetExplorer)制御ツールをまとめています。自動ログインや情報収集など具体的に解説しています。IE(InternetExplorer)制御をされる方は参考にしてください。

【ダウンロード】IE操作に便利なツール

こちらでは、これまでに紹介したIE(InternetExplorer)操作で便利な機能をツール化しています。無償でダウンロードできますので、目的に合わせたご利用ください。

IEオブジェクトのメソッド・プロパティ

こちらでは、IE(InternetExplorer)オブジェクトのメソッド・プロパティをまとめています。

IE操作に利用されているVBA関数

こちらでは、エクセルVBAのIE(InternetExplorer)操作で利用されたVBA関数をまとめています。

IE操作に利用されているステートメント

こちらでは、エクセルVBAのIE(InternetExplorer)操作で利用されたステートメントをまとめています。ExcelのVBAで基本的な部分になりますので、しっかり理解しましょう。

IE(InternetExplorer)制御のVBAコード

こちらでは、これまでに作成したIE(InternetExplorer)操作で役立つサブルーチンをまとめています。
全てをコピーする必要はありませんが、目的に合わせたサブルーチンをご利用ください。

ExcelのVBAで作成した役立つVBAコード

こちらでは、IE(InternetExplorer)制御の利用だけでなく、Excel全般で利用できるVBAコードです。エクセルVBAで役に立つものばかりですので、ご利用ください。

dmb.cgi Ver. 1.068
Copyright(C) 1997-2014, hidekik.com