Skip to content

Instantly share code, notes, and snippets.

@kumatti1
Created Jul 22, 2019
Embed
What would you like to do?
現行のEdgeさん
Option Explicit
Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub hoge()
Dim doc As Object
Set doc = CreateObject("htmlfile")
With doc
.parentWindow.navigate "https://www.yahoo.co.jp/"
While .readystate <> "complete"
DoEvents
Sleep 1&
Wend
Debug.Print doc Is Nothing
End With
End Sub
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment