WinXP,7のIE8にて新規セッションで起動
VBAを使用してWebサイトにログインを行いたいのですが、ログインをする際に必ず新規セッションでウィンドウを起動してログインするようにするにはどのようなコードを組めばいいのでしょうか？
下記のようなコードで現在は動かしているのですが、explore.exe -noframemergingで起動すれば新規セッションでIEを開けるとのことだったのですが、上手く組み込むことができません・・・。
どのようにすれば上手く動くのでしょうか・・・。
申し訳ありませんがどなたかご教授願います。
'=========================================
sub ろぐいん()
'変数
Dim IE As Object
Dim UserID As String
Dim UserPass As String
'ID,PASS設定
UserID = "ID"
UserPass = "PASS"
'IE起動
Set IE = CreateObject("InternetExproler.Application")
IE.Visible = True
'接続
IE.navigate "http://"
'文字入力
IE.document.gatelementbyid("ID").Value = UserID
IE.document.gatelementbyid("PASS").Value = UserPass
'送信
Call IEButtonClick(IE, " 送信 ")
Set IE = Nothing
End Sub
'クリック
Public Function IEButtonClick (ByRef IE As Object, ButtonValue As String)
Dim ObjInput As Object
For Each ObjInput In IE,document,getelementsbytagname("INPUT")
If ObjInput,Value = ButtonValue Then
ObjInput,Click
Exit For
End If
Next
End Function
'=========================================
お礼
ご回答ありがとうございます！ 上記iexplore.exe -noframemergingで新規セッションを起動することはできたのですが、変数に組み込めずいまいち使い方がわからなかったです。 調べながらやってみたのですがどうしてもうまくいかず、そちらも教えていただけるとうれしいです。
補足
下記のようなコードで現在は動かしているのですが、explore.exe -noframemergingで起動したIEを変数に組み込めないのです。 どのようにすれば上手く動くでしょうか・・・ sub ろぐいん() '変数 Dim IE As Object Dim UserID As String Dim UserPass As String 'ID,PASS設定 UserID = "ID" UserPass = "PASS" 'IE起動 Set IE = CreateObject("InternetExproler.Application") IE.Visible = True '接続 IE.navigate "http://" '文字入力 IE.document.gatelementbyid("aaa").Value = UserID IE.document.gatelementbyid("bbb").Value = UserPass '送信 Call IEButtonClick(IE, " 送信 ") Set IE = Nothing End Sub 'クリック Public Function IEButtonClick (ByRef IE As Object, ButtonValue As String) Dim ObjInput As Object For Each ObjInput In IE,document,getelementsbytagname("INPUT") If ObjInput,Value = ButtonValue Then ObjInput,Click Exit For End If Next End Function