|
|
发表于 2020-5-5 16:10:43
|
显示全部楼层
转帖4 B% U7 r+ i, T! O. z: o) ^
批量获取文件名9 A/ a1 ?& T7 k" x, d5 O' _( f* x
这里分享工具下载链接：
2 [$ E2 S0 u/ y. v; f" E* k$ X0 V" M, ^* l3 Y9 ~+ n
http://pan.baidu.com/s/1o8u6aiY
) U' T, w4 V' A; U/ k! T' U; F2 ]
$ F4 F' t0 @) L' E$ `功能：批量获取同一个文件夹内的文件名，并根据文件名统计分支机构的文档报送情况。
- e+ f6 ?7 m! X9 _' T. c' k1 l K' G" v8 y9 F8 H$ X
使用方式：将表格文件放入存放需要统计各种文件的文件夹内，打开EXCEL表格，选择需要统计的文件类型，点击按钮运行宏即可。0 _) J+ U( d3 `
4 l+ i* X+ M+ B7 C5 W9 { z注意事项：最好在收集保存文件时，按照报送机构关键字重命名文件（可以通过VBA代码在OUTLOOK中自动存储邮件的附件并重命名，这个以后再和大家分享）。# f5 @3 B3 A$ T3 k* o4 W9 n' ~. X
" s) V/ s0 ]8 Z! K+ m5 c
授人以鱼不如授人以渔，这里直接上代码：
1 l( H. B1 i' p; e" I( B. }9 @7 g! F
Private Sub 提取文件名()
/ T3 q; N( e6 Q, z5 a# w" ~" A: N5 v
Dim FileName As String
7 o8 I. h3 b) J% {9 I0 i& K; [: e) S2 ^: p) ]& V& Q
Dim i As Long7 A- ~6 Y3 F0 W" s3 b) |4 x
+ d3 @3 c- u- C& hDim tmp As String
. ]% k# }" B) k2 F% ?* ]
+ N5 \. j- g$ u: Fmypath = ActiveWorkbook.Path1 u2 e& F* c; A6 w0 y+ L6 _
) i1 @8 f8 f- C; O& w% tFileName = Dir(mypath & "\*.*")'如果是仅需要统计特定类型的文件如EXCEL,将*.*改为*.xlsx即可,以此类推
! C" U: B3 M0 b! @/ Q0 E% G: T; f2 `
7 p+ o- l3 L# {" M7 d! M) @% Qi = 0
5 P/ ~& {# |5 h2 X9 F
+ f% X2 S+ i, W7 b1 C% YRange("N:N").ClearContents; l @" U& Q- Y9 ]! Q, ?, t
: ?8 G( _8 H fDo While FileName > ""
& `( M/ U1 I& R* g* T; l" v% z' ] s) a, K: ]0 s5 r1 a! a/ U) w
i = i + 1* s% ~7 `% x& J2 s
4 d5 J' H9 \/ R: u8 v- J
Range("N" & i) = FileName. E. |$ Q5 |& z
2 ^( Y6 T( F% G( ^* P# e: RFileName = Dir( V0 ]3 Q/ b7 _; ?1 \- y' I
; l8 [. D' h2 I1 G: |
Loop
# V8 I# M0 ]5 Y* M
6 O+ t; f( f7 T" h) H1 LEnd Sub |
评分
-
查看全部评分
|
楼主: 魍者归来
楼主
