从XML获取数据

大家好，

对于我的论文，我正在开发一个excel模型，它可以计算从车厂到客户的卡车的距离和旅行时间。 有了这个模型，我们可以创build一个很好的交通运输的基本理解。

我仍然很难从XML文件获取信息，并把它放在Excel中。 我在VBA中创build了以下脚本。

Public Function G_Distance(startGPS As String, eindGPS As String) As Variant 'vervoer As String' Dim vehicletype As String Dim Apikey As String Dim linkAPIkey As String Dim linkstartGPS As String Dim linkendGPS As String Apikey = "&api_key=ee0b8233adff52ce9fd6afc2a2859a28" linkstartGPS = "&start=" & startGPS linkendGPS = "&end=" & eindGPS vehicletype = "&" ''' Link put location to KM''' Language = "&lang=en" Maxresponseamount = "&MaxResponse=1" Distanceunits = "&distunit=KM" Dim IE As New InternetExplorer IE.Visible = True IE.navigate "http://openls.geog.uni-heidelberg.de/route? &routepref=HeavyVehicle" & linkstartGPS & linkendGPS & Language & Maxresponseamount & Distanceunits & Apikey Do DoEvents Loop Until IE.readyState = READYSTATE_COMPLETE Dim doc As HTMLDocument Set doc = IE.document Dim sDD As String sDD = Trim(doc.getElementsByTagName("xls:TotalDistance value").innerText) G_Distance = sDD End Function 

那么这个脚本所做的就是将目的地的GPS位置和目的地的GPS位置放到两个不同的单元格（A2和B2）中。 要启动你使用的函数：= G_distance（A2; B2）

当你启动这个function时，它会打开一个资源pipe理器，在这里你将会看到里面有距离的XML文件。 现在唯一不起作用的部分是将数据从XML中提取到excel中。

我希望你们能帮助我。

问候，杰勒