急！如何提取excel文件的创建内容的时间，不是创建时间？？？

DIER

通过查文件的属性，可以看到
1、创建时间，也就是这个文件在这个电脑上第一次出现的时间。
2、创建内容的时间，也就是文件的原作者创建文件的时间。

创建时间

      

创建内容的时间

我想要提取这个文件的创建时间，但是因为我的文件是从别人那里传过来的，所以用 下面的代码只能取到创建时间。
Dim fs, f As Object
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(fPath & fileName)
s = f.DateCreated

但是我需要的是创建内容的时间，应该怎么处理呢？

急急急！！

fxl447098457

Sub test()
Dim fd, f, str$
With CreateObject("shell.application")
    Set fd = .Namespace(ThisWorkbook.Path)
    Set f = fd.ParseName(ThisWorkbook.Name)
[A1] = fd.GetDetailsOf(f, 143)
End With
End Sub

DIER

已解决。
方法：
Sub 工作簿文档信息()
    Dim wb As Workbook
    Dim myProperties As DocumentProperty
    Columns("A:B").Clear
    Set wb = ThisWorkbook
    Range("A1:B1").Value = Array("信息名称", "信息数据")
    For Each myProperties In wb.BuiltinDocumentProperties
        With Range("A65536").End(xlUp).Offset(1)
            .Value = myProperties.Name
            On Error Resume Next
            .Offset(, 1).Value = myProperties.Value
            On Error GoTo 0
        End With
    Next
    Columns.AutoFit
    Set wb = Nothing
End Sub


myProperties.Name = "Creation date"时的myProperties.Value就是我想要的——创建内容的时间。

DIER

fxl447098457 发表于 2017-12-19 16:44
Sub test()
Dim fd, f, str$
With CreateObject("shell.application")

十分感谢，但是我用GetDetailsOf没有取出信息。

ning84

fxl447098457 发表于 2017-12-19 16:44
Sub test()
Dim fd, f, str$
With CreateObject("shell.application")

1. Sub test()
   
2. Dim fd, f, str$
   
3. With CreateObject("shell.application")
   
4.     Set fd = .Namespace(ThisWorkbook.Path)
   
5.     Set f = fd.ParseName(ThisWorkbook.Name)
   
6.     Sheet3.Cells(3, 1) = fd.GetDetailsOf(f, 143)
   
7. End With
   
8. End Sub
   

复制代码