|
|
轉帖/ \& U6 q- ^: K, ~* V9 e! N3 X# Q
批量獲取文件名
9 R/ D& U) G# Z3 Q: i這里分享工具下載鏈接：! l% @3 ~* C6 y7 W) h, S
% f8 ~5 R7 D/ D7 j$ F+ O1 P' Lhttp://pan.baidu.com/s/1o8u6aiY
b6 L* C9 u) s, ]7 ^" m* d& w d5 O& ]% q$ Z' q
功能：批量獲取同一個文件夾內的文件名，并根據文件名統計分支機構的文檔報送情況。; b% K' W0 Y& D& V
4 B( p$ }, y9 r) A a使用方式：將表格文件放入存放需要統計各種文件的文件夾內，打開EXCEL表格，選擇需要統計的文件類型，點擊按鈕運行宏即可。
$ T }7 F+ _. p# c) S7 P! Y/ V2 w6 S
注意事項：最好在收集保存文件時，按照報送機構關鍵字重命名文件（可以通過VBA代碼在OUTLOOK中自動存儲郵件的附件并重命名，這個以后再和大家分享）。
# o: N' Z) |& }9 J* N- |: S- W9 n# t
! z2 W. n0 J& Y, W' U授人以魚不如授人以漁，這里直接上代碼：: e5 h$ H- J6 F$ A
1 M c8 x% E) Z3 t+ L2 W+ {Private Sub 提取文件名(), Q4 _) A8 V6 H
N* H/ n) S5 d! {( V3 `Dim FileName As String0 Y$ F3 e7 Z0 ]0 ?* w
9 E. Y/ F0 f$ L) P. E, IDim i As Long
8 I# s& c# P5 X' E0 k6 \# |9 K- ]3 A3 ~
Dim tmp As String+ g; w+ w$ b* A4 A/ g
# g& c1 m6 O7 Z) R8 c
mypath = ActiveWorkbook.Path7 L. |3 L% j9 X' P1 w
$ Q4 U6 d. D2 n$ T. eFileName = Dir(mypath & "\*.*")'如果是僅需要統計特定類型的文件如EXCEL,將*.*改為*.xlsx即可,以此類推$ U% G7 D6 x9 R' t+ d$ ^
6 M. E I4 N/ A6 p
i = 0/ q/ [6 w3 Z2 b4 ]1 o* D7 a7 j
6 ]8 n) G$ U9 f) `Range("N:N").ClearContents
) X# @% l0 }8 R& \3 Y" X- U" S; h' p
Do While FileName > "") y3 C0 w, K& q. i, U( |2 c# }$ m6 S
1 \- u" @$ p/ v9 R* Ui = i + 1
' n( S6 P0 U4 N6 L1 ?
7 T3 g: D3 z* _+ d2 S9 KRange("N" & i) = FileName s0 Q! y2 a6 y* `
: \7 Q9 O: o' m2 g1 b7 P0 K7 @
FileName = Dir
8 n" g$ b H7 J1 T A" v
' U) w4 V3 ~0 `! ULoop) R) Z4 |! L% y, z# B
) \, h; ^, I- v* I
End Sub |
評分
-
查看全部評分
|
樓主: 魍者歸來
發表于 2020-5-5 15:03:33
QQ好友和群
QQ空間
