|
|
发表于 2020-5-5 16:10:43
|
显示全部楼层
转帖
/ H2 s7 ^8 a+ K [$ }. W& Q批量获取文件名6 l5 y: H" s5 Z8 ~+ u
这里分享工具下载链接：3 f: c+ \4 n7 m+ l3 D9 J
: b8 a# @7 W$ lhttp://pan.baidu.com/s/1o8u6aiY
8 z( g. Q& y8 g5 J0 q! U1 u0 f+ E2 U8 E5 G6 b
功能：批量获取同一个文件夹内的文件名，并根据文件名统计分支机构的文档报送情况。
4 G# n7 W+ d, ^
w1 w9 T, F; E使用方式：将表格文件放入存放需要统计各种文件的文件夹内，打开EXCEL表格，选择需要统计的文件类型，点击按钮运行宏即可。2 ]2 _+ [. n/ g8 n3 \! v2 b
" n7 L9 D% M: O3 Q! {
注意事项：最好在收集保存文件时，按照报送机构关键字重命名文件（可以通过VBA代码在OUTLOOK中自动存储邮件的附件并重命名，这个以后再和大家分享）。
3 b6 e: @. O- @5 j* R
5 o A9 }% T+ E/ t6 x& c5 ~授人以鱼不如授人以渔，这里直接上代码：
8 {7 ?4 T ?' c p3 `+ r- [
1 l1 x6 f; e+ {, E% j# k& wPrivate Sub 提取文件名()5 `& Z! c3 D3 [+ u
: H! h+ ^. {5 L) G) B& K
Dim FileName As String3 B: J# z& z6 t, n+ h
, o4 |- m2 f' ^; XDim i As Long
4 a4 C% l `# [, d4 [: B
9 B, y! r$ K* d9 I3 {9 T0 rDim tmp As String) V9 @ r e1 }4 W' Q
6 l* ?: V* f }/ _# gmypath = ActiveWorkbook.Path1 Q% n/ g* _1 G/ I& B- f# ^1 p
" K f3 `9 e! s% A4 M: w, x
FileName = Dir(mypath & "\*.*")'如果是仅需要统计特定类型的文件如EXCEL,将*.*改为*.xlsx即可,以此类推, k* [6 Y7 E4 i0 X" C# h
$ `* k# w5 ?5 A9 M1 hi = 0
+ I; U5 k/ ]* A& `
& R# m9 y8 k! e6 VRange("N:N").ClearContents
) b! H, ^) q9 R3 ^( B v, x1 U4 A4 e* L+ n6 k+ y, L; {
Do While FileName > ""
( J# Z2 u/ c6 f5 [ g6 G; C; N$ q: v7 @6 y/ Z
i = i + 1* J& P8 s9 Q+ i: l( X& ?% j
8 [; T. D1 k2 f8 a* ERange("N" & i) = FileName
4 n& q5 z& x: c- i0 Q4 `1 d
6 F6 \1 l6 w6 @1 Q! J- R4 o- YFileName = Dir
" P" A2 _+ \' I9 ]+ R9 m0 P O4 z* \) y& P8 h" V
Loop
8 B( i" H7 l/ i$ P3 W
# g# O4 d( S4 c1 CEnd Sub |
评分
-
查看全部评分
|
