|
|
发表于 2020-5-5 16:10:43
|
显示全部楼层
转帖2 z1 j7 Z8 J6 X- Z) W
批量获取文件名
. s- t* \. w# z; I+ b% W, P这里分享工具下载链接：
& @9 p+ z' E6 [3 q. W; i1 z1 p# x
http://pan.baidu.com/s/1o8u6aiY# F- ]- ^1 o) X5 F1 N+ d
6 Y( c- Q; X' q0 z9 N& |& S功能：批量获取同一个文件夹内的文件名，并根据文件名统计分支机构的文档报送情况。1 K3 g0 }8 K: I) v9 j$ U4 v
. [) p4 {, y8 @, P5 X) b4 e
使用方式：将表格文件放入存放需要统计各种文件的文件夹内，打开EXCEL表格，选择需要统计的文件类型，点击按钮运行宏即可。, G* i" ^: E6 u {7 Z6 d4 H
* w. Y8 z$ k" @注意事项：最好在收集保存文件时，按照报送机构关键字重命名文件（可以通过VBA代码在OUTLOOK中自动存储邮件的附件并重命名，这个以后再和大家分享）。) `) q+ o6 q* B( c7 z8 [$ n
% I0 z# J) D6 C授人以鱼不如授人以渔，这里直接上代码：7 r3 }) w! W- q
* R6 l! u$ d1 P# F1 M. N0 o9 J2 HPrivate Sub 提取文件名()
+ a h! n2 D& K; }$ @9 T1 N: S% A3 l( B0 ]8 R
Dim FileName As String- i4 m# Z* ~' I+ g8 n; {
% @) u" n; [- z- x9 O0 }Dim i As Long
* i( Y9 h" E0 u$ ]3 E7 j
: Y( F* _4 C0 D( |+ U( TDim tmp As String. w1 D9 N4 V9 h ]( T4 b
" g7 [/ u% q5 gmypath = ActiveWorkbook.Path
0 z( w2 G1 v& l8 [
# ?& U* N# _. LFileName = Dir(mypath & "\*.*")'如果是仅需要统计特定类型的文件如EXCEL,将*.*改为*.xlsx即可,以此类推
) r+ I' F2 @! O6 O$ u$ G( V/ X" m6 k8 @% m* O d
i = 0$ v: s) l+ n3 u
. y# I. x3 k' @# Z3 {Range("N:N").ClearContents
, H. x( O+ d, @" I) P% a1 F* `0 ]
Do While FileName > ""7 v% y* n( p: C
; v; Z3 S. W9 `$ j& W& X& A
i = i + 1
& D: H% H2 }( ]( Q, X4 j# i: {; [4 J: S1 j
Range("N" & i) = FileName, T' z, P8 c5 m& a- S6 e3 L, o+ t
3 k& d. i1 H+ o% D2 jFileName = Dir8 i; v; e! H: v+ T
& h s: v) s) lLoop& K# S0 I. I2 H2 n3 n2 Y
Q) ], g4 i! V: i" \1 ?' |
End Sub |
评分
-
查看全部评分
|
楼主: 魍者归来
