从 Excel VBA 中读取 HTML 中的innerText

问题描述

我对以下代码有一些问题：

Function OSMRoutingInfo(ByVal FromAdress As String,ByVal ToAdress As String) As Variant
    
    Dim URL As String
    Dim ie As Object
    Dim i As Long: i = 0
        
    URL = "http://www.openstreetmap.org/directions?engine=graphhopper_auto&from={0}&to={1}"
    
    FromAdress = Replace(FromAdress," ","%20")
    ToAdress = Replace(ToAdress,"%20")
    URL = (Replace(Replace(URL,"{0}",FromAdress),"{1}",ToAdress))
    
    Set ie = CreateObject("InternetExplorer.Application")
    
    ie.navigate (URL)
    
    While ie.busy Or ie.readyState <> 4: DoEvents: Wend
    
    OSMRoutingInfo = ie.document.getElementById("sidebar_content").innerText
    
    ie.Quit
    Set ie = nothing
End Function

有时似乎有效，但下一刻就不行了。我的目标是从 <div id="sidebar_content"> 从 URL 获取“distanz”和“Time by Travel”。

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

createobject html vba