|
|
发表于 2020-5-5 16:10:43
|
显示全部楼层
转帖1 M& X: u( D& ~8 g) k
批量获取文件名% S! \! V+ j1 R, N& @) m! a
这里分享工具下载链接：* w0 O, y8 T; b" L! ~$ O5 ~# x
# f5 x3 p3 M0 t. Z, k; ?4 L
http://pan.baidu.com/s/1o8u6aiY
/ h% O1 [& {- ~" ?) G1 e; v5 f3 N! y. P
功能：批量获取同一个文件夹内的文件名，并根据文件名统计分支机构的文档报送情况。0 H1 F2 [2 m+ t" o4 s6 s
4 X A; X& h) g3 D
使用方式：将表格文件放入存放需要统计各种文件的文件夹内，打开EXCEL表格，选择需要统计的文件类型，点击按钮运行宏即可。
; H$ \7 s& k" E4 k; H
" X+ |7 M! d# I4 o" Z& B# ]2 E注意事项：最好在收集保存文件时，按照报送机构关键字重命名文件（可以通过VBA代码在OUTLOOK中自动存储邮件的附件并重命名，这个以后再和大家分享）。
; i6 ~* n3 b1 N4 ]5 j- ~; Y! }5 c' E* m+ G3 e y
授人以鱼不如授人以渔，这里直接上代码：$ P# A, C `) e
! m3 Y* E7 D0 N! p, p4 `- l1 S
Private Sub 提取文件名()
7 G6 n+ E5 s# X2 N6 B2 b* F0 X* M0 W4 D" I5 [
Dim FileName As String3 Q: \/ ?+ [1 t- E" R: Z& x" i8 _" ` m
5 d6 P3 W+ J% _ ]
Dim i As Long" \3 `" J5 \" s, c' `7 H1 V1 G
& D, s' \: ~4 V1 g9 I7 M7 c4 u/ h
Dim tmp As String
) W, I1 N2 X9 r$ U5 F+ }" k8 ^' e" ?8 {
mypath = ActiveWorkbook.Path
8 @$ h! _- B! x/ F0 l y3 x
! W0 g L8 p/ o; h# @- G9 s6 K: S# rFileName = Dir(mypath & "\*.*")'如果是仅需要统计特定类型的文件如EXCEL,将*.*改为*.xlsx即可,以此类推
) {: K! u2 ]" u2 |! t- B6 H, g' J: n- _! t2 T9 c- q' W4 V
i = 0! |, M$ C2 R8 w) a& x. c8 [
" _ z) x/ E2 Y) w: n+ F' m8 ?; f
Range("N:N").ClearContents9 Q! p( M, U4 f7 }; v2 E
! h6 a6 Q: n8 z H" W' S" ?# R4 ]
Do While FileName > ""' {# r. {. v3 g' T# D |
8 \0 }/ I' p* W- m ki = i + 1
4 }% B* K9 F; o% g1 _/ V/ {# F
Range("N" & i) = FileName
" I0 w; Y7 I( d# S0 L5 V/ G! k, s0 C- g. q: @: g
FileName = Dir
8 Q) W- p: Z o. o3 `& [3 X7 a6 b7 p$ j; }; x: v" @
Loop
& I4 ?8 x8 ~1 N
+ X* y: c5 H- N+ W. qEnd Sub |
评分
-
查看全部评分
|
楼主
