_NewWindow2 で 新規ウインドウ捕まえる VBA IE操作 単勝表取込み

新しいウインドウが起動したので、
Me.WebBrowser3
を新たに作って、捕まえてみます・・・

だと、面白くないので(※面白くなくても簡単にできれば、そっちの解説が聞きたいよ)
使っていない、上部の Me.WebBrowser1 を 代入してみます。

Private Sub WebBrowser2_NewWindow2(ppDisp As Object, Cancel As Boolean) Debug.Print "WebBrowser2_NewWindow2 に 入りました。" Set ppDisp = Me.WebBrowser1 '新しいウインドウはWebBrowser1を代入
End Sub

↑単純に、WebBrowser2_NewWindow2 の イベントで、
Set ppDisp = Me.WebBrowser1
と新しいウインドウはWebBrowser1ですよ・・って感じにしました。

全体の流れやソース・解説は : http://ie.vba-ken3.jp/sample/003/2009-03-22.html を 見てください。

カテゴリ: 科学と技術

タグ: 三流君 _NewWindow2 新規ウインドウ捕まえる VBA IE操作 単勝表取込み Ken3

VBA IE操作 単勝表取込み NewWindow2で捕まえる

ここで、一つ問題が、ログインのボタンが押されると、新規のウインドウが起動します。 。。
コイツを回避したいなぁ。。。ってことで、IE WebBrowser の イベントを探ってみます。

新規で、WebBrowser2 の オブジェクトを作ります。
いきなり、プライドの高いSE様が作った仕様を変更します。
(※話を通さないでやると、本当にヘソ曲げるよ設計したプライドの高いSE様が、
　　なので、原因を話して、一言ことわってから変更してね。)

WebBrowser1のNewWindow2 新しくウインドウが作られる処理で、
Set ppDisp = Me.WebBrowser2
と１つ呪文を書きます。

Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean) Debug.Print "_NewWindow2 に 入りました。" Set ppDisp = Me.WebBrowser2 '新しいウインドウはWebBrowser2を代入
End Sub

↑この１行で、新しく開かれるウインドウを Me.WebBrowser2 で開くことができます。
あとは、Me.WebBrowser2 で捕まえているので、
Me.WebBrowser2 に対して処理を書きます。(処理をかけます。)

全体の流れやソース・解説は : http://ie.vba-ken3.jp/sample/003/2009-03-22.html を 見てください。
カテゴリ: 科学と技術

タグ: 三流君 VBA IE操作 単勝表取込み NewWindow2 Set ppDisp WebBrowser2 Ken3

新しく開かれたIEを探す Set newIE = objSHELL.Windows(objSHELL.Windows.Count - 1)

ソースはここ → http://ken3-info.blog.ocn.ne.jp/objie/2009/05/ie_set_newie_ob.html
VBA IEから 記事をブログに書き込む は → http://ie.vba-ken3.jp/sample/004/
全体のIE操作は → http://www.ken3.org/cgi-bin/group/vba_ie.asp を見てください。