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

機械社區

標題: 【魍生技】快速統計文件名 [打印本頁]

作者: 魍者歸來    時間: 2020-5-5 15:03
標題: 【魍生技】快速統計文件名
有時候我們統計當前文件夾內某種文件的文件名,少的時候當然手打就ok,面對幾百張圖紙的時候這并不是個理智的方法。
! h: u% F; V/ t/ {" r; ~: H0 N" z8 H2 W, y6 @
所以這個時候就可以祭出【批處理】了:$ l" z( z' O5 N" \3 P# k6 z' R% u3 O9 {
6 `$ S5 r$ }5 I% L
1、新建一個.txt文件。
3 J/ }( Y4 e' E% P7 \; o' S% h, n6 v& P2、打開,輸入以下紅字內容(這里以統計.PDF文件為例):
% y( R1 D/ T  yDIR  *.pdf /B  >LIST.TXT% T; N, r+ N3 u8 M
9 x' q# m5 i* n; g# J
3、保存文件,將.txt后綴改為.bat。
. [( |* k; e5 V0 G2 y/ Q4、雙擊運行,會在當前文件夾生成一個LIST.TXT文件,打開可以看到里面的內容就是當前文件夾下全部PDF文件清單。  ~9 p; n, S$ I1 s  l
+ W4 D5 j6 ]" i# k; y% O- E+ T: o0 [
特別的說明:3 c/ U( p* ]$ g9 y
% t* {$ a' m& |0 d

: T& E# _' ?6 x2 e
作者: shaokuang    時間: 2020-5-5 16:10
轉帖
  F; J  H2 {- y& l批量獲取文件名2 Q6 D0 y9 u6 ]$ r$ ]
這里分享工具下載鏈接:+ \2 e4 Q8 c, A  Q( r
3 Z& Y  ~  r2 G
http://pan.baidu.com/s/1o8u6aiY! T& f' _& I" ^; b- G# ^  J( S) H
  l. D3 @8 @& [! \2 Y
功能:批量獲取同一個文件夾內的文件名,并根據文件名統計分支機構的文檔報送情況。3 U* ?+ @7 u0 M7 B! u4 Y4 R; v
6 K$ s6 g& W3 \0 b& A) {
使用方式:將表格文件放入存放需要統計各種文件的文件夾內,打開EXCEL表格,選擇需要統計的文件類型,點擊按鈕運行宏即可。
. y; _% v- F( d/ `
; `2 ?  }' r* B7 j9 I/ X& z  F注意事項:最好在收集保存文件時,按照報送機構關鍵字重命名文件(可以通過VBA代碼在OUTLOOK中自動存儲郵件的附件并重命名,這個以后再和大家分享)。
5 i& o6 K. G) B- a$ {: W- U  f2 V/ p  E) o4 p# w! f, o
授人以魚不如授人以漁,這里直接上代碼:* B' p1 P6 g' [1 m4 ]" ?# o' E

9 y. y9 \& ~+ [7 c9 ?3 WPrivate Sub 提取文件名(); y( |% t! z' e+ y9 M

$ ]6 E* A9 Q7 M1 Z: }+ Y9 Q) pDim FileName As String5 v. J. @4 p* x% e7 a+ Q
3 \$ Y* e6 U5 Y2 q8 r
Dim i As Long* ^* [' X+ r' m

" h. ?2 a$ c- m, Z8 r5 rDim tmp As String7 N& c6 x; i* E% {! Q8 u. T& s: @
# l; d" k7 ?8 u0 z: j
mypath = ActiveWorkbook.Path
( n  j4 E. @3 j9 b! s
: x) ^/ w* W; r- P2 NFileName = Dir(mypath & "\*.*")'如果是僅需要統計特定類型的文件如EXCEL,將*.*改為*.xlsx即可,以此類推
6 o& m. ]+ Q( i/ e, p* J# D) B1 Q  e9 c- v
i = 0
/ N& b! O3 O* m/ O, a) A5 H0 U# G7 q2 K9 f' D
Range("N:N").ClearContents  B- j0 F& T5 X1 u6 g5 ~( C

0 K# X+ b2 k# L' TDo While FileName > ""
$ D: ]# C6 t1 A, P' U
9 ]& e4 ^) e# |3 p( h6 ?) ~% s" J! wi = i + 1( f: l  w, z7 O

- X! z* o* A3 Y/ j% {2 {Range("N" & i) = FileName
$ k: y% c% c( d# J2 h" k
/ v; r" q8 Z' a) U  x/ q# |FileName = Dir& D- _5 a' W7 l  h

, @* N$ O1 [+ ^4 I& A7 c1 VLoop4 H& i, _7 G) M3 I: ^+ b& U
$ ?0 ?" S$ Z  G: S( B& d
End Sub
作者: 007learn    時間: 2020-5-5 18:20
收藏了,感謝分享。
作者: 曉昀    時間: 2020-5-5 23:04
“/B”代表的含義是什么?
作者: 遠祥    時間: 2020-5-6 14:13
這是個好主意!
作者: 魍者歸來    時間: 2020-5-6 15:09
曉昀 發表于 2020-5-5 23:044 d$ S( n; W1 f( Z( j
“/B”代表的含義是什么?
3 A. I( j% M9 A6 D+ L: v
(, 下載次數: 178)
% I/ J" K0 \1 a0 O上圖是命令行中的提示信息,/B相當于輸出簡化的格式(也就是文件名或文件夾名)5 ~! Y" V% @( I  Q- }; h# s

3 U5 c9 _4 V. P) m1 T4 X (, 下載次數: 184)
. ]. \2 e; y& c" D$ o! _% ]+ ~) |上圖是兩個命令的對比:①用了dir /b,輸出的是所在文件夾包含的子文件夾名和文件名;②用了dir,輸出的是驅動器和文件(夾)的信息。( @9 v% ]9 f. k1 {- u8 Z

作者: sf-1224    時間: 2020-5-7 08:59
收藏了,謝謝!
作者: 蘇州萬坤信息    時間: 2020-6-11 13:07
分享
作者: 妖洞兩拐    時間: 2021-8-15 10:01
怎么批量在文件名中漢字前后加上括號?
作者: 魍者歸來    時間: 2021-8-15 10:17
妖洞兩拐 發表于 2021-8-15 10:01! Z8 U/ Z3 h" L! A, a  y7 M, L
怎么批量在文件名中漢字前后加上括號?
: @' ^- s1 W* ?7 z# t* S
這個需求很古怪,一般都是要去括號的。可以拿excel中的替換功能當橋梁,批量修改文件名?;蛘哂虚e暇時間的,可以直接摞代碼搞定。
0 G" Y2 ~  U) h2 \
作者: 妖洞兩拐    時間: 2021-8-15 14:13
|魍者歸來發表于 08-15 10:17<br>這個需求很古怪,一般都是要去括號的??梢阅胑xcel中的替換功能當橋梁,批量修改文件名?;蛘哂虚e暇時間的,可以直接摞代碼搞定。<br>
公司是按caxa軟件方式命名,& A: b5 Y5 u& _2 ~. Y" q
caxa就是自動給中文文件名前后加括號,: ?. ~; ?5 A, w, P
不知道公司為什么這么執著,不加括號也完全沒有問題呀!




歡迎光臨 機械社區 (http://www.ytsybjq.com/) Powered by Discuz! X3.5