Skip to content

Instantly share code, notes, and snippets.

@kumatti1

kumatti1/Module1.bas

Created July 22, 2019 22:35
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save kumatti1/ab103ef64b951ba8811dc2d193389960 to your computer and use it in GitHub Desktop.
Save kumatti1/ab103ef64b951ba8811dc2d193389960 to your computer and use it in GitHub Desktop.
Download ZIP
現行のEdgeさん
Raw
Module1.bas
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