tft每日頭條

 > 科技

 > excel提取文件名生成目錄

excel提取文件名生成目錄

科技 更新时间:2024-12-17 14:30:46

作者:祝洪忠 轉自:EXCEL之家ExcelHome

小夥伴們好啊,今天和大家分享一個高效好玩的技巧。

如下圖所示,在“測試”文件夾内,包含有兩個Word文件和子文件夾“測試2”,在“測試2”文件夾内有Excel文檔和另外一個子文件夾。

咱們看看如何快速獲取文件夾内的所有文件名。

excel提取文件名生成目錄(EXCEL快速提取文件夾内的文件名)1

接下來咱們以Excel 2016為例,說說具體的操作方法:

1、依次單擊【數據】→【獲取數據】→【自文件】→【自文件夾】

2、點擊【浏覽】按鈕,找到文件夾位置。

3、在數據查詢編輯器中,右鍵單擊Name字段,删除其他列。

4、最後單擊【關閉并上載】。

excel提取文件名生成目錄(EXCEL快速提取文件夾内的文件名)2

使用此方法,可以快速提取出包含子文件夾在内的所有文件列表,如果在文件夾中增加了子文件夾或是新增了文件,隻要在彙總表中單擊右鍵→刷新。就可以可獲取最新的文件名列表。

如果是低版本的Excel,還可以使用VBA代碼的方法來提取:

Sub FileDir() Dim p$, f$, k& '獲取用戶選擇文件夾的路徑 With Application.FileDialog(msoFileDialogFolderPicker) '選擇文件夾 If .Show Then p = .SelectedItems(1) '選擇的文件路徑賦值變量P Else Exit Sub '如果沒有選擇保存路徑,則退出程序 End If End With If Right(p, 1) <> "\" Then p = p & "\" f = Dir(p & "*.*") '返回變量P指定路徑下帶任意擴展名的文件名 '如果有超過一個文件存在,将返回第一個找到的文件名 '如果一個文件都沒有,則返回空 [a:a].ClearContents '清空A列數據 [a1] = "目錄" k = 1 Do While f <> "" '如果文件名不為空,則…… k = k 1 '累加文件個數 Cells(k, 1) = f f = Dir '第二次調用Dir函數,但不帶任何參數,則将返回同一目錄下的下一個文件。 Loop MsgBox "OK" End Sub

excel提取文件名生成目錄(EXCEL快速提取文件夾内的文件名)3

好了,今天的内容就是這些吧,祝各位小夥伴一天好心情!

圖文制作:老祝

星光

,

更多精彩资讯请关注tft每日頭條,我们将持续为您更新最新资讯!

查看全部

相关科技资讯推荐

热门科技资讯推荐

网友关注

Copyright 2023-2024 - www.tftnews.com All Rights Reserved