Question

首先请您在这里提供所有帮助！学习的好地方！

我的问题：我想从一个地址返回地理坐标。就像这里：https://www.myengineeringworld.net/2014/06/geocoding-using-vba-google-api.html

我创建了一个API密钥，此代码运行正常！但是我们有一个防火墙，并且防火墙在“ request.send”点阻止了Excel与google maps服务器的通讯（我找不到IP范围或可以放入白名单的东西），有机会吗通过浏览器获取XML代码？因为我可以使用“ Request.Open” GET“中的链接，并且可以在Internet Explorer中看到XML内容。除了request.send

还有其他方法吗

谢谢你们！

代码：

Function GetCoordinates(Address As String) As String

'-----------------------------------------------------------------------------------------------------
'This function returns the latitude and longitude of a given address using the Google Geocoding API.
'The function uses the "simplest" form of Google Geocoding API (sending only the address parameter),
'so, optional parameters such as bounds, language, region and components are NOT used.
'In case of multiple results (for example two cities sharing the same name), the function
'returns the FIRST OCCURRENCE, so be careful in the input address (tip: use the city name and the
'postal code if they are available).

'NOTE: As Google points out, the use of the Google Geocoding API is subject to a limit of 40,000
'requests per month, so be careful not to exceed this limit. For more info check:
'https://cloud.google.com/maps-platform/pricing/sheet

'In order to use this function you must enable the XML, v3.0 library from VBA editor:
'Go to Tools -> References -> check the Microsoft XML, v3.0.
'If you don't have the v3.0 use any other version of it (e.g. v6.0).

'2018 Update: In order to use this function you will now need a valid API key.
'Check the next link that guides you on how to acquire a free API key:
'https://www.myengineeringworld.net/2018/02/how-to-get-free-google-api-key.html

'2018 Update 2 (July): The EncodeURL function was added to avoid problems with special characters.
'This is a common problem with addresses that are from Greece, Serbia, Germany and other countries.

'Written By:    Christos Samaras
'Date:          12/06/2014
'Last Updated:  09/08/2018
'E-mail:        xristos.samaras@gmail.com
'Site:          https://www.myengineeringworld.net
'-----------------------------------------------------------------------------------------------------

'Declaring the necessary variables.
'The first 2 variables using 30 at the end, corresponding to the "Microsoft XML, v3.0" library
'in VBA (msxml3.dll). If you use any other version of it (e.g. v6.0), then declare these variables
'as XMLHTTP60 and DOMDocument60 respectively.
Dim ApiKey          As String
Dim Request         As New XMLHTTP30
Dim Results         As New DOMDocument30
Dim StatusNode      As IXMLDOMNode
Dim LatitudeNode    As IXMLDOMNode
Dim LongitudeNode   As IXMLDOMNode

'Set your API key in this variable. Check this link for more info:
'https://www.myengineeringworld.net/2018/02/how-to-get-free-google-api-key.html
ApiKey = "Your API Key goes here!"

'Check that an API key has been provided.
If ApiKey = vbNullString Or ApiKey = "Your API Key goes here!" Then
    GetCoordinates = "Invalid API Key"
    Exit Function
End If

'Generic error handling.
On Error GoTo errorHandler

'Create the request based on Google Geocoding API. Parameters (from Google page):
'- Address: The address that you want to geocode.

'Note: The EncodeURL function was added to allow users from Greece, Poland, Germany, France and other countries
'geocode address from their home countries without a problem. The particular function (EncodeURL),
'returns a URL-encoded string without the special characters.
Request.Open "GET", "https://maps.googleapis.com/maps/api/geocode/xml?" _
& "&address=" & Application.EncodeURL(Address) & "&key=" & ApiKey, False

'Send the request to the Google server.
Request.send

'Read the results from the request.
Results.LoadXML Request.responseText

'Get the status node value.
Set StatusNode = Results.SelectSingleNode("//status")

'Based on the status node result, proceed accordingly.
Select Case UCase(StatusNode.Text)

    Case "OK"   'The API request was successful. At least one geocode was returned.

        'Get the latitude and longitude node values of the first geocode.
        Set LatitudeNode = Results.SelectSingleNode("//result/geometry/location/lat")
        Set LongitudeNode = Results.SelectSingleNode("//result/geometry/location/lng")

        'Return the coordinates as a string (latitude, longitude).
        GetCoordinates = LatitudeNode.Text & ", " & LongitudeNode.Text

    Case "ZERO_RESULTS"   'The geocode was successful but returned no results.
        GetCoordinates = "The address probably not exists"

    Case "OVER_QUERY_LIMIT" 'The requestor has exceeded the limit of 2500 request/day.
        GetCoordinates = "Requestor has exceeded the server limit"

    Case "REQUEST_DENIED"   'The API did not complete the request.
        GetCoordinates = "Server denied the request"

    Case "INVALID_REQUEST"  'The API request is empty or is malformed.
        GetCoordinates = "Request was empty or malformed"

    Case "UNKNOWN_ERROR"    'Indicates that the request could not be processed due to a server error.
        GetCoordinates = "Unknown error"

    Case Else   'Just in case...
        GetCoordinates = "Error"

End Select

结束功能'

Answer 1

您可以尝试检测代理设置并将其添加到XMLHTTP请求中。

请参见此链接以获取一个好的起点（此处粘贴太多代码）：http://www.tech-archive.net/Archive/VB/microsoft.public.vb.winapi.networks/2004-11/0005.html

VBA Excel-来自Internet Explorer地址的地理坐标

1 个答案: