亚洲欧美日韩国产一区二区精品_亚洲国产精品一区二区动图_级婬片A片手机免费播放_亚洲国产成人Av毛片大全,男女爱爱好爽好疼视频免费,中文日韩AV在线,无码视频免费,欧美在线观看成人高清视频,在线播放免费人成毛片,成 人 网 站 在 线 视 频A片 ,亚洲AV成人精品一区二区三区

機械社區(qū)

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

作者: 魍者歸來    時間: 2020-5-5 15:03
標題: 【魍生技】快速統計文件名
有時候我們統計當前文件夾內某種文件的文件名,,少的時候當然手打就ok,,面對幾百張圖紙的時候這并不是個理智的方法。( e, b( ^2 D" j! e, k
- |5 c6 y( E4 R, g
所以這個時候就可以祭出【批處理】了:- Z9 p  ]# O, f+ w
# F0 {4 _; p8 \8 F3 `2 Q+ ?
1、新建一個.txt文件,。
5 i( U9 X% k$ F2,、打開,,輸入以下紅字內容(這里以統計.PDF文件為例):$ P# K) d1 X9 t+ R7 j
DIR  *.pdf /B  >LIST.TXT7 }' X4 m4 c6 |1 v6 q$ }. C

/ s0 x' L! U" l6 J3,、保存文件,將.txt后綴改為.bat,。* M4 T& {! e7 C4 j
4,、雙擊運行,會在當前文件夾生成一個LIST.TXT文件,,打開可以看到里面的內容就是當前文件夾下全部PDF文件清單,。
2 y8 ]& X) I3 |8 j7 Q' t& `5 G! H4 G6 u) a2 Z7 q+ v2 I& }5 h; J% o
特別的說明:5 }3 F3 w' \9 Z# i2 n" p
8 a; n: l# _( |
$ C; ]( y% w3 A

作者: shaokuang    時間: 2020-5-5 16:10
轉帖8 j6 f  q# O$ q9 G8 R4 H1 x
批量獲取文件名
0 o( P- f5 M, u這里分享工具下載鏈接:
8 O; l* t: a, T# r" c- x' B) Q. T5 S+ v# M# V) B
http://pan.baidu.com/s/1o8u6aiY4 ]5 n; X4 N5 R

: ^/ z) h4 Y5 Q6 X1 q$ _. i功能:批量獲取同一個文件夾內的文件名,,并根據文件名統計分支機構的文檔報送情況,。
+ |( V, {) Y$ T" G; y: g) V1 [
& h/ l* r% w6 L( {2 p使用方式:將表格文件放入存放需要統計各種文件的文件夾內,打開EXCEL表格,選擇需要統計的文件類型,,點擊按鈕運行宏即可,。
  n5 w# D1 [) S7 o4 b8 b$ R" U3 K# m) t: U+ d- x
注意事項:最好在收集保存文件時,按照報送機構關鍵字重命名文件(可以通過VBA代碼在OUTLOOK中自動存儲郵件的附件并重命名,,這個以后再和大家分享),。. W$ J3 I# z- P7 Y  R
+ ?( t! f3 T8 N# ^$ Q4 A7 ]
授人以魚不如授人以漁,這里直接上代碼:
, D: p3 x, Y% [$ }
! @# z, Y7 b4 R5 }& i( N3 qPrivate Sub 提取文件名()8 }5 b8 K2 r6 l# C  N

7 l6 v3 j  ]/ @7 N, ?Dim FileName As String
; t" q0 b6 ?) |2 `" e& |4 F7 T$ m
4 A* g* B3 J  B# P, ]Dim i As Long
) F  D. y8 j% Y3 h( F9 O( x- {# K. k: w
Dim tmp As String
4 F! @) D- p  T( h! Q8 F2 o! E/ m+ H9 W$ o/ B6 m. a. W; y3 p' C
mypath = ActiveWorkbook.Path" I1 {/ q+ g. c; |" O

0 U, }7 o% t6 QFileName = Dir(mypath & "\*.*")'如果是僅需要統計特定類型的文件如EXCEL,將*.*改為*.xlsx即可,以此類推' p% t, V  l/ ?5 T, E. H4 f
6 O, k: M7 g5 Q7 w6 `" p9 f
i = 0
. s+ P6 P* [! M! b
5 G9 L0 t$ |3 b5 l& B7 vRange("N:N").ClearContents
# e; b6 c: j$ ]' I, Z) x0 ~, ?& w" W4 T- x
Do While FileName > ""
) M8 Z' a! Q# R9 r+ j7 b3 k* F7 ?6 A. J- Y* H' P. }% M
i = i + 1$ E2 s, i; j- {
; h" m5 I$ ^3 ]  }
Range("N" & i) = FileName6 d* Z) ^$ J* Q% H5 ^# j+ g

' B0 Y8 Z! M0 E! C9 K+ ]FileName = Dir
" f7 V, ]! }) T# S2 I4 A! B2 E6 a: Z- P& a
Loop
6 C5 E, b) J9 u* o, F, t' w& i1 f/ R) X  i# s: W3 q8 m. Q
End Sub
作者: 007learn    時間: 2020-5-5 18:20
收藏了,,感謝分享,。
作者: 曉昀    時間: 2020-5-5 23:04
“/B”代表的含義是什么?
作者: 遠祥    時間: 2020-5-6 14:13
這是個好主意,!
作者: 魍者歸來    時間: 2020-5-6 15:09
曉昀 發(fā)表于 2020-5-5 23:04
8 F9 ^& P3 s5 z! G“/B”代表的含義是什么,?

) C! h8 T4 _+ p; I2 V2 W* G (, 下載次數: 144)
7 o8 w' k/ c. J4 u# ]) L上圖是命令行中的提示信息,/B相當于輸出簡化的格式(也就是文件名或文件夾名)
% e4 o- q8 R8 ~+ a4 J, d" D' q9 l
(, 下載次數: 150) 1 i) O2 |: ~, H+ W7 P: g. x
上圖是兩個命令的對比:①用了dir /b,,輸出的是所在文件夾包含的子文件夾名和文件名,;②用了dir,輸出的是驅動器和文件(夾)的信息,。( a* T6 m, g; B

作者: sf-1224    時間: 2020-5-7 08:59
收藏了,,謝謝!
作者: 蘇州萬坤信息    時間: 2020-6-11 13:07
分享
作者: 妖洞兩拐    時間: 2021-8-15 10:01
怎么批量在文件名中漢字前后加上括號,?
作者: 魍者歸來    時間: 2021-8-15 10:17
妖洞兩拐 發(fā)表于 2021-8-15 10:01
# J: F$ c9 c' r- I怎么批量在文件名中漢字前后加上括號,?

: W: g7 s! u' a這個需求很古怪,一般都是要去括號的,�,?梢阅胑xcel中的替換功能當橋梁,批量修改文件名,�,;蛘哂虚e暇時間的,可以直接摞代碼搞定,。
1 D* H  ]( l0 e
作者: 妖洞兩拐    時間: 2021-8-15 14:13
|魍者歸來發(fā)表于 08-15 10:17<br>這個需求很古怪,,一般都是要去括號的�,?梢阅胑xcel中的替換功能當橋梁,,批量修改文件名�,;蛘哂虚e暇時間的,,可以直接摞代碼搞定。<br>
公司是按caxa軟件方式命名,,
2 V7 ~' N% }3 Z+ ~  F- \. {6 ccaxa就是自動給中文文件名前后加括號,,$ [5 E) ?8 l1 E" }
不知道公司為什么這么執(zhí)著,不加括號也完全沒有問題呀!




歡迎光臨 機械社區(qū) (http://giwivy.com.cn/) Powered by Discuz! X3.4