Excel VBA提取图片GPS信息报错Error 424：Object Required求助

错误核心原因 #

问题出在文件夹对象的初始化逻辑：你直接将单元格中的字符串路径赋值给SourceFolder对象变量，但Set语句要求右侧必须是合法的对象实例，而非纯字符串。正确做法是通过FileSystemObject的GetFolder方法，把字符串路径转换成合法的Folder对象。

此外代码还存在几个潜在问题：

• RowCounter未初始化，可能导致数据写入起始行异常
• 直接访问GPS属性时，无地理标签的图片会触发新错误
• 用FileItem.Type判断图片的方式不够可靠

修正后的完整代码 #

Sub ExtractPhotoData()
    'Declare variables
    Dim FSO As Object
    Dim SourceFolder As Object
    Dim FileItem As Object
    Dim Image As Object
    Dim RowCounter As Integer
    Dim folderPath As String
    
    '初始化行计数器，从第1行开始写入数据
    RowCounter = 1
    
    'Set up the file system object and source folder
    Set FSO = CreateObject("Scripting.FileSystemObject")
    folderPath = Worksheets("Sheet2").Cells(2, 9).Value
    
    '验证指定路径是否存在
    If Not FSO.FolderExists(folderPath) Then
        MsgBox "指定的文件夹路径不存在！", vbExclamation
        Exit Sub
    End If
    
    '通过FSO获取合法的Folder对象，解决Error 424核心问题
    Set SourceFolder = FSO.GetFolder(folderPath)
    
    'Loop through each file in the source folder
    For Each FileItem In SourceFolder.Files
        '通过扩展名判断图片文件，比FileItem.Type更稳定
        Select Case LCase(FSO.GetExtensionName(FileItem.Path))
            Case "jpg", "jpeg", "png", "bmp", "tiff"
                'Load the image
                Set Image = CreateObject("WIA.ImageFile")
                On Error Resume Next '捕获无GPS标签的异常情况
                Image.LoadFile FileItem.Path
                
                'Extract the longitude, latitude, and altitude data
                Dim Longitude As Variant
                Dim Latitude As Variant
                Dim Altitude As Variant
                Longitude = Image.Properties("GPS Longitude").Value
                Latitude = Image.Properties("GPS Latitude").Value
                Altitude = Image.Properties("GPS Altitude").Value
                On Error GoTo 0 '恢复默认错误捕获机制
                
                'Paste the data into the worksheet
                Cells(RowCounter, 1).Value = FileItem.Name
                Cells(RowCounter, 2).Value = IIf(IsEmpty(Longitude), "无数据", Longitude)
                Cells(RowCounter, 3).Value = IIf(IsEmpty(Latitude), "无数据", Latitude)
                Cells(RowCounter, 4).Value = IIf(IsEmpty(Altitude), "无数据", Altitude)
                
                RowCounter = RowCounter + 1
        End Select
    Next FileItem
    
    MsgBox "数据提取完成，共处理" & RowCounter - 1 & "张图片", vbInformation
End Sub

关键修复点说明 #

• 文件夹对象初始化：使用FSO.GetFolder(folderPath)将字符串路径转换为合法的Folder对象，直接解决Error 424问题
• 路径有效性验证：添加FolderExists检查，避免因路径错误导致后续异常
• 图片判断优化：通过扩展名识别图片类型，比依赖系统文件描述的FileItem.Type更可靠
• 异常处理：加入临时错误捕获，处理无GPS标签的图片，避免程序崩溃
• 计数器初始化：明确RowCounter = 1，确保数据从工作表第一行开始写入

内容的提问来源于stack exchange，提问作者Squooshy