excel如何使用高德api？
要在Excel中使用高德API，您需要按照以下几个步骤进行操作：
步骤1：在高德地图开放平台上注册并获取开发者Key。这是使用高德API的必须条件。
步骤2：在Excel中打开VB Editor，添加Microsoft XML 6.0引用（Tools -> References）。
步骤3：打开一个新的Excel工作表，然后按Alt+F11键打开Microsoft Visual Basic for Applications(AKA VBA)。
步骤4：在VBA内，点击Insert菜单，选择Module，在新增的模块中添加以下VBA代码:
```
Public Function getDistance(startAddr As String, endAddr As String, Optional mode As String = "driving") As String
Dim firstAddress As String, secondAddress As String
firstAddress = "https://restapi.amap.com/v3/geocode/geo?key=YOUR_KEY&address=" & startAddr
secondAddress = "https://restapi.amap.com/v3/geocode/geo?key=YOUR_KEY&address=" & endAddr
With CreateObject("Msxml2.XMLHTTP")
.Open "GET", firstAddress, False
.send
Dim firstGeoJson As New JSONScript.JSON
firstGeoJson.parse (.responseText)
.Open "GET", secondAddress, False
.send
Dim secondGeoJson As New JSONScript.JSON
secondGeoJson.parse (.responseText)
Dim firstLocation As String, secondLocation As String
firstLocation = "locations=" & _
firstGeoJson.Item("geocodes").Item(1).Item("location") & _
"&"
secondLocation = "locations=" & _
secondGeoJson.Item("geocodes").Item(1).Item("location") & _
"&"
Dim directionURL As String
directionURL = "https://restapi.amap.com/v3/direction/" & mode & _
"?" & firstLocation & secondLocation & "key=YOUR_KEY"
.Open "GET", directionURL, False
.send
Dim distanceJson As New JSONScript.JSON
distanceJson.parse (.responseText)
getDistance = distanceJson.Item("route").Item(0).Item("distance")
End With
End Function
```
需要将其中的YOUR_KEY替换为您自己申请获得的高德开发者Key。
步骤5：使用Excel函数式在工作表中调用此VBA函数, 如：
```
=getDistance("北京市海淀区上地十街10号", "北京市海淀区上地一街10号")
```
请注意，该工作表中使用的函数名称和代码中定义的VBA函数名称应保持一致。
以上就是在Excel中使用高德API的基本步骤，具体根据您的需求自行更改代码内容即可。