【魍生技】快速統計文件名

[復制鏈接]

魍者歸來

電梯直達

1^#

發表于 2020-5-5 15:03:33 | 只看該作者 |只看大圖 |倒序瀏覽 |閱讀模式

有時候我們統計當前文件夾內某種文件的文件名，少的時候當然手打就ok，面對幾百張圖紙的時候這并不是個理智的方法。

所以這個時候就可以祭出【批處理】了：

1、新建一個.txt文件。
2、打開，輸入以下紅字內容（這里以統計.PDF文件為例）：
DIR *.pdf /B >LIST.TXT

3、保存文件，將.txt后綴改為.bat。
4、雙擊運行，會在當前文件夾生成一個LIST.TXT文件，打開可以看到里面的內容就是當前文件夾下全部PDF文件清單。

特別的說明：

上述紅色字體的部分可以直接復制黏貼，所有字符（包括空格）均為英文半角。
.pdf可以替換成自己需要的后綴名，比如統計圖紙的時候可以改成.dwg等。
LIST.TXT是用來存儲清單的文本文檔，其中LIST可以替換成自己習慣的名字，但不要用中文，會出現亂碼。
保存好的.bat文件復制到任何有權限的文件夾都可以使用。（注意：不會統計子文件夾中的文件）
- Y3 y1 U5 \2 g8 F2 Z

分享到: QQ好友和群 QQ空間

收藏6 轉播分享 淘帖0 問題專業，描述清楚0 伸手黨/灌水/看不懂0

回復

使用道具舉報

shaokuang

2^#

發表于 2020-5-5 16:10:43 | 只看該作者

轉帖
批量獲取文件名
這里分享工具下載鏈接：

http://pan.baidu.com/s/1o8u6aiY

功能：批量獲取同一個文件夾內的文件名，并根據文件名統計分支機構的文檔報送情況。

使用方式：將表格文件放入存放需要統計各種文件的文件夾內，打開EXCEL表格，選擇需要統計的文件類型，點擊按鈕運行宏即可。

注意事項：最好在收集保存文件時，按照報送機構關鍵字重命名文件（可以通過VBA代碼在OUTLOOK中自動存儲郵件的附件并重命名，這個以后再和大家分享）。

授人以魚不如授人以漁，這里直接上代碼：

Private Sub 提取文件名()

Dim FileName As String

Dim i As Long

Dim tmp As String

mypath = ActiveWorkbook.Path

FileName = Dir(mypath & "\*.*")'如果是僅需要統計特定類型的文件如EXCEL,將*.*改為*.xlsx即可,以此類推

i = 0

Range("N:N").ClearContents

Do While FileName > ""

i = i + 1

Range("N" & i) = FileName

FileName = Dir

Loop

End Sub