二つ目のタブを閉じたい

質問

http://hiroba.chintai.net/qa7823804.html
こちらでも質問したものです。

xls88さまに教えていただいて、

Sub test()
Dim objIE As InternetExplorer
Set objIE = CreateObject("InternetExplorer.application")
objIE.Visible = True
objIE.navigate "http://www.yahoo.co.jp/"
objIE.Navigate2 "http://www.goo.ne.jp/", 2048
objIE.Navigate2 "http://www.google.co.jp/", 2048
objIE.Quit
Set objIE = Nothing
End Sub

で、複数のタブを開くことができたのですが、
http://www.goo.ne.jp/のタブだけを閉じたい場合はどうすればいいでしょうか？

上記のコードを実行すると、http://www.yahoo.co.jp/が閉じてしまいます。
ご回答よろしくお願いします。

回答No.5

DOUGLAS_ · ベストアンサー

＃DOUGLAS_ です。再度失礼いたします。

２番目の回答の「お礼」欄を見落としておりました。

＞New キーワードを使えば、
＞Set objIE = CreateObject("InternetExplorer.application")
＞はいらなくなるけど、
＞そのかわり、
＞Dim objShell As Object
＞Set objShell = CreateObject("Shell.Application")
＞この二つが必要になってくるのでしょうか？
　いいえ、全く違います。

Dim objShell As Object
Set objShell = CreateObject("Shell.Application")
は、「タブを扱うため」だけのウィンドウオブジェクトです。

１）タブのままでは、ＩＥのオブジェクトとして捕まえることができないので
２）開いているウィンドウオブジェクトの中で
３）該当するインデックスのウィンドウ（ＩＥのタブ）を捕まえておいて
４）そのウィンドウを、「ＩＥの操作ができる」ように
５）ＩＥオブジェクトに代入する
といったイメージです。

＞objIE.Navigate2 "～～", 2048
＞で、２つ目・３つ目のタブを開く場合は、
＞すでに1つ目のタブで生成したインスタンスがあるから
＞Dim objIE2 As New InternetExplorer
＞Dim objIE3 As New InternetExplorer
＞にしなくて良いようですね。
　概ね、そういうことになりましょう。

お礼

Set objShell = CreateObject("Shell.Application")
のご説明、ありがとうございます。
そういう流れなのですね。

一つ一つご丁寧に回答して頂きありがとうございました。
何度も付き合って頂きありがとうございます。

回答No.4

DOUGLAS_

DOUGLAS_ です。

＞objIE2、objIE3は、Object型でもいいのですか！
　私の書き方が、却って問題を複雑にしたようですね。

＞従って、「objIE2」・「objIE3」につきましては、
「As InternetExplorer」とせずに、「As Object」
＞でも十分です。
という説明の仕方は不十分でした。

　ご質問文内のコードに
Dim objIE As InternetExplorer
と書いていらっしゃるので、当然、VBE（Visual Basic Editor）で、[Microsoft Internet Controls] に参照設定していらっしゃるかと存じますが、そういうことなので、
Dim objIE As InternetExplorer
という変数の宣言ができます（もし、それに参照設定していなければ、「コンパイル エラー:　ユーザ定義型は定義されていません。」というエラーが出ます）。

　VBE で、ローカル ウィンドウ を開き（[表示(V)] - [ローカル ウィンドウ(S)]）、#1 のコードの中で、
Dim objIE2 As Object
としておいて、[F8] キーを押下しながら、ステップ イン デバッグ してみると、ローカル ウィンドウ の中で、各変数の「型」の変化を観察することができます。
　objIE2 は最初、「Object」と表示されていますが、
Set objIE2 = objShell.Windows.Item(objShell.Windows.Count - 1)
のタイミングで、「Object/IWebBrowser2」に変化します。

　objIE は最初から「InternetExplorer/IWebBrowser2」ですが、objIE3 は
Set objIE3 = objShell.Windows.Item(objShell.Windows.Count - 1)
のタイミングで、「Object」から「InternetExplorer/IWebBrowser2」に変化します。

　「As InternetExplorer」と宣言しようが、「As Object」と宣言しようが、いずれ「IWebBrowser2」というオブジェクトとして働くようになるということです（なお、[Microsoft Internet Controls] に参照設定せず、すべて「As Object」で宣言した場合は、すべて「Object/IWebBrowser2」に変化します）。

　ただ、「InternetExplorer/IWebBrowser2」と「Object/IWebBrowser2」とで、何か違いがあるのか、という問題につきましては、
私には分かりません。
　ひょっとしたら、メモリの消費量が「As InternetExplorer」の方が少ないのかもしれませんので、
＞却って問題を複雑にしたようですね
というのは、そういう意味で書きました。

----------------------------------------

＞インデックスがおかしくなるのと似ています。
＞そうなのですか。
＞この動作はやったことないのでわかりませんが、
＞そういう事と同じなんだと覚えます。

１）セル A1:A9 に上から順番に「1,0,1,1,0,1,1,0,1」と入っていたとします。
２）ここで、セル値が「0」の行だけ削除するマクロを書くことにしましょう。
３）最初に「行番号の "小さな" 行から順に削除」するコードを書いてみると、
For i = 1 To 9
If Range("A" & i).Value = 0 Then Rows(i).Delete
Next
ということになりますが、
４）このコードだと、「i=2」のときに、「A2=0」ですので、２行目が削除されてしまいます。
５）したがって３行目以下が１行ずつ上に繰り上がってきます。
６）そうすると、本来「A3」セルにあったデータが「A2」セルに繰り上がってきます。
７）ところが、「i=2」のときに「Rows(i).Delete」した後、「i=3」になったタイミングで、
８）「Range("A" & i)」は、当然「Range("A3")」を読みにいきますが、
９）(５)の理由により、「Range("A3")」にあるデータは、元々「Range("A4")」に存在したデータですので、
10）つまり、元々「A3」にあったデータを読み飛ばしたことになります。

　これが、
＞行番号の "大きな" 行から順に削除していかないと
＞インデックスがおかしくなる
と書いた意味です。

----------------------------------------

＞ＩＥブラウザを新規に立ち上げるのも、
＞既に立ち上がっているブラウザにタブを増やすのも
＞「インスタンスの作成をしている」という事になるのでしょうか？

　私の環境（ＩＥ９）でテストしてみました。

１）[Ctrl] + [Alt] + [Delete] で タスクマネージャを起動します。
２）[イメージ名」をクリックして、名前順に並べ替えます。
３）そこに表示されている「iexplorer.exe」を全て終了してみます。
４）改めてＩＥを起動してみると、２つの「iexplorer.exe」が現われます。
５）新しいタブを開いてみると、３つ目の「iexplorer.exe」が現われます。

　こうして、順次、新しい「ＩＥのウィンドウまたはタブ」を開いてみると、ザクッと下記のようになりました。
　「±０」というのは、タスクマネージャ上の「iexplorer.exe」の数が変わらないということです。
・１番最初に開くＩＥのウィンドウ　　　→　＋２（計２）
・２個目のＩＥのウィンドウまたはタブ　→　＋１（計３）
・３個目のＩＥのウィンドウまたはタブ　→　＋１（計４）
・４個目のＩＥのウィンドウまたはタブ　→　±０（計４）
・５個目のＩＥのウィンドウまたはタブ　→　＋１（計５）
・６個目のＩＥのウィンドウまたはタブ　→　±０（計５）
・７個目のＩＥのウィンドウまたはタブ　→　±０（計５）
・８個目のＩＥのウィンドウまたはタブ　→　＋１（計６）
・９個目のＩＥのウィンドウまたはタブ　→　±０（計６）
・10個目のＩＥのウィンドウまたはタブ　→　±０（計６）
・11個目のＩＥのウィンドウまたはタブ　→　＋１（計７）
・12個目のＩＥのウィンドウまたはタブ　→　±０（計７）
・13個目のＩＥのウィンドウまたはタブ　→　±０（計７）
・14個目のＩＥのウィンドウまたはタブ　→　＋１（計８）
・１つずつ閉じていく　　　　　　　　　→　±０（計８）
・最後のウィンドウを閉じる　　　　　　→　－８（計０）

　ということで、
・１番最初に開くＩＥのウィンドウ　　　　　　　　→　＋２
・２・３個目のＩＥのウィンドウまたはタブ　　　　→　＋１
・４個目以降は「６の倍数－１」個目の
　ＩＥのウィンドウまたはタブを開いたときのみ　　→　＋１

・閉じる場合は、全てのウィンドウを閉じる前まで　→　±０
・全てのウィンドウを閉じたとき、　　　　　　　　→　－全

　ということで、「タブを追加」するのも、「新しいウィンドウを開く」のも、インスタンスの数の増減という点では、同じ扱いのようですが、その増え方が、上記の様に、ちょっと不規則なようです。

お礼

ご回答ありがとうございました。

補足

Dim objIE2 As Object
にした場合、
ウォッチウインドウで「Object/IWebBrowser2」に変化するのを確認しました！

Dim objIE As InternetExplorer
にした場合、
ウォッチウインドウで「InternetExplorer/IWebBrowser2」に変化するのを確認しました！

＞「As InternetExplorer」と宣言しようが、
「As Object」と宣言しようが、
いずれ「IWebBrowser2」というオブジェクトとして働くようになるということです。

なるほど！よくわかりました。

「InternetExplorer/IWebBrowser2」と「Object/IWebBrowser2」の違いについては
そのような理由なのかもしれないのですね。

エクセルの例、試してみました。意味がわかりました！
おっしゃる通り、飛ばされました。

ブラウザを開くテスト、ありがとうございます。
「インスタンスが作成される」＝「タスクマネージャーのプロセスが増える」
という事なのですか。
まず、そこからわかってませんでした。

タブやウインドウを開いたから必ずしもプロセスが増えるわけではないようですね。
実験していただいてありがとうございます。

今回とても勉強になりました！
まだＩＥ操作でいろいろやりたい事があり、またお世話になるかもしれませんが、その時はどうぞ宜しくお願いします。

ちなみに画像はＮＡＮＡのシンちゃんですよね！？私もシンちゃん好きです！

回答No.3

DOUGLAS_

＃たびたび失礼いたします。
＃前回答の表記に誤りがありましたので、訂正いたします。

＞しかし、"Shell.Application" のままでは、「Navigateメソッド」などが使えません
というのは嘘ですね。

objIE.Navigate2 "http://www.goo.ne.jp/", 2048
objIE.Navigate2 "http://www.google.co.jp/", 2048
というように、ＩＥの新しいインスタンスを複数作成しますので、その一つずつをオブジェクトに代入しておかないと、後で操作ができませんから、「ＩＥの新しいインスタンスを作成」した「タイミング」で、
Set objIE2 = objShell.Windows.Item(objShell.Windows.Count - 1)
Set objIE3 = objShell.Windows.Item(objShell.Windows.Count - 1)
として、それぞれのウィンドウオブジェクトを「objIE2」・「objIE3」に代入した、と申した方が正しいですね。

　従って、「objIE2」・「objIE3」につきましては、
Dim objIE2 As InternetExplorer
Dim objIE3 As InternetExplorer
とせずに、
Dim objIE2 As Object
Dim objIE3 As Object
でも十分です。

　なお、
＞「ＩＥの新しいインスタンスを作成」した「タイミング」で
＞それぞれのウィンドウオブジェクトを「objIE2」・「objIE3」に代入
せずに、
objShell.Windows.Item(objShell.Windows.Count - 1).Quit
などとしてしまうと、ウィンドウオブジェクトのインデックスが変わってしまい、どのウィンドウを操作しているのか判らなくなってしまいますので、やはり、
＞「ＩＥの新しいインスタンスを作成」した「タイミング」で
＞それぞれのウィンドウオブジェクトを「objIE2」・「objIE3」に代入
する必要がある、ということです。

　ちょうど、エクセルのワークシートで、何も入っていない行を削除するＶＢＡを書くときに、行番号の大きな行から順に削除していかないと「For i = 1 To Rows.Count ～ Next」の「i」のインデックスがおかしくなるのと似ています。

お礼

objIE2、objIE3は、Object型でもいいのですか！

＞エクセルのワークシートで、何も入っていない行を削除するＶＢＡを書くときに
行番号の大きな行から順に削除していかないと
「For i = 1 To Rows.Count ～ Next」の「i」のインデックスがおかしくなるのと似ています。

そうなのですか。この動作はやったことないのでわかりませんが、そういう事と同じなんだと覚えます。

ちなみに頭がこんがらがってしまったので確認したいのですが
ＩＥブラウザを新規に立ち上げるのも、
既に立ち上がっているブラウザにタブを増やすのも
「インスタンスの作成をしている」という事になるのでしょうか？

それともタブを増やすのはインスタンスの作成をしているわけではなくて、
新たにブラウザを立ち上げた時だけ「インスタンスの作成をした」という事にあるのでしょうか？

理解不足で申し訳ございません。ご回答よろしくお願いします。

回答No.2

DOUGLAS_

＞objIE2とobjIE3にＵＲＬの情報を入れちゃうイメージですね。
　まぁ、そのようなご理解でよいかと存じます。

＞objIEだけnewを付けるのがポイントのようですね。
　いいところに気が付かれました。

　VBE(Visual Basic Editor) で「New」にカーソルを当て、[F1] キーを押下すると、[New キーワード] のヘルプが開きますので、[Dim ステートメント] をクリックしてください。
　[指定項目] の「New」のところに、
-- ここから引用 ----------------------------------
このキーワードを指定すると、オブジェクトを暗黙的に作成できます。オブジェクト変数を宣言するときにキーワード New を指定した場合は、オブジェクトを最初に参照したときにオブジェクトの新しいインスタンスが作成されるので、Set ステートメントを使ってオブジェクトへの参照を代入する必要はありません。
-- ここまで引用 ----------------------------------
と書かれています。

　前のご質問文内のコードに
Dim objIE As InternetExplorer
と書いていらっしゃいましたので、[Microsoft Internet Controls] に参照設定を施されていることが判りました。

　このような場合には、
Set objIE = CreateObject("InternetExplorer.application")
のように、「Set ステートメントを使ってオブジェクトへの参照を代入する必要」をなくすために、「キーワード New を指定」すればよいかと存じます。

＞objIEだけnewを付けるのがポイントのようですね。
　再度、この点について解説いたします。

　最初の「InternetExplorer」、つまり「objIE」はＩＥを起動するためのオブジェクトですので、どうでもＩＥの新しいインスタンスを作成する必要があります。
　従って、
Dim objIE As InternetExplorer
Set objIE = CreateObject("InternetExplorer.application")
でも良いわけですが、前述の理由により、「キーワード New を指定」して
Dim objIE As New InternetExplorer
としました。

　ところが、２つ目・３つ目の「InternetExplorer」、つまり「objIE2」・「objIE3」につきましては、後から
objIE.Navigate2 "～～", 2048
によって作成したＩＥのインスタンスを代入するためのオブジェクトですので、変数を宣言する時点（Dim）で、「オブジェクトを暗黙的に作成」してはいけませんので、「キーワード New を指定」していません。

　ということで、
＞CreateObject("InternetExplorer.application")
＞を使わずに、
＞CreateObject("Shell.Application")
＞を使うべきなのでしょうか？
というお尋ねは、ちょっと見当違いなご判断かと存じます。

　新しいタブを開く時点で、「objIE2」・「objIE3」などに、直接、ＩＥオブジェクトを格納できればよいのですが、
Dim objIE As New InternetExplorer
Dim objIE2 As New InternetExplorer
Dim objIE3 As New InternetExplorer
としてしまうと、ＩＥのウィンドウが３つ開くことになり、「新しいタブで」ということにはなりません。

　ところで、ＩＥの場合は、新しいタブを開くことは、ＩＥの新しいインスタンスを作成することになり、また、ＩＥのウィンドウがエクスプローラと同様のウィンドウオブジェクトとして認識されることを利用して、
＞CreateObject("InternetExplorer.application")
＞を使わずに、
＞CreateObject("Shell.Application")
を使って、オブジェクトのインデックスにより、タブの番号を指定して操作することができます。

　しかし、"Shell.Application" のままでは、「Navigateメソッド」などが使えませんので、
Set objIE2 = objShell.Windows.Item(objShell.Windows.Count - 1)
のようにしてＩＥオブジェクトに代入する、という訳です。

　簡単にまとめますと、
１）最初のＩＥオブジェクトで新しいタブを開く。
　　objIE.Navigate2 "http://www.goo.ne.jp/", 2048
２）開いたタブのウィンドウインデックスを取得する。
　　objShell.Windows.Count - 1
３）ウィンドウオブジェクトの中で当該インデックスのウィンドウをＩＥオブジェクトに代入する。
　　Set objIE2 = objShell.Windows.Item(objShell.Windows.Count - 1)
４）後は「Navigateメソッド」なり何なり、お好きな様にどうぞ。
　　objIE2.Quit
という段取りです。

お礼

New キーワードのDim ステートメント読みました。

New キーワードを使うと、
・オブジェクトを暗黙的に作成できる。
・Set ステートメントを使ってオブジェクトへの参照を代入する必要はない
のですね。

ひとつ確認ですが、
New キーワードを使えば、
Set objIE = CreateObject("InternetExplorer.application")
はいらなくなるけど、
そのかわり、
Dim objShell As Object
Set objShell = CreateObject("Shell.Application")
この二つが必要になってくるのでしょうか？

objIE.Navigate2 "～～", 2048
で、２つ目・３つ目のタブを開く場合は、
すでに1つ目のタブで生成したインスタンスがあるから
Dim objIE2 As New InternetExplorer
Dim objIE3 As New InternetExplorer
にしなくて良いようですね。

確認してみましたが、
仰る通り、
Dim objIE2 As New InternetExplorer
Dim objIE3 As New InternetExplorer
にすると新しいＩＥブラウザが開いてしまいました。

まとめてくださりありがとうございます！

補足

再度二つもご回答いただきありがとうございます。

実は、諸事情で来週の月曜日までＶＢＡがいじれなくて確認ができないので、
頂いたご回答を見ながら来週きちんと自分でＶＢＡを動かしつつ確認してご回答します。

取り急ぎ、お礼を申しあげます。ありがとうございます。

回答No.1

DOUGLAS_

＞http://hiroba.chintai.net/qa7823804.html
　こちらの「お礼」に
＞仕組みはわかりませんができました！
とお書きですので、先ずは、
●Internet Explorer 7でのIEオブジェクト作成方法・その2
http://www.happy2-island.com/vbs/cafe02/capter00711.shtml
をご覧ください。

　そこに記載されたコードは、エクセルのＶＢＡ用ではなくて、VBScript用ですが、コーディングの作法は、ほぼ同じですので、参考になるかと存じます。

ということで、下記みたいにすれば、指定のタブを閉じることはできます。

　ただし、「objShell.Windows」の意味と「.Item(objShell.Windows.Count - 1)」というインデックスを付けるタイミングをよくご理解いただかないと、意図と異なるタブを閉じることになりますので、「- 1」辺りを足したり引いたりすることになるかも知れませんから、sfdajklweさんが書いていらっしゃるコードの実情に応じて書き換えてください。

Sub test()
　 Dim objShell As Object
　 Dim objIE As New InternetExplorer
　 Dim objIE2 As InternetExplorer
　 Dim objIE3 As InternetExplorer

　 Set objShell = CreateObject("Shell.Application")

　 objIE.Visible = True
　 objIE.navigate "http://www.yahoo.co.jp/"
　 objIE.Navigate2 "http://www.goo.ne.jp/", 2048
　 Set objIE2 = objShell.Windows.Item(objShell.Windows.Count - 1)
　 objIE.Navigate2 "http://www.google.co.jp/", 2048
　 Set objIE3 = objShell.Windows.Item(objShell.Windows.Count - 1)

　 objIE2.Quit
　 objIE3.Quit
　 objIE.Quit

　 Set objIE = Nothing
　 Set objIE2 = Nothing
　 Set objIE3 = Nothing
　 Set objShell = Nothing
End Sub

お礼

まず仕組みを理解してからやるべきでしたね。失礼しました。
「objShell.Windows」
「.Item(objShell.Windows.Count - 1)」
についてはいまいちよくわかっていませんが、もっと調べて理解できるようにします。

objIE2とobjIE3にＵＲＬの情報を入れちゃうイメージですね。

あと、
　 Dim objIE As New InternetExplorer
　 Dim objIE2 As InternetExplorer
　 Dim objIE3 As InternetExplorer
のように、
objIEだけnewを付けるのがポイントのようですね。

CreateObject("InternetExplorer.application")
を使わずに、
CreateObject("Shell.Application")
を使うべきなのでしょうか？

頂いたサンプルコードをを実行したら
objIE2.Quitの部分でやりたいような動作になりました。
ありがとうございました。大変参考になりました。