久久久国产一区二区_国产精品av电影_日韩精品中文字幕一区二区三区_精品一区二区三区免费毛片爱

 找回密碼
 注冊會員

QQ登錄

只需一步,快速開始

搜索
查看: 8751|回復: 10

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

[復制鏈接]
1#
發(fā)表于 2020-5-5 15:03:33 | 只看該作者 |只看大圖 |倒序瀏覽 |閱讀模式
有時候我們統(tǒng)計當前文件夾內某種文件的文件名,少的時候當然手打就ok,面對幾百張圖紙的時候這并不是個理智的方法。6 B2 E6 Z8 E4 e' Q8 T+ r) C6 E
. A! @( W& y9 n
所以這個時候就可以祭出【批處理】了:$ k: T# R& V1 X$ G
$ _$ e: f3 S! [% \, D
1、新建一個.txt文件。
' }6 U9 b3 \# U$ d( O2、打開,輸入以下紅字內容(這里以統(tǒng)計.PDF文件為例):, a) Y( _6 L/ ?4 z( e" M7 e" S
DIR  *.pdf /B  >LIST.TXT" i( R4 m7 y' Q% {2 @8 n! a
2 G# R# ], n1 o6 y* N, f8 I
3、保存文件,將.txt后綴改為.bat。) ?4 O* j- I8 Q$ T6 h4 Y
4、雙擊運行,會在當前文件夾生成一個LIST.TXT文件,打開可以看到里面的內容就是當前文件夾下全部PDF文件清單。
2 `* |3 K# i- l1 S8 v- o1 G; K
1 u. @& l/ d; A5 |# J6 _特別的說明:7 P9 `0 A1 t& T
  • 上述紅色字體的部分可以直接復制黏貼,所有字符(包括空格)均為英文半角
  • .pdf可以替換成自己需要的后綴名,比如統(tǒng)計圖紙的時候可以改成.dwg等。
  • LIST.TXT是用來存儲清單的文本文檔,其中LIST可以替換成自己習慣的名字,但不要用中文,會出現(xiàn)亂碼。
  • 保存好的.bat文件復制到任何有權限的文件夾都可以使用。(注意:不會統(tǒng)計子文件夾中的文件)
    $ ?/ ?; i3 z: c8 g) U4 l2 M
1 M# v6 C) V. N1 ~+ k
8 @/ ?, f& t: f# k
回復

使用道具 舉報

2#
發(fā)表于 2020-5-5 16:10:43 | 只看該作者
轉帖  l4 ~. S8 b! Y6 z1 U5 t$ B5 |* ?
批量獲取文件名
8 d% S$ T) y: J4 \. r6 g這里分享工具下載鏈接:
% E; ^7 W, r+ j5 n2 w1 t/ y# Z% Q7 K& A1 V( [( t& U
http://pan.baidu.com/s/1o8u6aiY
8 E/ X5 B( J+ J" z
; E6 r- J7 c, }! `' ]2 [功能:批量獲取同一個文件夾內的文件名,并根據文件名統(tǒng)計分支機構的文檔報送情況。7 k& T4 g, J9 ?3 M- ^

2 N7 n! W  H! ~* O使用方式:將表格文件放入存放需要統(tǒng)計各種文件的文件夾內,打開EXCEL表格,選擇需要統(tǒng)計的文件類型,點擊按鈕運行宏即可。% J0 c# a9 O8 ~5 b- B" r  h
4 I! i3 F: I, Y1 }7 q7 V
注意事項:最好在收集保存文件時,按照報送機構關鍵字重命名文件(可以通過VBA代碼在OUTLOOK中自動存儲郵件的附件并重命名,這個以后再和大家分享)。
  p: k7 k  Z7 m0 P
/ `' G9 |+ O7 T4 \% T) n( {9 Q授人以魚不如授人以漁,這里直接上代碼:/ b5 S6 F6 c% a

" q1 n% l# q3 l! h' E/ N, aPrivate Sub 提取文件名(). i- C$ f1 `3 K* H) S7 \) l% |$ n0 W
, v7 G0 l8 g/ g& S. t+ O
Dim FileName As String# s+ p, c% M) {9 i$ J. k4 y0 s
7 y) r. |5 n0 ~$ q% l
Dim i As Long
1 v' O, t) }! N; Q6 o* p  n; j
, R4 G4 q* A# X" F& a' ?7 X( C! ~: LDim tmp As String
8 E' z& c, m7 O
! ~6 R: Y  X* E- m' R. zmypath = ActiveWorkbook.Path' I/ V4 ?$ o) m: _

6 g! t4 S- m) g2 r7 M; k8 UFileName = Dir(mypath & "\*.*")'如果是僅需要統(tǒng)計特定類型的文件如EXCEL,將*.*改為*.xlsx即可,以此類推4 v- M* x+ A" D  |: k' J) C

  H" L- R. h# q  z: ^) Zi = 08 A, X; k* b, t" [+ _7 F& S/ k
. ^2 _+ I& c  j1 f" H7 u
Range("N:N").ClearContents
9 q8 o7 N4 |+ W9 D% a. H. {* E% \* \# X$ g$ p  _
Do While FileName > ""
+ M, a: q) L1 P! \3 W$ ~1 k6 T6 Z) U  Z* m8 S( F6 h
i = i + 1) `* d1 q! m$ O% B, [4 ~
& Z; G' H8 _7 O9 z$ E9 E
Range("N" & i) = FileName1 I" i3 G8 @! ~: ^6 O
* d1 e* W/ w9 l+ u: B7 u# u4 G9 d
FileName = Dir
  F8 ~- V1 N, E/ ]2 I" `; ~9 v. N' y+ A6 A4 c9 d/ K6 \! n( X) a
Loop7 U3 P8 G3 @% ?7 }
- ~, F6 H( K7 b8 o/ D( m' y
End Sub

自動獲取文件夾內全部文件的文件名.rar

17.06 KB, 下載次數: 4, 下載積分: 威望 -3 點

評分

參與人數 2威望 +2 收起 理由
閑人南居 + 1 熱心助人,專業(yè)精湛!
大白小白 + 1 熱心助人,專業(yè)精湛!

查看全部評分

3#
發(fā)表于 2020-5-5 18:20:06 | 只看該作者
收藏了,感謝分享。
4#
發(fā)表于 2020-5-5 23:04:26 | 只看該作者
“/B”代表的含義是什么?
5#
發(fā)表于 2020-5-6 14:13:20 | 只看該作者
這是個好主意!
6#
 樓主| 發(fā)表于 2020-5-6 15:09:26 | 只看該作者
曉昀 發(fā)表于 2020-5-5 23:04
; Q. q1 @( f4 ]# \  K4 b$ n( Y“/B”代表的含義是什么?
, ?5 n4 O) \3 g7 \/ S/ O0 |8 ]1 X

$ @# O7 H8 c. m( D上圖是命令行中的提示信息,/B相當于輸出簡化的格式(也就是文件名或文件夾名)& E: w- T3 l, V3 o* K. M' v
2 J, V5 ?& f8 M9 i( v

( _; {' X& l1 `+ n' M5 z1 R5 K上圖是兩個命令的對比:①用了dir /b,輸出的是所在文件夾包含的子文件夾名和文件名;②用了dir,輸出的是驅動器和文件(夾)的信息。  a5 T0 J: Q3 F3 ?) x
7#
發(fā)表于 2020-5-7 08:59:27 | 只看該作者
收藏了,謝謝!
8#
發(fā)表于 2020-6-11 13:07:55 | 只看該作者
分享
回復

使用道具 舉報

9#
發(fā)表于 2021-8-15 10:01:45 | 只看該作者
怎么批量在文件名中漢字前后加上括號?
10#
 樓主| 發(fā)表于 2021-8-15 10:17:12 | 只看該作者
妖洞兩拐 發(fā)表于 2021-8-15 10:01
- l1 h  B& L: _$ |怎么批量在文件名中漢字前后加上括號?

: }5 e3 j& u" W# p2 e這個需求很古怪,一般都是要去括號的。可以拿excel中的替換功能當橋梁,批量修改文件名。或者有閑暇時間的,可以直接摞代碼搞定。
) \) D6 g# q3 p: |2 v; O& p
您需要登錄后才可以回帖 登錄 | 注冊會員

本版積分規(guī)則

Archiver|手機版|小黑屋|機械社區(qū) ( 京ICP備10217105號-1,京ICP證050210號,浙公網安備33038202004372號 )

GMT+8, 2025-8-25 09:26 , Processed in 0.093428 second(s), 20 queries , Gzip On.

Powered by Discuz! X3.5 Licensed

© 2001-2025 Discuz! Team.

快速回復 返回頂部 返回列表