想要做檔案清單
例如:我的文件夾下有20個檔案
想把那20個檔案的檔名/建立日期/修改日期/作者/檔案路徑自動抓到excel裡
可以做的到嗎
2005-05-26 17:38:07 · 2 個解答 · 發問者 Anonymous in 電腦與網際網路 ➔ 軟體
補充一:
Olison 的方法- DOS 下 DIR 轉成 TXT 檔給 Excel 讀,可做到70%了,但/Q出來全變\Everyone,Excel的巨集做法呢?
2005-05-26 19:11:24 · update #1
可考慮用以下的巨集執行,該巨集會出現一個選擇檔案路徑的對話盒,選完後即會將該路徑下,所有檔案的相關資料填到 Excel 中,但 File 物件並未提供作者的屬性,故該欄無法達成你的需求Sub Macro1()'' Macro1 Macro' Customer 在 2005/5/28 錄製的巨集'' 快速鍵: Ctrl+m' 'Declare a variable as a FileDialog object. Dim fd As FileDialog Dim fs, f, s, fc, f1, folderspec 'Create a FileDialog object as a File Picker dialog box. Set fd = Application.FileDialog(msoFileDialogFolderPicker) Set fs = CreateObject("Scripting.FileSystemObject") Range("a2").Select With fd If .Show = -1 Then For Each folderspec In .SelectedItems' MsgBox folderspec Set f = fs.getfolder(folderspec) Set fc = f.Files For Each f1 In fc With ActiveCell .Value = f1.Name .Offset(0, 1).Value = f1.datecreated .Offset(0, 2).Value = f1.datelastmodified .Offset(0, 4).Value = folderspec .Offset(1, 0).Select End With Next f1 Next folderspec End If End WithEnd Sub執行結果如下
圖片參考:http://tinypic.com/5eisua
2005-05-28 11:20:29 · answer #1 · answered by ? 7 · 0⤊ 0⤋
1. 用 Excel 裡的 VBasic 來寫 Macro。2. 用 DOS 的 DIR 轉成 TXT 檔給 Excel 讀:顯示檔案清單以列出目錄中的檔案及子目錄。DIR [drive:][path][filename] [/A[[:]attributes]] [/B] [/C] [/D] [/L] [/N] [/O[[:]sortorder]] [/P] [/Q] [/S] [/T[[:]timefield]] [/W] [/X] [/4] [drive:][path][filename] 指定要顯示的磁碟機、目錄或檔案。 /A 依照指定的檔案屬性來顯示檔案。 attributes D 目錄 R 唯讀檔 H 隱藏檔 A 保存檔 S 系統檔案 - 無意義 /B 使用單純格式 (沒有標頭資訊或摘要)。 /C 顯示檔案大小千位數分隔符號。這是 預設值。 使用 /-C 來停用分隔符號的顯示。 /D 與寬的列表格式相同,但是依照欄來排序。 /L 使用小寫顯示。 /N 使用新的長列表格式,檔名會顯示在最右方。 /O 依照指定的排序順序來列出檔案。 sortorder N 依名稱 (英文字母) S 依大小 (最小的在前) E 依副檔名 (英文字母) D 依照日期與時間 (日期較早的在前) G 先列出子目錄 - 表示相反的順序 /P 當資料填滿整個螢幕時暫停顯示。 /Q 顯示檔案擁有者。 /S 顯示指定目錄及所有子目錄中的檔案。 /T 指定用來顯示或排序的時間欄位 timefield C 建立 A 上次檔案存取時間 W 上次寫入檔案時間 /W 使用寬的列表格式。 /X 顯示對非 8.3 格式的檔案產生的短檔名。 這個格式和 /N 相同,但是短檔名會插入在 長檔名之前。 如果沒有長檔名存在,該處會 顯示空白。 /4 顯示四位數的年份參數可能會在 DIRCMD 環境變數預先設定。您可以在任何參數使用連字號字首(-)來覆蓋預先的設定--例如: /-W。C:\XXX>dir /N /TC /Q /S 建立日期C:\XXX>dir /N /TW /Q /S 修改日期試試看結果是不是您要的?如果是的話,就打 dir /N /TW /Q /S >test.txt再用 Excel 來讀 test.txt,用Sapce來分欄位,距離您要的結果就不遠了~~~
2005-05-26 18:03:13 · answer #2 · answered by Aleen Chen 7 · 0⤊ 0⤋