IE制御 IEのページが開くまで待つ

なんか、久しぶりに書きます。

これからもよろしくっ。

ＩＥのページが開くまでちょっと待つというサブルーチン

これをやらないと即エラーでます（＞＜）

call　waitPage(objIE)

で呼び出します。

Sub waitPage(objIE)
Do While objIE.busy
Loop
Do While objIE.Document.readyState <> "complete"
Loop
End Sub

URLが存在するか確かめる

URLの有無を確認する

Sub test

'URLの存在を確認

Dim URL As String
URL = http://○○○.html

On Error Resume Next
Workbooks.Open Filename:=URL

If Err <> 0 Then

Debug.Print "ファイルにアクセスできません "
GoTo Step0

End If

Debug.Print "ファイルを開きました"

Workbooks(URL).Close SaveChanges:=False

Step0:

On Error GoTo 0

End Sub

VBA IE制御 NavigateとNavigate2の違い

NavigateとNavigate2の違い

第1引数であるURLの型が、

Navigate　　　　⇒　String

Navigate2　　　⇒　Variant