如何在 vba 中使用 filedatetime 函数（附示例）

您可以使用 VBA 中的FileDateTime函数返回文件的创建或上次修改的日期和时间。

以下是在实践中使用此功能的常见方法：

 SubCheckLastModify ()

    Dim wb_name As String
    
    wb_name = InputBox("Please enter the workbook name:")
    
    MsgBox FileDateTime(wb_name)
    
End Sub

执行此宏时，将出现一个输入框，用户可以在其中输入 Excel 工作簿的名称。

然后，宏将生成一个消息框，其中包含特定工作簿的创建或上次修改的日期和时间。

以下示例展示了如何在实践中使用此语法。

示例：如何在 VBA 中使用 FileDateTime 函数

假设我们有一个名为My_Workbook.xlsx的 Excel 工作簿，位于以下位置：

C:\Users\bob\Documents\my_workbook.xlsx

假设我们要检查此工作簿的上次创建或修改时间。

我们可以创建以下宏来执行此操作：

 SubCheckLastModify ()

    Dim wb_name As String
    
    wb_name = InputBox("Please enter the workbook name:")
    
    MsgBox FileDateTime(wb_name)
    
End Sub

运行此宏后，将出现一个框，我可以在输入框中输入工作簿的路径：

单击“确定”后，宏将生成以下消息框：

该宏告诉我们该工作簿的最后修改时间是07/28/2023的9:27:01 。

请注意，如果您只需要文件修改日期，则可以使用DateValue函数包装FileDateTime函数，如下所示：

 SubCheckLastModify ()

    Dim wb_name As String
    
    wb_name = InputBox("Please enter the workbook name:")
    
    MsgBox DateValue(FileDateTime(wb_name))
    
End Sub

现在，当您运行宏并输入文件路径时，消息框将仅显示字段上次修改的日期，而不显示时间：

注意：您可以在此处找到 VBA 中FileDateTime函数的完整文档。

其他资源

以下教程说明如何在 VBA 中执行其他常见任务：

VBA：如何计算工作簿中的工作表数量
VBA：如何保存和关闭工作簿
VBA：检查工作簿是否打开