|
发表于 2020-5-5 16:10:43
|
显示全部楼层
转帖/ K( S" y! P2 }$ k+ |* Y! V
批量获取文件名8 I: ~- U' u+ d' v. d# y! g
这里分享工具下载链接:. j4 Z0 b+ ^8 V5 s
% X6 | P9 N- a% Z8 o
http://pan.baidu.com/s/1o8u6aiY! c( B S y% z: A% S( N0 ~
* E0 a) X" j# [ f0 h: x/ T
功能:批量获取同一个文件夹内的文件名,并根据文件名统计分支机构的文档报送情况。5 D8 q" v; r+ c
/ N a% @- } n) \
使用方式:将表格文件放入存放需要统计各种文件的文件夹内,打开EXCEL表格,选择需要统计的文件类型,点击按钮运行宏即可。
! C E" n0 ~* b& J0 Z8 G$ I! x1 S) V( _& B
注意事项:最好在收集保存文件时,按照报送机构关键字重命名文件(可以通过VBA代码在OUTLOOK中自动存储邮件的附件并重命名,这个以后再和大家分享)。. F, o2 n' q6 J1 I2 d; d8 e1 _
7 f+ {# E& \' k% i$ Z% B$ i3 l授人以鱼不如授人以渔,这里直接上代码:
/ K* a. N8 \9 B: h) o: ^. D
; b7 ?- s& u' p1 s- g/ t0 u1 f; fPrivate Sub 提取文件名(): ^3 |1 D. E4 E9 o- ?* |: x3 k
& f! B; B7 K6 i4 T
Dim FileName As String
; |6 d0 N: V4 o8 E1 T6 t
7 m( E, V/ ~# d6 V \: _) ADim i As Long
1 L7 ~& N" S; G! T
0 S9 e+ v( g. LDim tmp As String
; A' z: W% L! q6 b* e0 z
! p; ~. u; t- R3 A) O* b& J, qmypath = ActiveWorkbook.Path
" f4 Y0 U# b% z
" U" {. V% x$ D# m$ \/ BFileName = Dir(mypath & "\*.*")'如果是仅需要统计特定类型的文件如EXCEL,将*.*改为*.xlsx即可,以此类推1 |. z1 {5 R5 r
) S$ z5 B; ~; c6 S% A ^) hi = 0
. p! m+ p- a% F; Z1 T8 e1 U
* ^1 I2 y& ^4 b9 Z# ?Range("N:N").ClearContents
# Z' ]% P+ _1 M2 X0 x+ |- t8 g& e+ c; S, @" @* g; @, u# y! H
Do While FileName > ""! V" b+ r6 ]1 F- H x& C
3 z" Y1 }4 ?+ L0 y* L( d: |i = i + 1
* ]+ `8 y' G4 ?( [
; V, O! p- R, ?5 D) c/ aRange("N" & i) = FileName
3 O) d; b0 U! t! W, C: d
$ t, V, s$ G! a1 O5 vFileName = Dir
7 y5 j$ ~5 m4 X+ _' m; K# b- k; w3 R) v, V: _+ U
Loop4 l3 ]2 X Q6 _
% a) t7 l" ]' G$ \
End Sub |
评分
-
查看全部评分
|