[已解决]取得文件的时间

张雄友

如何用VBA：

第一，取得EXCEL文件的创建时间。

第二，取得EXCEL文件最后一次修改的时间。

最佳答案

月排行榜 / 总排行榜

zjdh

2013-9-24 07:51

Sub 文件参数()
    文件 = Application.GetOpenFilename(FileFilter:="Excel档(*.xls),*.xls", Title:="请选取文件")
    If 文件 = False Then Exit Sub
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFile(文件)
    文件大小 = Int(FileLen(文件) / 1024) & " kb"
    文件大小 = Int(f.Size / 1024) & " kb"
    文件类型 = VBA.Right(f.Name, 3)  ‘扩展名
   创建日期 = f.DateCreated
    修改日期 = Format(f.DateLastModified, "yyyymmdd")
End Sub

跳转到最佳答案楼层

zjdh

Sub 文件参数()
    文件 = ThisWorkbook.Path & "\b.xls"
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFile(文件)
    文件大小 = Int(FileLen(文件) / 1024) & " kb"
    文件大小 = Int(f.Size / 1024) & " kb"
    文件类型 = VBA.Right(f.Name, 3)  ‘扩展名
    创建日期 = f.DateCreated
    修改日期 = Format(f.DateLastModified, "yyyymmdd")
End Sub

ppp710715

取得文件最后修改时间可用函数FileDateTime，如：
Sub Test11()
    Dim myFile As String
    myFile = ThisWorkbook.FullName   
    MsgBox "该文件最后修改时间：" & FileDateTime(myFile)
End Sub

张雄友

zjdh 发表于 2013-9-23 21:17
Sub 文件参数()
    文件 = ThisWorkbook.Path & "\b.xls"
    Set fs = CreateObject("Scripting.FileSy ...

文件 = ThisWorkbook.Path & "\b.xls"

打开文件能不能用对话框的形式，可以选择文件打开？

zjdh

Sub 文件参数()
    文件 = Application.GetOpenFilename(FileFilter:="Excel档(*.xls),*.xls", Title:="请选取文件")
    If 文件 = False Then Exit Sub
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFile(文件)
    文件大小 = Int(FileLen(文件) / 1024) & " kb"
    文件大小 = Int(f.Size / 1024) & " kb"
    文件类型 = VBA.Right(f.Name, 3)  ‘扩展名
   创建日期 = f.DateCreated
    修改日期 = Format(f.DateLastModified, "yyyymmdd")
End Sub