|
|
发表于 2020-5-5 16:10:43
|
显示全部楼层
转帖
9 w9 u6 e: u, V* s( R1 }1 H# `/ m批量获取文件名
4 f* c0 P& P+ `这里分享工具下载链接：
8 Q7 ?. x. w7 w! [3 R0 W/ b1 Q6 X2 B% ^) @9 w" j
http://pan.baidu.com/s/1o8u6aiY
( r- \3 j ?6 h9 i/ v/ _% J9 ~! D. ~' Q# M7 K+ t
功能：批量获取同一个文件夹内的文件名，并根据文件名统计分支机构的文档报送情况。% c0 l4 @3 U8 z+ o ^( H' C
4 `( T" j* t7 q1 |0 G7 Z3 }1 f使用方式：将表格文件放入存放需要统计各种文件的文件夹内，打开EXCEL表格，选择需要统计的文件类型，点击按钮运行宏即可。
# \$ S. r: H4 P! w1 b s* j; ?. ?9 K- Q$ j6 r6 A" Q6 T, m
注意事项：最好在收集保存文件时，按照报送机构关键字重命名文件（可以通过VBA代码在OUTLOOK中自动存储邮件的附件并重命名，这个以后再和大家分享）。
+ L+ Y9 t: u. `) I ]3 M
" `9 P; k; T1 S# v; K授人以鱼不如授人以渔，这里直接上代码：
1 ? Y) H! q5 k- P
) S6 n& J; E' K% T: j5 FPrivate Sub 提取文件名()
; c9 [ Z l2 N9 Y
) h/ s( {8 x* `( ~ ^Dim FileName As String
. Q5 \$ ~, L2 U u1 g2 j5 a+ P& p3 W; g! D/ ^2 y- A/ K
Dim i As Long0 `; z6 l# H W/ U* l( q1 p
8 D) V; \; m2 [Dim tmp As String
' g% L, l9 w6 A+ B0 M# F! J8 Q! [, C) Y4 }' o! ] h I
mypath = ActiveWorkbook.Path: M$ B$ t) ?% E9 V b+ Z: \
. S: \4 B* @+ G6 |FileName = Dir(mypath & "\*.*")'如果是仅需要统计特定类型的文件如EXCEL,将*.*改为*.xlsx即可,以此类推, j/ |7 F# o4 U; y! Z1 P
4 M( s! |: T# d; K4 xi = 04 n8 h* Q* K- |) S
9 b1 x" ]6 k& W- S0 a+ YRange("N:N").ClearContents+ z- B( m2 r% x8 ^ K. E) V5 ~
" i+ ~! R8 P: qDo While FileName > "" I' y* w6 L) V7 K# {3 ~+ @
" p/ K/ ^: ?* D; r! Bi = i + 1& c5 C8 H6 B; H$ x0 P8 D7 w
. }9 ~' ]/ a) E, f8 }* i y
Range("N" & i) = FileName) [, v2 [, l: n& _! a( c( l7 N
) Q( G e( L |) ~9 P' c" {" {
FileName = Dir
! a$ \6 E8 n# k% X v5 R
+ J# o6 b4 s% h$ X- V, @4 j$ LLoop8 b9 M: v7 \* L0 d
; {# L3 U2 d) \+ A, ~9 v
End Sub |
评分
-
查看全部评分
|
