|
|
发表于 2020-5-5 16:10:43
|
显示全部楼层
转帖$ f8 p0 F2 p ]8 {5 R
批量获取文件名
2 ^: {# j% J, G8 ~$ ~% F5 \这里分享工具下载链接：
. x' H) k9 H" f& f$ p/ v7 l" M2 ~+ U/ ]( P/ S) `% S' d% B9 J8 E5 O
http://pan.baidu.com/s/1o8u6aiY' [9 [+ c, l) k; ]8 |. B# ~2 h
' w: V, F+ ~1 Y0 @7 `+ F功能：批量获取同一个文件夹内的文件名，并根据文件名统计分支机构的文档报送情况。! a( ~7 |7 \- [1 c! y
) E- Z& ~' J8 e- v, f
使用方式：将表格文件放入存放需要统计各种文件的文件夹内，打开EXCEL表格，选择需要统计的文件类型，点击按钮运行宏即可。
, _5 c* e o% y! Z% k: G) a$ K7 S: a
注意事项：最好在收集保存文件时，按照报送机构关键字重命名文件（可以通过VBA代码在OUTLOOK中自动存储邮件的附件并重命名，这个以后再和大家分享）。
4 o* J3 G8 i' y$ v' I
7 W( b; a# w/ P: H; L2 N2 @授人以鱼不如授人以渔，这里直接上代码：
9 S1 c7 a7 X% b" Q
2 r$ T% v( o5 @5 O2 G3 S# F5 }Private Sub 提取文件名()
, j8 \6 w( r2 P) ^; z8 G% D4 _1 ~% H3 T; }& n& D! h; H
Dim FileName As String
: g4 a) }* N: Q; h* i& E+ j' w# M3 I7 i
Dim i As Long' @7 P7 [- g) _
# s# ?3 {# \& Y2 j. tDim tmp As String4 p' Z9 v. I3 i+ K7 v$ t8 h
/ B8 C$ I/ S! h# T- |- B
mypath = ActiveWorkbook.Path# ^+ g. K* |1 ~
! m. p1 H; i {3 v2 _FileName = Dir(mypath & "\*.*")'如果是仅需要统计特定类型的文件如EXCEL,将*.*改为*.xlsx即可,以此类推, s/ s. M1 ?" n8 F
5 W+ J( {1 V( a9 I4 S' C3 e0 Z+ m
i = 0
. `$ f+ D' P: X# n" X3 R* b+ D7 ]' u9 f
Range("N:N").ClearContents
4 b3 C+ |7 r! S( A) d F$ E e4 K5 J! I
Do While FileName > ""
s& ^9 b6 F9 M& B, z: |" B) a* p9 J% n6 e$ v' a4 s) n( J) c7 d
i = i + 1
. v5 e* Y' x. R" Q/ ^, n
; a# h$ R/ G+ }, e3 YRange("N" & i) = FileName
' U5 }$ y9 ~5 K3 s" \, g& k) [# ^/ Y# c- Y4 U+ I; u( J4 U$ ?
FileName = Dir/ O- I% V6 d ~3 l: M, M
1 u; r* i- D" ?/ T
Loop; d: `/ v9 ?0 K
/ s" F7 H1 @) Q) l- |. Y
End Sub |
评分
-
查看全部评分
|
楼主: 魍者归来
