首页 > 解决方案 > 我正在编写 vba 代码以从网络上抓取数据,我收到远程服务器机器不存在或不可用的错误

问题描述

Sub Launch_website()
Dim ie As SHDocVw.InternetExplorer
Dim myurl As String

Set ie = New SHDocVw.InternetExplorer
ie.Visible = True

myurl = "https://www.lifeinscouncil.org/industry%20information/NewBusinessPerformance"
'ie.Navigate "https://www.lifeinscouncil.org/industry%20information/NewBusinessPerformance" '

ie.Navigate myurl




'On Error Resume Next
Do While ie.ReadyState <> READYSTATE_COMPLETE
Loop

标签: vba

解决方案


推荐阅读