如何利用vba代码提取文件修改日期

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

一看就知道，如下：

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

Private Sub Worksheet_Change(ByVal Target As Range)

    If TargetColumn = 1 Then

        If Target = "" Then TargetOffset(0, 1) = "" Else TargetOffset(0, 1) = Now

    End If

End Sub

Sub 提取日期()

Dim temp

Dim str As String

Dim d As Date

str = "l4-122344/201238"

temp = Split(str, "/")(1)

d = DateSerial(Split(temp, "")(0), Split(temp, "")(1), Split(temp, "")(2))

End Sub

以上就是关于如何利用vba代码提取文件修改日期全部的内容，包括:如何利用vba代码提取文件修改日期、EXCEL如何用VBA获取日期并且保持不变、VBA excel 提取字符串中的日期等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！