读取照片地理位置的模块

vbexcelhome

因为工作需要，把工作人员手机照片中的GPS地理坐标导出，在网上找了一下没有现成的，不过找了个半成品加工了一下分享给大家。做的挺仓促，没有做进一步的容错处理。

小知识：
手机拍照会记录下你的坐标位置，有些编辑软件处理完照片并不会清除，所以可以照片通过定位，GPS现在精度开放到米级，挺实用的。
手机除了GPS，还可以通过基站定位，每个手机与附近的几个基站连接，通过算法可以定位具体位置，精度比GPS差点。
手机不上SIM卡，不开机，也会与基站连接，只是屏幕关闭，只要通电，手机就在工作。


exif.rar (103.13 KB, 下载次数: 95)

2019-6-10 00:07 上传

点击文件名下载附件

调用方法：
Dim cExif As New ExifReader
cExif.Load "c:\test.jpg"
Debug.Print cExif.GPSCoordinateText


编程参考了这个帖子
https://blog.csdn.net/fioletfly/article/details/53605959

740688321

看起来写得很规范，写得不错。只提供了一个"类模块",怎么使用？能不能来个详细一点的

vbexcelhome

740688321 发表于 2019-6-10 09:44
看起来写得很规范，写得不错。只提供了一个"类模块",怎么使用？能不能来个详细一点的

这个模块不是我自己写的，是在VBGOOD上找的一个，是个成品，只是没有获得GPS坐标功能，我添加了这个功能。
实际上我并不知道电子表格如何使用类模块，因为我用的是VB6，只要将模块拖进去就行了。（如果有懂电子表格加载类模块的坛友，请跟个贴）

vbexcelhome

740688321 发表于 2019-6-10 09:44
看起来写得很规范，写得不错。只提供了一个"类模块",怎么使用？能不能来个详细一点的

这两天实验了一下电子表格中使用，发现极其简单，也不知道你是不是真不知道。方法：单击右键，导入文件即可。

还发现电子表格中的控件比VB中的要好，要新，还支持滚轮。挺好。

李甲

你在用03excel吗？
16更强大

YZC51

谢谢楼主分享！
感觉还能提取其它信息！

YZC51

今天只有一朵啦，改日补上！ exif 读取照片地理位置的模块 .rar (143.01 KB, 下载次数: 50)

2019-6-13 20:38 上传

点击文件名下载附件

附件个参考

vbexcelhome

李甲 发表于 2019-6-13 18:50
你在用03excel吗？
16更强大

这个图是在家里截的，家里用的是2003表格，在家一般没机会用表格。
工作用的版本不是2003表格，但是工作的时候不能上网，整不成。
写代码用的是vb迷你版。

vbexcelhome

YZC51 发表于 2019-6-13 20:34
今天只有一朵啦，改日补上！
附件个参考

是啊，只要照片中有EXIF信息，都可以提取。
但是地理位置信息提取十分麻烦，在网上没有找到现成的例子，所以增加了这个功能。
对应标签翻译成中文，就可以很方便，如下图（某张照片的信息）：

标签编号   类型          名称                        值

yzyyyyyyy

YZC51 发表于 2019-6-13 20:34
今天只有一朵啦，改日补上！
附件个参考

如何将需要查询的结果写入到电子表格的单元中呢，能举个例子吗，横分辨率，纵分辨率