如何將資料夾裡的所有文件檔名匯到EXCEL

之前有人問過,
網站是

http://okonlineshop.com
你直接上去找找，希望可以幫到你啦。

　

看得懂樓上 ＂Harmonica 大師＂的意見？

知到怎麼在 "命令提示字元" 移到WORD檔的資料夾中？

不知道的話！
先開檔案總管點開你的WORD檔的資料夾，
在上方功能列之上有一可以看到
＂WORD檔的資料夾＂的路徑：
如　電腦＞本機磁碟.....（D:\DCIM\100MSDCF\手機相片_1_2008）
將滑鼠指標移到那點它，會變成反白（如：D:\DCIM\100MSDCF\手機相片_1_2008）

把它複製貼到補充中，再教怎麼操作！

2015-07-05 20:17:52 補充：
修改：
如　電腦＞本機磁碟.....（D:\DCIM\100MSDCF\手機相片_1_2008
）
將滑鼠指標移到那點它，會變成反白（如：D:\DCIM\100MSDCF\手機相片_1_2008
）

2015-07-05 20:19:42 補充：
再修改：
如　電腦＞本機磁碟.....（D:＼DCIM＼100MSDCF＼手機相片_1_2008
）
將滑鼠指標移到那點它，會變成反白（如：D:＼DCIM＼100MSDCF＼手機相片_1_2008）

2015-07-07 16:56:38 補充：
按左下角：開始＞點選　筆記本＞輸入：

dir C:＼Users\user＼Desktop＼台北行＼Chart NO＼*.doc > C:＼Users\user＼Desktop＼台北行＼Chart NO＼doc.xls

將上面輸入＞按筆記本檔案另存新檔為一個執行檔案＂doc.bat＂存到＂桌面＂

在桌面上連點二下＂doc.bat＂執行，

開xls檔案＞點　檔案＞點　開啟舊檔＞
找到C:＼Users\user＼Desktop＼台北行＼Chart NO＼doc.xls　點它＞
點　選＂分隔符號＂＞點　下一步＞加勾選　＂空格＂＞點下一步＞點完成

2015-07-07 16:56:46 補充：
再刪除前面及最後面的行列，即可以利用資料的排序及篩選來作檔案名稱的排序。

記得上面輸入的資料中的反＂＼＂是要用半形的字形（因在這回答區中＂不接受半形的字形的反＂＼＂＂）！！

2015-07-08 18:49:22 補充：
補充：

按照日期時間排序：
dir /od C:\Users\user\Desktop\台北行\Chart NO \*.doc > C:\Users\user\Desktop\台北行\Chart NO \doc_d.xls

2015-07-08 18:49:56 補充：
補充：

按照日期時間　反順序排序：
dir /o-d C:\Users\user\Desktop\台北行\Chart NO \*.doc > C:\Users\user\Desktop\台北行\Chart NO \doc_-d.xls

2015-07-08 18:50:47 補充：
補充：

按照檔案小～大排序：
dir /os C:\Users\user\Desktop\台北行\Chart NO \*.doc > C:\Users\user\Desktop\台北行\Chart NO \doc_s.xls

2015-07-08 18:51:45 補充：
補充：

按照檔案大～小排序：
dir /o-s C:\Users\user\Desktop\台北行\Chart NO \*.doc > C:\Users\user\Desktop\台北行\Chart NO \doc_-s.xls

2015-07-08 18:52:29 補充：
補充：

按照檔案名稱排序：
dir /on C:\Users\user\Desktop\台北行\Chart NO \*.doc > C:\Users\user\Desktop\台北行\Chart NO \doc_n.xls

2015-07-08 18:52:57 補充：
補充：

按照檔案名稱　反順序排序：
dir /o-n C:\Users\user\Desktop\台北行\Chart NO \*.doc > C:\Users\user\Desktop\台北行\Chart NO \doc_-n.xls

2015-07-08 18:55:12 補充：
補充中的反＂＼＂線，請自行加上。

批次檔
dir > list.csv

放到資料夾中
點兩下執行
會產生一個 list.csv 檔
點兩下開啟整理

2015-07-04 21:42:43 補充：
如果只要檔名可用
dir /w > list.csv

如果只要 WORD 檔可用
dir *.doc? /w > list.csv

Sub 顯示某一資料夾下的所有檔案_1()
path1 = ThisWorkbook.Path & "\"
file1 = Dir(path1): r = 1
Do While file1 <> ""
ActiveSheet.Cells(r, 1) = file1
file1 = Dir
r = r + 1
Loop

2015-07-04 13:47:09 補充：
For i = Range("A65536").End(xlUp).Row To 1 Step -1
If InStr(Cells(i, 1), "doc") = 0 Then Cells(i, 1).EntireRow.Delete
Next
For i = 1 To Range("A65536").End(xlUp).Row
Range(Cells(1, 1), Cells(i, 1)).Select

2015-07-04 13:47:32 補充：
Selection.Sort Key1:=Range("a" & 1), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Next i
End Sub
組合起來試試

放在同目錄下
Sub test()
DirPath = ThisWorkbook.Path
WN = Dir(DirPath & "\*.docx")
k = 1
Do Until WN = ""
r = r + 1
Cells(k, 1) = WN
k = k + 1
WN = Dir
Loop
End Sub