小编RRR*_*RRR的帖子

如何使用 VBA 从 Excel 工作表中的形状图片中获取诸如纬度、经度等 EXIF 信息？并且可以在不从工作表或压缩的Excel工作簿中提取或复制图片的情况下获得吗？

我可以使用以下代码遍历压缩文件夹内容。

Public Sub ReadZip()
    Dim vZipFileName As Variant
    vZipFileName = "C:\Users\erogrou\Desktop\Test.zip"

    Dim objShell, objFolder
    Set objShell = CreateObject("shell.application")
    Set objFolder = objShell.Namespace(vZipFileName)

    Dim vFilename As Variant

    If (Not objFolder Is Nothing) Then
        Debug.Print objFolder.self.Path

        For Each vFilename In objFolder.items
            Debug.Print vFilename
        Next

    End If

    Set objFolder = Nothing
    Set objShell = Nothing

End Sub