提取文件修改日期写入EXCEL文件里

抛砖引玉，练习而已

准备工作：

1 要查询的文件与用来查询的文件在同一文件夹下

2 要查询的文件格式为 xls

3 打开用来查询文件，右击工作表标签，查看代码，插入模块，把下列代码贴上：

－－－－－－－－－－－－

Private Function GetDT(mCell As Range) As String

Dim FPath$

FPath = ThisWorkbookPath & "\" & mCellValue & "xls"

GetDT = FileDateTime(FPath)

End Function

－－－－－－－－－－－－

4 在A2输入你要查询的文件名（不包括扩展名）

5 在B2输入 =getdt(a2) ,显示时间

6 A2下面有数据时可从B2向下填充公式

#PS

路径、扩展名请参照你的实际更改

代码如下：

可以用按钮指定宏，也可以利用工作簿的open事件程序激活过程

Sub test()

        Dim Mypath$

        Dim WB As Workbook

        Dim sht As Worksheet

        Set sht = ThisWorkbookWorksheets("Sheet2")

        Mypath = "D:\Data\" & Format(Date, "yyyymmdd") & "\Axlsx"

                If Dir(Mypath) <> "" Then

                        Set WB = WorkbooksOpen(Mypath)

                        WBWorksheets("Sheet1")UsedRangeCopy shtRange("a1")

                        WBClose False

                End If

End Sub

以上就是关于提取文件修改日期写入EXCEL文件里全部的内容，包括:提取文件修改日期写入EXCEL文件里、如何利用VBA自动读取按日期变动的路径文件、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！