Excel VBA打开文件夹并获取其中每个文件的GPS信息(Exif) (2)

Sub GetGPSInfoFromFolder()
    Dim fso As Object
    Dim folder As Object
    Dim file As Object
    Dim exif As Object
    Dim filePath As String
    Dim gpsInfo As String
    
    ' 设置文件夹路径
    filePath = "C:\YourFolderPath"
    
    ' 创建FileSystemObject对象
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set folder = fso.GetFolder(filePath)
    
    ' 遍历文件夹中的每个文件
    For Each file In folder.Files
        ' 获取文件的Exif信息
        Set exif = CreateObject("ExifReader.ExifReader")
        exif.Load file.Path
        
        ' 获取GPS信息
        gpsInfo = exif.GPSLatitude & "," & exif.GPSLongitude
        
        ' 在Excel中输出GPS信息
        Worksheets("Sheet1").Cells(file.Index, 1).Value = file.Name
        Worksheets("Sheet1").Cells(file.Index, 2).Value = gpsInfo
        
        ' 释放对象
        Set exif = Nothing
    Next file
    
    ' 释放对象
    Set folder = Nothing
    Set fso = Nothing
End Sub