妖洞兩拐 發(fā)表于 2021-8-15 10:01
; m% Y% [/ m; m' `1 v怎么批量在文件名中漢字前后加上括號？

7 j  K4 m6 @( R: e" |% c這個需求很古怪，一般都是要去括號的。可以拿excel中的替換功能當(dāng)橋梁，批量修改文件名。或者有閑暇時間的，可以直接摞代碼搞定。
8 ~7 F7 e- z4 z' P. \

怎么批量在文件名中漢字前后加上括號？

分享

收藏了，謝謝！

這是個好主意！

“/B”代表的含義是什么？

收藏了，感謝分享。

轉(zhuǎn)帖
批量獲取文件名
這里分享工具下載鏈接：

http://pan.baidu.com/s/1o8u6aiY
. g7 K& Q) c) t/ Y
功能：批量獲取同一個文件夾內(nèi)的文件名，并根據(jù)文件名統(tǒng)計分支機(jī)構(gòu)的文檔報送情況。

* `- e$ t, h7 f, j0 z3 }* X使用方式：將表格文件放入存放需要統(tǒng)計各種文件的文件夾內(nèi)，打開EXCEL表格，選擇需要統(tǒng)計的文件類型，點(diǎn)擊按鈕運(yùn)行宏即可。

注意事項(xiàng)：最好在收集保存文件時，按照報送機(jī)構(gòu)關(guān)鍵字重命名文件（可以通過VBA代碼在OUTLOOK中自動存儲郵件的附件并重命名，這個以后再和大家分享）。
+ h# C2 {# K8 o) k$ b
授人以魚不如授人以漁，這里直接上代碼：

Private Sub 提取文件名()

Dim FileName As String
6 l7 g1 S9 l+ k' e5 l
6 f1 s4 r3 D7 q! }) ^6 kDim i As Long

* P( N- P7 G# J# `Dim tmp As String

6 {) u1 ?  q6 D+ P% p) Xmypath = ActiveWorkbook.Path
( o2 L4 d2 L* G8 L' w. C% k- r
FileName = Dir(mypath & "\*.*")'如果是僅需要統(tǒng)計特定類型的文件如EXCEL,將*.*改為*.xlsx即可,以此類推

i = 0
% v, V9 }, R5 a/ e" _
Range("N:N").ClearContents

Do While FileName > ""

i = i + 1
& R9 Y4 T0 y0 [: p7 B8 D
Range("N" & i) = FileName

2 t" _& `# |& Y- pFileName = Dir

Loop

End Sub