回覆列表
-
1 # 未來熊貓1
-
2 # 使用者2681768447859
用一個簡單的DOS命令就可以實現了!
命令格式如下:dir [drive:][path] /b > [drive:][path]filename
應用例項1,把D盤test目錄下所有檔名導到temp.xls裡:
只要在cmd窗口裡輸入dir D:\test /b > temp.xls 這樣就在當前目錄生成一個temp.xls的EXCEL檔案,開啟來就看到D盤test目錄下的所有檔名了,並且都帶有副檔名的。
當需要導到是txt記事本,那就改成temp.txt。
如何把多個目錄下的所有檔名都匯入到temp.xls裡,把命令稍作改動就可以了。
命令格式如下:dir [drive:][path] /b >> [drive:][path]filename
應用例項2:把D盤test目錄、mp3目錄、E盤music目錄下的所有檔名存到temp.xls裡,只要在cmd窗口裡輸入
dir d:\test /b >> temp.xls
dir d:\mp3 /b >> temp.xls
dir e:\music /b >> temp.xls
這樣就在當前目錄生成一個temp.xls的EXCEL檔案,開啟來就看到以上三個目錄下的所有檔名了,並且都帶有副檔名的。
使用excel提取資料夾中的所有檔名稱的方法主要有以下兩個:1、在那個資料夾內新建一個.TXT檔案(如wenjian.txt),用記事本單開輸入dir> 1.txt儲存退出將剛才的.TXT(wenjian.txt)更名為.bat檔案(wenjian.bat)雙擊wenjian.bat檔案執行一次,在資料夾內多出一個1.txt檔案開啟1.txt檔案,將其中的內容貼上到Excel中,資料——分列處理就可以得到你要的檔名列表了!2、VBA(2003版)在那個資料夾下新建Excel檔案,開啟新建的Excel檔案,右擊工作表標籤(如Sheet1),檢視程式碼——在程式碼編輯器中輸入以下程式碼Sub Test()Dim i As IntegerDim strPath As StringstrPath = ThisWorkbook.PathWith Application.FileSearch .LookIn = strPath .SearchSubFolders = True .Filename = "*.*" If .Execute > 0 Then For i = 1 To .FoundFiles.Count Range("A" & i) = .FoundFiles(i) Next i End IfEnd WithEnd Sub回到Excel表格中,工具——宏——宏——選擇Sheet1.Test——執行方法一簡單的操作就可以,方法二需要對程式有一定的瞭解,方法二通用性比較強,需要的時候執行一下就可以,更快捷。