Sub BrowseSite()
‘ ツール->参照設定
‘ Microsoft Internet Controls
‘ Microsoft HTML Object Libraly
Dim IE As SHDocVw.InternetExplorer
Set IE = New SHDocVw.InternetExplorer
IE. Visible = True
IE. Navigate "kokodane.com"
‘Do While IE. ReadyState <> READYSTATE_COMPLETE
‘Loop
‘Debug.Print IE. Location Name, IE.LocationURL
‘MsgBox "開きました。"
‘IE.Quit
End Sub
More than 3 years have passed since last update.
Register as a new user and use Qiita more conveniently
- You get articles that match your needs
- You can efficiently read back useful information
- You can use dark theme