操作系統：Windows10

軟件版本：Office2019

1．打開一個空的Excel表格，Alt+F11，雙擊Sheet1進入代碼編輯，輸入代碼如下：

Sub main()ff = Dir("D:\Slice\*.*") '遍歷D盤根目錄下Slice文件夾Do While ff <> "" '如果存在文件k = k + 1 '依次遞增存儲文件和時間Cells(k, 1) = ff '第一列存文件名Set fs = CreateObject("Scripting.FileSystemObject")Set f = fs.GetFile("D:\Slice\" & ff)Cells(k, 2) = f.DateLastModified '第二列存文件創建時間'f.DateCreated '文件修改時間ff = DirLoop
End Sub

代碼解釋：
Dir()：文件所在文件夾的路徑，*.*代表所有名字所有后綴的文件，也可以為.jpg之類的指定后綴文件，那么其余后綴的文件將不會被導出。

<>：≠，相當于判定ff是否為空

CreateObject(“Scripting.FileSystemObject”)：應該是內置函數調用

.Getfile()：加入文件所在文件夾路徑

.DateLastModified、.DateCreated：文件創建時間和修改時間，一般選文件創建時間

2．F5運行程序

總結

以上是生活随笔為你收集整理的将文件名和文件修改时间批量输出至Excel中的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。