|
2#
發(fā)表于 2020-5-5 16:10:43
|
只看該作者
轉帖 l4 ~. S8 b! Y6 z1 U5 t$ B5 |* ?
批量獲取文件名
8 d% S$ T) y: J4 \. r6 g這里分享工具下載鏈接:
% E; ^7 W, r+ j5 n2 w1 t/ y# Z% Q7 K& A1 V( [( t& U
http://pan.baidu.com/s/1o8u6aiY
8 E/ X5 B( J+ J" z
; E6 r- J7 c, }! `' ]2 [功能:批量獲取同一個文件夾內的文件名,并根據文件名統(tǒng)計分支機構的文檔報送情況。7 k& T4 g, J9 ?3 M- ^
2 N7 n! W H! ~* O使用方式:將表格文件放入存放需要統(tǒng)計各種文件的文件夾內,打開EXCEL表格,選擇需要統(tǒng)計的文件類型,點擊按鈕運行宏即可。% J0 c# a9 O8 ~5 b- B" r h
4 I! i3 F: I, Y1 }7 q7 V
注意事項:最好在收集保存文件時,按照報送機構關鍵字重命名文件(可以通過VBA代碼在OUTLOOK中自動存儲郵件的附件并重命名,這個以后再和大家分享)。
p: k7 k Z7 m0 P
/ `' G9 |+ O7 T4 \% T) n( {9 Q授人以魚不如授人以漁,這里直接上代碼:/ b5 S6 F6 c% a
" q1 n% l# q3 l! h' E/ N, aPrivate Sub 提取文件名(). i- C$ f1 `3 K* H) S7 \) l% |$ n0 W
, v7 G0 l8 g/ g& S. t+ O
Dim FileName As String# s+ p, c% M) {9 i$ J. k4 y0 s
7 y) r. |5 n0 ~$ q% l
Dim i As Long
1 v' O, t) }! N; Q6 o* p n; j
, R4 G4 q* A# X" F& a' ?7 X( C! ~: LDim tmp As String
8 E' z& c, m7 O
! ~6 R: Y X* E- m' R. zmypath = ActiveWorkbook.Path' I/ V4 ?$ o) m: _
6 g! t4 S- m) g2 r7 M; k8 UFileName = Dir(mypath & "\*.*")'如果是僅需要統(tǒng)計特定類型的文件如EXCEL,將*.*改為*.xlsx即可,以此類推4 v- M* x+ A" D |: k' J) C
H" L- R. h# q z: ^) Zi = 08 A, X; k* b, t" [+ _7 F& S/ k
. ^2 _+ I& c j1 f" H7 u
Range("N:N").ClearContents
9 q8 o7 N4 |+ W9 D% a. H. {* E% \* \# X$ g$ p _
Do While FileName > ""
+ M, a: q) L1 P! \3 W$ ~1 k6 T6 Z) U Z* m8 S( F6 h
i = i + 1) `* d1 q! m$ O% B, [4 ~
& Z; G' H8 _7 O9 z$ E9 E
Range("N" & i) = FileName1 I" i3 G8 @! ~: ^6 O
* d1 e* W/ w9 l+ u: B7 u# u4 G9 d
FileName = Dir
F8 ~- V1 N, E/ ]2 I" `; ~9 v. N' y+ A6 A4 c9 d/ K6 \! n( X) a
Loop7 U3 P8 G3 @% ?7 }
- ~, F6 H( K7 b8 o/ D( m' y
End Sub |
評分
-
查看全部評分
|