All this thanks to the Google API for Geolocation<\/strong>, with which we get that, making a query in which we send a URL with the data of the address we want,<\/strong> we get an XML with all the information of that location, including what we needed: latitude and longitude.<\/strong><\/p>\r\n If we click on the following link we will see that we obtain the geolocation of the office where I am \ud83d\ude42<\/p>\r\n http:\/\/maps.googleapis.com\/maps\/api\/geocode\/xml?address=Glorieta%20Fernando%20Qui%C3%B1ones&sensor=false<\/p>\r\n Next, I am going to explain the steps that we must take to obtain our document with all the necessary coordinates.<\/p>\r\n To do this, first indicate that we will use the 2010 version of Excel.<\/strong><\/p>\r\n We will need to have the “Scheduler” tab visible<\/strong> since this is where we are going to start the geolocation process.<\/p>\r\n To enable this tab, go to the File menu, Options.<\/strong><\/p>\r\n Click on “Customize ribbon”<\/strong>, select “Main tabs”<\/strong> in the drop-down menu under the heading of the same name, select the “Scheduler”<\/strong> checkbox and click on the “OK<\/strong>” button.<\/p>\r\n Once these steps have been completed, we can see the Scheduler<\/strong> option as another tab.<\/p>\r\n We now need to run the VisualBasic command in Excel<\/strong> to create our function.<\/p>\r\n Therefore we click on the icon that gives us this option:<\/p>\r\n A new screen opens.<\/p>\r\n Select “Insert<\/strong>” and then “Module<\/strong>“.<\/p>\r\n And we copy the following code<\/strong> in the module that has been created.<\/p>\r\n On the internet there are many variants of code to get what we want. I used this one and I can say that it worked quite well.<\/p>\r\n The code makes use of the Microsoft XML library so we will have to add a reference to it<\/strong>. To do this we click on the “Tools” menu option and select “References”.<\/strong><\/p>\r\n \u00a0<\/p>\r\n \u00a0<\/p>\r\n \u00a0<\/p>\r\n A list of checkboxes will appear. We need to find “Microsoft XML v6.0”<\/strong> in the list and check that it works. Click “OK<\/strong>“.<\/p>\r\n Save the document as “Excel workbook enabled for macros”.<\/strong><\/p>\r\n If we have done all the steps correctly we should be able to use the newly created functions as we would use the default Excel loaded functions.<\/p>\r\n That is, by standing in any cell and typing the following:<\/p>\r\n =GoogleGeocode(A646)<\/strong><\/p>\r\n The code above serves as an example.<\/p>\r\n Of course, in this geolocation process I encountered some problems, some perfectly avoidable and others with which we can do absolutely nothing, at least as far as I know. But that will be a matter for another day, since the post is getting a little long already :).<\/p>\r\n![\"\"](\"https:\/\/www.viafirma.com\/wp-content\/uploads\/2013\/05\/Archivo_Opciones.png\" "\\"Archivo_Opciones\\"")
<\/p>\r\n![\"\"](\"https:\/\/www.viafirma.com\/wp-content\/uploads\/2013\/05\/Opciones_Programador.png\" "\\"Opciones_Programador\\"")
<\/p>\r\n![\"\"](\"https:\/\/www.viafirma.com\/wp-content\/uploads\/2013\/05\/Tab_Programador.png\" "\\"Tab_Programador\\"")
<\/p>\r\n![\"\"](\"https:\/\/www.viafirma.com\/wp-content\/uploads\/2013\/05\/Visual_Basic_Programador.png\" "\\"Visual_Basic_Programador\\"")
<\/p>\r\n![\"\"](\"https:\/\/www.viafirma.com\/wp-content\/uploads\/2013\/05\/VB_Module.png\" "\\"VB_Module\\"")
<\/p>\r\nFunction GoogleGeocode(address As String) As String\r\n Dim strAddress As String\r\n Dim strQuery As String\r\n Dim strLatitude As String\r\n Dim strLongitude As String\r\n\r\n strAddress = URLEncode(address)\r\n\r\n 'Assemble the query string\r\n strQuery = \"http:\/\/maps.googleapis.com\/maps\/api\/geocode\/xml?\"\r\n strQuery = strQuery & \"address=\" & strAddress\r\n strQuery = strQuery & \"&sensor=false\"\r\n\r\n 'define XML and HTTP components\r\n Dim googleResult As New MSXML2.DOMDocument\r\n Dim googleService As New MSXML2.XMLHTTP\r\n Dim oNodes As MSXML2.IXMLDOMNodeList\r\n Dim oNode As MSXML2.IXMLDOMNode\r\n\r\n 'create HTTP request to query URL - make sure to have\r\n 'that last \"False\" there for synchronous operation\r\n\r\n googleService.Open \"GET\", strQuery, False\r\n googleService.send\r\n googleResult.LoadXML (googleService.responseText)\r\n\r\n Set oNodes = googleResult.getElementsByTagName(\"geometry\")\r\n\r\n If oNodes.Length = 1 Then\r\n For Each oNode In oNodes\r\n strLatitude = oNode.ChildNodes(0).ChildNodes(0).Text\r\n strLongitude = oNode.ChildNodes(0).ChildNodes(1).Text\r\n GoogleGeocode = strLatitude & \",\" & strLongitude\r\n Next oNode\r\n Else\r\n GoogleGeocode = \"Not Found (try again, you may have done too many too fast)\"\r\n End If\r\nEnd Function\r\n\r\nPublic Function URLEncode(StringVal As String, Optional SpaceAsPlus As Boolean = False) As String\r\n Dim StringLen As Long: StringLen = Len(StringVal)\r\n\r\n If StringLen>0 Then\r\n ReDim result(StringLen) As String\r\n Dim i As Long, CharCode As Integer\r\n Dim Char As String, Space As String\r\n\r\n If SpaceAsPlus Then Space = \"+\" Else Space = \"%20\"\r\n\r\n For i = 1 To StringLen\r\n Char = Mid$(StringVal, i, 1)\r\n CharCode = Asc(Char)\r\n\r\n Select Case CharCode\r\n Case 97 To 122, 65 To 90, 48 To 57, 45, 46, 95, 126\r\n result(i) = Char\r\n Case 32\r\n result(i) = Space\r\n Case 0 To 15\r\n result(i) = \"%0\" & Hex(CharCode)\r\n Case Else\r\n result(i) = \"%\" & Hex(CharCode)\r\n End Select\r\n Next i\r\n URLEncode = Join(result, \"\")\r\n End If\r\nEnd Function\r\n\r\n![\"\"](\"https:\/\/www.viafirma.com\/wp-content\/uploads\/2013\/05\/Module_1_Code.png\" "\\"Module_1_Code\\"")
<\/code><\/pre>\r\n![\"\"](\"https:\/\/www.viafirma.com\/wp-content\/uploads\/2013\/05\/Herramientas_Referencias.png\" "\\"Herramientas_Referencias\\"")
<\/p>\r\n![\"\"](\"https:\/\/www.viafirma.com\/wp-content\/uploads\/2013\/05\/referencias_MXML_6.png\" "\\"referencias_MXML_6\\"")
<\/p>\r\n
![\"Comparison](\"https:\/\/www.viafirma.com\/wp-content\/uploads\/2023\/09\/img_blog_firmadigital_google-768x475.webp\")
<\/div><\/a>![\"Ordenador](\"https:\/\/www.viafirma.com\/wp-content\/uploads\/2020\/10\/blog_navegador-768x475.webp\")
<\/div><\/a>![\"que-es-la-firma-electronica-avanzada\"](\"https:\/\/www.viafirma.com\/wp-content\/uploads\/2021\/05\/Que-es-la-firma-electronica-avanzada-768x512.webp\")
<\/div><\/a>