![]() |
發(fā)布時間: 2020-5-5 15:03
正文摘要:有時候我們統(tǒng)計當(dāng)前文件夾內(nèi)某種文件的文件名,,少的時候當(dāng)然手打就ok,,面對幾百張圖紙的時候這并不是個理智的方法,。8 A8 Y3 D1 b& p4 L2 F& y* [7 S- D- q. t ' m) ?9 w4 n% y- w8 s 所以這個時候就可以祭出【批處 ... |
妖洞兩拐 發(fā)表于 2021-8-15 10:01% E1 s( B% m1 I2 J! {- G9 {3 p/ S) s 這個需求很古怪,一般都是要去括號的,�,?梢阅胑xcel中的替換功能當(dāng)橋梁,批量修改文件名,�,;蛘哂虚e暇時間的,可以直接摞代碼搞定,。" i8 f/ {, k4 e7 Z* A% I. t |
怎么批量在文件名中漢字前后加上括號,? |
分享 |
收藏了,謝謝,! |
這是個好主意,! |
“/B”代表的含義是什么? |
收藏了,,感謝分享,。 |
轉(zhuǎn)帖" z% m( d; U: [3 T/ |3 ] 批量獲取文件名) p. d4 T+ Q6 w& r6 p: T0 a% e6 c5 @ 這里分享工具下載鏈接:$ u, C, Z7 h# n4 d- I) c http://pan.baidu.com/s/1o8u6aiY 功能:批量獲取同一個文件夾內(nèi)的文件名,并根據(jù)文件名統(tǒng)計分支機構(gòu)的文檔報送情況,。4 }; E0 f0 n: z+ X & N6 [- m1 t0 p; w/ w+ y 使用方式:將表格文件放入存放需要統(tǒng)計各種文件的文件夾內(nèi),,打開EXCEL表格,選擇需要統(tǒng)計的文件類型,,點擊按鈕運行宏即可,。 2 p, b x+ T4 }( m. s. S 注意事項:最好在收集保存文件時,按照報送機構(gòu)關(guān)鍵字重命名文件(可以通過VBA代碼在OUTLOOK中自動存儲郵件的附件并重命名,,這個以后再和大家分享),。 ( w/ R0 j% M1 _. G8 n( [ 授人以魚不如授人以漁,這里直接上代碼: Private Sub 提取文件名()0 [& |* B. H4 y* {4 E/ i ( }2 q, b5 m7 L q' h" v0 i Dim FileName As String 2 p) W V: @. F# z. o6 g0 N Dim i As Long3 k' C: s7 Q2 n Dim tmp As String8 r8 Q* f7 C% `2 U : `' k% \% B& o$ K1 l( Z, F mypath = ActiveWorkbook.Path1 M: R+ ?7 y: M( r: Q9 `6 N: T( x FileName = Dir(mypath & "\*.*")'如果是僅需要統(tǒng)計特定類型的文件如EXCEL,將*.*改為*.xlsx即可,以此類推 i = 04 d4 x4 s6 n7 |2 v3 b# S7 x, v; B Range("N:N").ClearContents; N; U! U9 x: y1 V ) t U E7 Z3 A Do While FileName > "" i = i + 1( q: q0 X5 [4 B X1 ^0 L9 _ Range("N" & i) = FileName$ r- B4 F! \! u9 g+ n FileName = Dir Loop& a( k" T' u2 e7 \: P + a7 J% Y3 \+ E- @) i8 q End Sub |
17.06 KB, 下載次數(shù): 4, 下載積分: 威望 -3 點
參與人數(shù) 2 | 威望 +2 | 收起 理由 |
---|---|---|
![]() | + 1 | 熱心助人,,專業(yè)精湛! |
![]() | + 1 | 熱心助人,,專業(yè)精湛! |
小黑屋|手機版|Archiver|機械社區(qū) ( 京ICP備10217105號-1,京ICP證050210號,,浙公網(wǎng)安備33038202004372號 )
GMT+8, 2025-2-11 06:49 , Processed in 0.076188 second(s), 20 queries , Gzip On.
Powered by Discuz! X3.4 Licensed
© 2001-2017 Comsenz Inc.