|
|
发表于 2020-5-5 16:10:43
|
显示全部楼层
转帖9 ^2 i$ \8 n9 `
批量获取文件名4 r# V# d. ^& C) M x h
这里分享工具下载链接：
' k4 m7 I5 ~ q* A* {6 L* b- @1 E' {& k$ i) A
http://pan.baidu.com/s/1o8u6aiY
) }+ p' F G% ]5 b6 J/ _: Q5 n) D& y
功能：批量获取同一个文件夹内的文件名，并根据文件名统计分支机构的文档报送情况。8 Q2 W& V4 \( u; }3 t N7 o( u+ l/ P
- _: _* Z) N3 @0 I( ~' }; R$ N
使用方式：将表格文件放入存放需要统计各种文件的文件夹内，打开EXCEL表格，选择需要统计的文件类型，点击按钮运行宏即可。
6 e4 _) K& B9 l/ s' T, N( W
- n& v$ ^! r, I- q4 V+ d注意事项：最好在收集保存文件时，按照报送机构关键字重命名文件（可以通过VBA代码在OUTLOOK中自动存储邮件的附件并重命名，这个以后再和大家分享）。4 ~& B- N% z7 I. U% j" ]
: t n' q- \# j( k P" A# T授人以鱼不如授人以渔，这里直接上代码：. M+ N$ B8 P! X+ X$ f4 x( \) E
0 \7 l, g' O6 U5 {6 }& c NPrivate Sub 提取文件名()
1 ]# h8 o" x/ W5 }
; L% A+ x( O& s, RDim FileName As String
! D3 `9 q" n- i' r2 ?) E
- G. B4 e6 u" Y7 p. r( cDim i As Long* P- ~: r& {. M$ K
6 Y. E+ }+ K- Z5 x! W+ h
Dim tmp As String& ^: S Q2 w& O/ r: M
# X, k# R7 w6 z5 Z- H
mypath = ActiveWorkbook.Path7 A+ b- s) W, j/ d
* M. |8 e, e; J4 b: p
FileName = Dir(mypath & "\*.*")'如果是仅需要统计特定类型的文件如EXCEL,将*.*改为*.xlsx即可,以此类推- E% `2 w" C6 N; D
: w" \' g: g- pi = 0& U9 e1 w+ }/ ^) W' O( r0 U
) R5 h& U* u. q8 _2 [ v) bRange("N:N").ClearContents' v% r' y) y% j" L& o: N+ q. k6 p) w
' Z N# Y3 R2 _5 ?/ x' B% [2 eDo While FileName > ""1 n. k, j8 |& a. V3 J! I& Q1 m
" \& {+ Z1 R+ @, p0 P
i = i + 1
# V( \$ j5 ^' r! H3 M: y3 r2 t$ W, w
Range("N" & i) = FileName
) D) F5 a6 j* I4 A) l4 G
7 l* T) H& X0 Y' F' k: gFileName = Dir
4 C8 c) L6 _/ E& T
# P; l/ `2 M6 h6 g+ q/ VLoop% A. m! j0 _2 H0 Z) g: f" b
' @4 O0 `( n i9 N. tEnd Sub |
评分
-
查看全部评分
|
楼主: 魍者归来
楼主
