VBA使用頻度の高いコード（８）：インターネットエクスプローラーの起動

インターネットエクスプローラーの起動

インターネットエクスプローラーの起動用コード

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

Sub IEOpen(ByRef MapURL As String)
Dim objIE As Object
Dim waitTime As Variant

Target = MapURL
Set objIE = CreateObject("InternetExplorer.Application")
With objIE
.Top = 0 'Y位置（上下）
.Left = 900 'X位置（左右）
.Width = 800 'IEウィンドウの幅
.Height = 600
'InternetExplorerを表示
.Visible = True

'指定したURLのページを表示する
.navigate Target

'完全にページが表示されるまで待機する
Do While .Busy = True Or .readyState <> 4
DoEvents
Loop

'完全にドキュメントが読み込まれるまで待機する
Do While .document.readyState <> "complete"
DoEvents
Loop
End With

Set objIE = Nothing

End Sub

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝