IEの制御のマクロをつくっていますが

質問

ログインと作業実行を別々のマクロにしたいのですが
マクロでログインを省略して次の画面にもっていきたいので
objIE.navigate "https://...........
とやると、セキュリティの関係だと思いますが画面がはじかれてしまいます。
ですのでいまはひとつの作業をするのにその都度ログインのマクロからになってしまいます。
何かいい方法がございましたらご教授ください。

Sub ログイン()

Dim objIE As InternetExplorer
Dim strUserName, strPassword As String

strUserName = Range("AA1").Value
strPassword = Range("AA2").Value

Set objIE = CreateObject("InternetExplorer.application")
objIE.Visible = True

objIE.navigate "https://mobile.e..............’ログイン画面

IE_Complete objIE '表示終わるまで待つ

objIE.Document.All.req_userId.Value = strUserName 'ユーザーネーム
objIE.Document.All.req_password.Value = strPassword 'パスワード
objIE.Document.All.LoginSubmit.Click 'クリック

IE_Complete objIE

ここまでログイン
上記を省略して以下からはじめたい

Sub 作業実行()
objIE.navigate "https://...........

回答No.2

watabe007

>最後の",​ &H800は何を意味しているのですか
>教えていただければ幸いです。
Navigate2 メソッドの第二引数です
詳しくはこちらを
http://ken3-info.blog.ocn.ne.jp/objie/2009/06/navigate2_h800_.html

補足

ご回答ありがとうございました。
その後できたのですが、今日やってみると”実行時エラー438”
オブジェクトはプロパティまたはメソッドをサポートしません
と出てしまいます。
ご教授いただければ幸いです。

Sub ()

Dim objIE As Object
Dim objShell As Object
Dim objWin As Object

Set objShell = CreateObject("Shell.Application")

For Each objWin In objShell.Windows
If TypeName(objWin.Document) = "HTMLDocument" Then
Set objIE = objWin
Exit For
End If

Next

objIE.Navigate2 "https://....", &H800
IE_Complete objIE

For i = 1 To Range("G1").Value
If Cells(6 + i, 3).Value = 0 Then

AA = Cells(6 + i, 4).Value
BB = Cells(6 + i, 11).Value
CC = Cells(6 + i, 8).Value

この下の文が黄色になる
objWin.Document.forms(0).req_instrumentCode.Value = AA
IE_Complete objIE

objWin.Document.forms(0).req_searchInstrumentDecided.Click
IE_Complete objIE

objIE.Document.forms(0).req_orderQuantity.Value =BB
objIE.Document.forms(0).req_executionConditionCode.selectedIndex = 2

objIE.Document.all.req_limitOrderPrice.Value = CC
objIE.Document.forms(2).butConfirm.Click
IE_Complete objIE

objIE.Document.forms(1).butExecute.Click
IE_Complete objIE

objIE.Navigate "https://........"
IE_Complete objIE

Next i
Cells(3, 7).Value = "完了"
Cells(3, 7).Font.Color = RGB(255, 0, 0)

End Sub

回答No.1

watabe007

>ログインと作業実行を別々のマクロにしたいのですが
>マクロでログインを省略して次の画面にもっていきたいので
既に起動しているIEを検索して新しいタブで表示するのなら

Dim objIE As Object
Dim objShell As Object
Dim objWin As Object
Set objShell = CreateObject("Shell.Application")
For Each objWin In objShell.Windows
　　If TypeName(objWin.document) = "HTMLDocument" Then
　　　　Set objIE = objWin
　　　　Exit For
　　End If
Next
objIE.Navigate2 "http://www.yahoo.co.jp/", &H800

お礼

ありがとうございます。できました！！
とても困っていたので助かりました。

objIE.Navigate2 "​http://www.yahoo.co.jp/",​ &H800
最後の",​ &H800は何を意味しているのですか
教えていただければ幸いです。