如何用vba提取文excel的修改时间

Sub 获取文件修改时间()

Dim Ipath, Ifile As String, Arr(), N As Integer

Ipath = "d:\pic\"

Ifile = Dir(Ipath, vbNormal)

If Ifile <> "" Then

Do

N = N + 1

ReDim Preserve Arr(1 To 2, 1 To N)

Arr(1, N) = Ipath & Ifile

Arr(2, N) = FileDateTime(Ipath & Ifile)

Ifile = Dir

Loop While Ifile <> ""

Range("A1")Resize(N, 2) = WorksheetFunctionTranspose(Arr)

End If

End Sub

Sub abc()

Dim a, b, c As String '定义变量

a = Date '当前年月日

b = Time '当前时间

c = Now '当前年月日 和 时间

MsgBox a & b & c '显示 a ，b ，c

End Sub

Sub

xxx()

MsgBox

Format(Time,

"hh:mm:ss

am/pm")

End

Sub

运行上面的例子程序，输出的结果只是多了一个你不需要的AM/PM，可以使用

LEFT函数

的获取你需要的部分。

本人之前写的帖子的一个实例

一看就知道，如下：

Sub 按钮1_Click()

    ApplicationScreenUpdating = False

    Set fso = CreateObject("ScriptingFileSystemObject")

    strfile = ApplicationInputBox("请输入文件的完整名称:", "请输入文件的完整名称:", , , , , , 2)

    Set objfile = fsoGetFile(strfile)

    If fsofileexists(strfile) Then

        sReturn = "文件属性： " & objfileAttributes & vbCrLf

        sReturn = sReturn & "文件创建日期： " & objfileDateCreated & vbCrLf

        sReturn = sReturn & "文件修改日期： " & objfileDateLastModified & vbCrLf

        sReturn = sReturn & "文件大小 " & FormatNumber(objfileSize / 1024, -1)

        sReturn = sReturn & "Kb" & vbCrLf

        sReturn = sReturn & "文件类型： " & objfileType & vbCrLf

        MsgBox sReturn

    Else

        MsgBox strfile & " :不存在"

    End If

    ApplicationScreenUpdating = True

End Sub

Sub GetFileTime()

    Dim i As Integer

    i = 1

    Set fso = CreateObject("ScriptingFileSystemObject")

    Set fs = fsogetfolder("d:\")Files

    With Sheet1

        Cells(1, 1) = "序号": Cells(1, 2) = "创建时间": Cells(1, 3) = "最后修改时间": Cells(1, 4) = "最后访问时间"

        For Each f In fs

            i = i + 1

            Cells(i, 1) = fName: Cells(i, 2) = fdatecreated: Cells(i, 3) = fDateLastModified: Cells(i, 4) = fDateLastAccessed

        Next

    End With

End Sub

以上即是VBA代码，运行后自动将D盘根目录下的文件名称和相关时间属性填写在Sheet1中，见下图效果：

以上就是关于如何用vba提取文excel的修改时间全部的内容，包括:如何用vba提取文excel的修改时间、[Excel VBA] 如何获取北京时间、尊敬的高手，Excel用vba得到当前小时——分——秒（12小时制）等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！