|
发表于 2020-5-5 16:10:43
|
显示全部楼层
转帖3 Q1 w, S" O9 c0 H* h
批量获取文件名
# L0 V6 M/ S% M' X这里分享工具下载链接:
" k6 E n% d8 u; w. _5 k; {% F1 V# e4 W' C; u
http://pan.baidu.com/s/1o8u6aiY
# ~) y7 z: z' h! g8 i/ @% ]/ B9 F$ g
功能:批量获取同一个文件夹内的文件名,并根据文件名统计分支机构的文档报送情况。* r5 ]. O( c: _4 z
2 y" Y6 h4 G6 g5 G3 i% A4 u0 Z
使用方式:将表格文件放入存放需要统计各种文件的文件夹内,打开EXCEL表格,选择需要统计的文件类型,点击按钮运行宏即可。4 E: u$ a8 m+ l5 @
1 ^" O* _3 v1 \. O. O- V
注意事项:最好在收集保存文件时,按照报送机构关键字重命名文件(可以通过VBA代码在OUTLOOK中自动存储邮件的附件并重命名,这个以后再和大家分享)。
- U+ I |1 S4 _; K
+ ~! o" ^1 A: `) {7 Y授人以鱼不如授人以渔,这里直接上代码:
& }( {( b4 C# h; h! n3 }; f. @$ D& [# ]7 P1 n
Private Sub 提取文件名()
& v5 {2 f; M" \/ l
, C6 m3 k0 R, g5 D) lDim FileName As String
! @1 I- Y' x1 u U3 v6 l
! f; S; H* k |1 o& s$ V( {- dDim i As Long
: \: z! q: S: o; F$ @
+ M1 w/ U1 P H: X$ GDim tmp As String4 |7 g; @! v2 W% t5 f* d' Z
, U/ m0 _' G! Q& E3 k+ Z4 zmypath = ActiveWorkbook.Path. L4 L3 F C7 Z& r$ J; \
- F9 J" k0 w+ @
FileName = Dir(mypath & "\*.*")'如果是仅需要统计特定类型的文件如EXCEL,将*.*改为*.xlsx即可,以此类推* ^" |( G3 \" e) N3 x
. j+ r$ R' l1 r% S1 q. k* ]/ Q
i = 0
$ G! O6 _: D: N! v2 N
8 G2 M( w+ T4 ~) M. q+ |- q3 cRange("N:N").ClearContents/ p# x- y6 M) U
: f! d# ^% n# R9 |: t; x7 x W
Do While FileName > ""
2 ]- \3 z7 }# i2 [
3 S! C; r0 y( ~. Q+ Q$ C- ki = i + 1 k7 Q. a6 c' A4 Y: ?
' y8 j) {/ r. F. I5 u' q
Range("N" & i) = FileName$ r6 k5 |2 ^" j2 |9 D& d, R
# \5 R9 G+ B# O! Q
FileName = Dir- h9 G* L3 O! ~. n+ W1 \# R. M* _/ @
% I8 g8 M1 S' j9 W% E
Loop
( j) V- Q: L* }( ^1 Z2 a! c" G2 c% D2 ~9 T* z
End Sub |
评分
-
查看全部评分
|