【魍生技】快速統(tǒng)計文件名

魍者歸來

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

+ J/ i9 d0 C; M& W: j5 L2 T* x( p所以這個時候就可以祭出【批處理】了：

( M! T, w, [! S* j# @/ q1、新建一個.txt文件。
! f2 S4 Y" U  _2、打開，輸入以下紅字內(nèi)容（這里以統(tǒng)計.PDF文件為例）：
* k5 q8 T6 G" l" j( P" `  A/ ]DIR  *.pdf /B  >LIST.TXT

3、保存文件，將.txt后綴改為.bat。
% Z7 [% ?, ^: n; p9 g/ A$ j, H( h* r4、雙擊運行，會在當前文件夾生成一個LIST.TXT文件，打開可以看到里面的內(nèi)容就是當前文件夾下全部PDF文件清單。
) Q' N) K8 k1 ^$ w
! @* ?/ B: E- v$ M; n特別的說明：
6 f/ l/ Y: z, I

• 上述紅色字體的部分可以直接復(fù)制黏貼，所有字符（包括空格）均為英文半角。
• .pdf可以替換成自己需要的后綴名，比如統(tǒng)計圖紙的時候可以改成.dwg等。
• LIST.TXT是用來存儲清單的文本文檔，其中LIST可以替換成自己習(xí)慣的名字，但不要用中文，會出現(xiàn)亂碼。
• 保存好的.bat文件復(fù)制到任何有權(quán)限的文件夾都可以使用。（注意：不會統(tǒng)計子文件夾中的文件）
  

  D  e6 R6 Q+ r( n3 y  ~, S

shaokuang

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

http://pan.baidu.com/s/1o8u6aiY
1 |  v3 K  ^( e. p
( S5 ]) Q# H  s/ e1 e$ w2 D功能：批量獲取同一個文件夾內(nèi)的文件名，并根據(jù)文件名統(tǒng)計分支機構(gòu)的文檔報送情況。
' J. ^5 }, [% D% P: K8 p
使用方式：將表格文件放入存放需要統(tǒng)計各種文件的文件夾內(nèi)，打開EXCEL表格，選擇需要統(tǒng)計的文件類型，點擊按鈕運行宏即可。

& W  B0 |  b2 b: P7 {1 m注意事項：最好在收集保存文件時，按照報送機構(gòu)關(guān)鍵字重命名文件（可以通過VBA代碼在OUTLOOK中自動存儲郵件的附件并重命名，這個以后再和大家分享）。
+ L2 ]' W" W( \) z
7 {0 v: r' g4 I; x# r授人以魚不如授人以漁，這里直接上代碼：

$ ^( ]( H9 V% Y% t: DPrivate Sub 提取文件名()
! j( Z- y, ?, j$ p0 h0 D- O
$ n, ^9 P6 ]! L9 zDim FileName As String

5 o5 P# p2 a- N1 n3 e; \& @Dim i As Long
* ^. R% g4 U3 u+ d7 \8 L
  X; D& k: K" P9 g: {Dim tmp As String

4 F) E. V) r4 B- J1 A$ S" u7 A+ B6 rmypath = ActiveWorkbook.Path

FileName = Dir(mypath & "\*.*")'如果是僅需要統(tǒng)計特定類型的文件如EXCEL,將*.*改為*.xlsx即可,以此類推
& {/ M: B  m4 A2 s' Q5 V( I8 o
i = 0

Range("N:N").ClearContents

Do While FileName > ""

i = i + 1

* X$ g7 B1 p! J5 s  j; g# iRange("N" & i) = FileName
( d7 P$ z5 _2 m  Q1 H- }
FileName = Dir

( l# k- _  C8 F7 Z  G; q- J4 tLoop
7 m, J+ k0 r- b. q
End Sub

007learn

收藏了，感謝分享。

曉昀

“/B”代表的含義是什么？

遠祥

這是個好主意！

魍者歸來

曉昀 發(fā)表于 2020-5-5 23:04
3 _- _! {; f( R: e$ h9 n4 ]& s“/B”代表的含義是什么？

上圖是命令行中的提示信息，/B相當于輸出簡化的格式（也就是文件名或文件夾名）
. v0 P, ?- Q* Y2 \' T2 u

上圖是兩個命令的對比：①用了dir /b，輸出的是所在文件夾包含的子文件夾名和文件名；②用了dir，輸出的是驅(qū)動器和文件（夾）的信息。
+ X  u. E) ~2 \" C7 k

sf-1224

收藏了，謝謝！

蘇州萬坤信息

分享

妖洞兩拐

怎么批量在文件名中漢字前后加上括號？

魍者歸來

妖洞兩拐 發(fā)表于 2021-8-15 10:01
怎么批量在文件名中漢字前后加上括號？

, s/ m) L/ E3 G! ]# x4 t% I0 q這個需求很古怪，一般都是要去括號的。可以拿excel中的替換功能當橋梁，批量修改文件名。或者有閑暇時間的，可以直接摞代碼搞定。
9 m5 D2 z  ]! }* J. X8 ?