读取照片地理位置的模块

YZC51 · 发表于 2019-6-17 10:58

yzyyyyyyy 发表于 2019-6-17 10:31
如何将需要查询的结果写入到电子表格的单元中呢，能举个例子吗，横分辨率，纵分辨率

请参考
Public Sub ss()
Dim cExif As New ExifReader
myPath = ThisWorkbook.Path
myPath = myPath & "\" & [a2]
'cExif.Load "\test.jpg"
cExif.Load myPath
'Debug.Print cExif.GPSCoordinateText
ar = Split(cExif.GPSCoordinateText)
[b2] = ar(0): [c2] = ar(1)
End Sub
好用、鲜花、上附件！

YZC51 · 发表于 2019-6-17 10:59

效果图

YZC51 · 发表于 2019-6-17 11:11

附件来了

exif 读取照片地理位置到表格.rar (145.95 KB, 下载次数: 44)

屌爆了z · 发表于 2019-6-17 12:02

xdcad · 发表于 2020-4-8 08:50

vbexcelhome 发表于 2019-6-13 22:27
是啊，只要照片中有EXIF信息，都可以提取。
但是地理位置信息提取十分麻烦，在网上没有找到现成的例子， ...

您好，您这个类换个图片好像就不行了
我换了华为P10 p30pro的照片就读不出来，但是例子里的TESt就可以
EXIF显示这些照片都是有Gps信息的

YZC51 · 发表于 2020-4-8 09:15

xdcad 发表于 2020-4-8 08:50
您好，您这个类换个图片好像就不行了
我换了华为P10 p30pro的照片就读不出来，但是例子里的TESt就可以
...

可以上传图片测试下

xdcad · 发表于 2020-4-8 09:41

谢谢，测试下、

xdcad · 发表于 2020-4-8 09:45

为啥附件上去GPS没了

fxl447098457 · 发表于 2020-4-8 10:24

xdcad 发表于 2020-4-8 09:45
为啥附件上去GPS没了

应该是为了防止用户泄露一些地理位置信息,做了处理

xdcad · 发表于 2020-4-8 10:55

本帖最后由 xdcad 于 2020-4-8 11:04 编辑

压缩文件图片看看，为啥有的能读取Gps有的不行，这几张是不能读取或者读取错误的

		自动登录	找回密码
密码			免费注册

[分享] 读取照片地理位置的模块

评分

评分