我有一个以583个城市为起点,8个城市为目的地的表格。 我必须find每一对这些起源和目的地之间的距离。 因为,这将是一个繁琐的任务,是他们的一种方式,我可以从Excelinput的起源和目的地,并得到城市之间的距离输出?
在Excel中 我试图提取这个值“45.33887499999999” 通过此Googleurl“ https://maps.googleapis.com/maps/api/geocode/json?address=bojon ” (例如Google URL + “= bojon”或+ “= VENICE%20BEACH%20CA”) 用这个VBA代码: Public Function LATITUDE(coord As String) Dim firstVal As String firstVal = "https://maps.googleapis.com/maps/api/geocode/json?address=" Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP") URL = firstVal & Replace(coord, " ", "+") objHTTP.Open "GET", URL, False objHTTP.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)" objHTTP.send ("") If InStr(objHTTP.responseText, """location"" […]
我正在构build一个小部件,用户可以上传一个Excel文件,并在Google地图中标记这些地方。 下面的代码工作,但问题来了,当我正在阅读一个大的excel文件与10k数据量,浏览器卡住了。 我正在使用for循环,并添加一些超时从谷歌API的数据。 我通过城市名称并获取经纬度并在地图上标记。 有没有更好的方法可以实现? 这里是代码: function googleMapsInit(widId, $scope, $http, $rootScope, $mdDialog) { $scope.finish = function() { var objIndex = getRootObjectById(widId, $rootScope.dashboard.widgets); $mdDialog.hide(); document.getElementById('map').innerHTML = ""; //excel data var array = JSON.parse($rootScope.json_string); $scope.locationData = []; //dividing it to chunks var k,j,temparray,chunk = 8; for (k=0,j=array.length; k<j; k+=chunk) { temparray = array.slice(k,k+chunk); var i; //getting the […]
我正在尝试将Google街景视图embedded到Excel中。 我发现这个链接有下面的代码。 对我来说真的没有任何作用,并寻找一些帮助开始。 很明显,我需要设置variables来查找街景url。 但我从来没有通过VBA插入图片,寻找一些指导。 Sub GoogleStaticStreetView(oShape As Shape, _ sAddress As String, _ lHeading As Long, _ Optional lHeight As Long = 512, _ Optional lWidth As Long = 512) 'https://developers.google.com/maps/documentation/streetview/ Dim sURL As String Dim sMapsURL As String On Error GoTo RETURN_FALSE If bRunMode Then On Error Resume Next 'Error if quota exceeded […]
我创build的Excel电子表格的一部分是一个由8个不同位置组成的网格,它们之间的距离是从Google Maps Distance Matrix API中提取的。 这些地点是从一个表格input,并会定期更改。 我目前使用的VBA代码是: 'Calculate Google Maps distance between two addresses Public Function GetDistance(start As String, dest As String) Dim firstVal As String, secondVal As String, lastVal As String firstVal = "http://maps.googleapis.com/maps/api/distancematrix/json?origins=" secondVal = "+UK&destinations=" lastVal = "+UK&mode=car&language=en&sensor=false" Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP") URL = firstVal & Replace(start, " ", "+") & secondVal […]
我试图从一个在线课程上传一个包含学生姓名,他们的地理位置和他们的“顶尖技能”的Excel电子表格到Google Javascript API中。 最后,我希望每个位置都有一个与之关联的popup框,显示学生姓名和顶尖技能。 根据我所知道的API,我必须使用这样的Data Arrays来绘制标记: var locations = [ ['Bondi Beach', -33.890542, 151.274856, 4], ['Coogee Beach', -33.923036, 151.259052, 5], ['Cronulla Beach', -34.028249, 151.157507, 3], ['Manly Beach', -33.80010128657071, 151.28747820854187, 2], ['Maroubra Beach', -33.950198, 151.259302, 1] ]; 然后我可以像这样添加这些位置: for (i = 0; i < locations.length; i++) { marker = new google.maps.Marker({ position: new google.maps.LatLng(locations[i][1], locations[i][2]), map: […]
有什么办法,使用Excel 2007提供的脚本在工作表内显示Google Earth地图? 我已经使用Excel来存储我已经去过的数据,并生成一个KML文件加载到Google地球,但是现在他们想要看到一个漂亮的小单元格,在Excel中直接映射出一个客户端地址, 。