大家好日子，
对于我的论文，我在excel中开发了一个模型，用于计算卡车从仓库到客户的距离和行程时间。通过这个模型，我们可以对运输有一个很好的基本了解。
我仍然很难从XML文件中获取信息并将其放入excel中。我在VBA中制作了以下脚本。
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位置放入2个不同的单元格（A2和B2）。要启动您使用的功能：= G_distance（A2; B2）
当您启动此功能时，它将打开一个资源管理器，在这里您将看到其中包含距离的XML文件。现在，唯一不起作用的部分是将XML中的数据转化为excel。
我希望你们可以帮助我。
问候， 耶勒