Excel vb高德天地图坐标互相转换
在excel 宏中vb 实现 高德与天地图(gps)坐标的互相转换
1
2右键插入模块
3实现代码
代码如下,之前没接触过vb可能实现过程有点繁琐,不过能实现功能
Function 天地图坐标转高德Lng(wgLon, wgLat)
x = 0
y = 0
Pi = 3.14159265358979
a = 6378245#
ee = 6.69342162296594E-03
If 是否国外(wgLon, wgLat) Then
x = wgLon
y =
原创
2021-07-03 15:31:23 ·
975 阅读 ·
0 评论