将文件属性粘贴到Excel中

我有一些JPEG图像文件（大约8,000！），我想将属性复制到Excel中 – 文件的名称和具体照片拍摄的时间。

如果有一个简单快捷的方法将这些信息复制到单独的单元格中，而不是单独input，我很乐意。 该页面的格式很简单 – 三列date，时间和名称。

我不是程序员，所以最简单的解决scheme（如果有的话）和语言将是最有帮助的！

干杯

Answer 1

为什么我通常不会回答一个我觉得很有意思的无代码问题。

在Windows 7上，我可以使用下面的Shell获取DateTaken 。 我从以前的经验知道（请参阅获取vba中的子​​目录 ）的Detailsof可以根据操作系统而有所不同。

请更新以下代码以指向您的目录（当前为c：\ temp ）

这对我CHR63 ，但是在我还没有设法清理的date字段中留下额外的字符（ ?或CHR63 ）

 Sub JPG_Details() Dim objShell As Object Dim objFolder As Object Dim objFolderItem As Object Dim lngCnt As Long 'If StrDir is dimensioned as a string, ParseName fails. Weird but true Dim strDir Dim strFile As String Dim X(1 To 10000, 1 To 3) Set objShell = CreateObject("shell.application") strDir = "C:\temp\" Set objFolder = objShell.Namespace(strDir) strFile = Dir(strDir & "*.jpg") Do While Len(strFile) > 0 lngCnt = lngCnt + 1 Set objFolderItem = objFolder.ParseName(strFile) X(lngCnt, 1) = strFile X(lngCnt, 2) = Split(objFolder.GetDetailsOf(objFolderItem, 12), " ")(0) X(lngCnt, 3) = Split(objFolder.GetDetailsOf(objFolderItem, 12), " ")(1) strFile = Dir Loop [a1].Resize(UBound(X, 1), UBound(X, 2)).Value2 = X End Sub