|
|
发表于 2020-5-5 16:10:43
|
显示全部楼层
转帖
4 A, o. @* J; W4 z批量获取文件名
/ o9 N' ?/ g1 `8 z2 B这里分享工具下载链接：
9 O1 V9 S5 Z; ^. b. H. E! T# o/ a4 M/ m/ Q
http://pan.baidu.com/s/1o8u6aiY* h9 S+ v* A+ w! i
& O# B3 n! l- ?4 X功能：批量获取同一个文件夹内的文件名，并根据文件名统计分支机构的文档报送情况。1 y: n9 f' s5 s Q% p) d
: i& F2 G. t: z Z9 r% T* y6 L* K使用方式：将表格文件放入存放需要统计各种文件的文件夹内，打开EXCEL表格，选择需要统计的文件类型，点击按钮运行宏即可。
/ x5 B; H5 z: R6 E0 j0 @9 c
: Z! T5 `: u4 ]注意事项：最好在收集保存文件时，按照报送机构关键字重命名文件（可以通过VBA代码在OUTLOOK中自动存储邮件的附件并重命名，这个以后再和大家分享）。! _4 q! ]- L ]4 n# W( y
* ^' a, m; k/ u* R
授人以鱼不如授人以渔，这里直接上代码：
2 v1 `( _& E$ t R
: w2 D, Z/ ]3 |! w; aPrivate Sub 提取文件名()6 H! }) M$ n7 Y( h y+ j1 O( }
3 V" }, M# Q7 w9 Z0 J
Dim FileName As String( P* ~# U* ]2 j4 w9 M/ C9 b
& N0 j- d" S2 i- n" L* S
Dim i As Long
% H4 y1 r; p2 h5 Y! I) r/ W% t+ {/ F# u; B/ s+ ]) C7 ^
Dim tmp As String. ]. p2 B2 E5 u9 Y& H8 E2 G
* h9 `, R2 A4 }mypath = ActiveWorkbook.Path
5 g( @% \( z6 P( Q, u8 L
# \+ z0 i; g& o. rFileName = Dir(mypath & "\*.*")'如果是仅需要统计特定类型的文件如EXCEL,将*.*改为*.xlsx即可,以此类推# r$ }2 z* _. Q8 B2 n% X$ u' i9 m
1 b( v: z. R. m, T" w" f/ Gi = 0
5 s4 G, z1 K a. y! ?
- d9 n* C% }! T6 a0 o9 {! ?" l. _Range("N:N").ClearContents% b [2 G# p' b% M! N( o
$ A$ m5 W& l, T R0 m/ I
Do While FileName > ""7 j) y; v5 P5 \) _3 L
4 d3 J1 g( G Y5 I6 o/ s$ A5 y+ b1 h
i = i + 1
6 J8 V1 k( @( ^8 V$ O) H* \. V u! l, K! \9 g: c& A, x
Range("N" & i) = FileName
* H) O3 b6 k; a' M3 h0 c* V2 d1 w9 P0 f- R( e6 R
FileName = Dir
8 F" z% p2 w5 ?0 \' W% _7 P: [$ U
( d- l' u/ Q- G1 ?1 SLoop
1 o# F u5 e4 L6 r/ v; c! T. S; j! j& T* l$ }, V% R
End Sub |
评分
-
查看全部评分
|
楼主
