vba读取照片拍摄时间

要读取照片的拍摄时间，您需要使用VBA中的FileSystemObject和WIA（Windows Image Acquisition）对象。

以下是一个示例代码，可以读取指定文件夹中所有JPG格式图片的拍摄时间：

Sub ReadPhotoTakenTime()
    Dim fso As Object
    Dim folder As Object
    Dim file As Object
    Dim wia As Object
    Dim img As Object
    
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set folder = fso.GetFolder("C:\YourFolder") '替换为您的文件夹路径
    
    Set wia = CreateObject("WIA.CommonDialog")
    
    For Each file In folder.Files
        If LCase(Right(file.Name, 3)) = "jpg" Then '仅处理JPG格式图片
            Set img = wia.ShowAcquireImage(file.Path)
            Debug.Print file.Name & " taken at " & img.Properties("item 306").Value ' item 306 是拍摄时间的属性
            Set img = Nothing
        End If
    Next
    
    Set wia = Nothing
    Set file = Nothing
    Set folder = Nothing
    Set fso = Nothing
End Sub

请注意，此代码需要您将文件夹路径更改为您要读取的文件夹路径。此外，它使用WIA对象来打开每个图像并读取其拍摄时间。