Tag: gps

转换度分到十进制度

我有一个存储在Excel表格中的Garmin设备的位置点，以度分钟格式存储— W00208.172，N1046.977如何将它转换为十进制度数或度数分钟格式？

Excel VBA打开文件夹并获取其中每个文件的GPS信息（Exif）

在另一篇文章的指导下，我发现了一个VBA的用户表单和模块，可以导入到Access数据库或Excel中，要求您select一个文件，它将显示该文件的EXIF外部信息，特别是GPS Longitude，Latitude，和高度。 我的问题是如何转换这个，所以它打开一个文件夹，并检索该文件夹中的每个文件的GPS信息。 我知道它可能需要遍历文件夹的内容，但我不知道如何转换这个。 请参阅附件，并将其作为Access DB打开。 我只能将它转移到Excel中，但是代码被写入太多额外的调用和function，我不能马上理解。 能够修改并缩短它会很好。 EXIFReader 莎拉 编辑感谢大卫，这是我的修改版本： Sub OpenFromFolder() On Error GoTo ExifError Dim strDump As String 'Dim fso As Scripting.FileSystemObject 'Dim fldr As Scripting.Folder 'Dim file As Scripting.file Set fso = CreateObject("scripting.filesystemobject") Set fldr = fso.GetFolder("C:/Users/JayP/Downloads/Camera Uploads/Pics") '#### Modify this to your folder location For Each file In fldr.Files '## […]