妖洞兩拐 發表于 2021-8-15 10:01
1 O6 o) k2 X* ?8 @怎么批量在文件名中漢字前后加上括號？

5 ?; Q/ e& m' ?4 h. H這個需求很古怪，一般都是要去括號的?？梢阅胑xcel中的替換功能當橋梁，批量修改文件名。或者有閑暇時間的，可以直接摞代碼搞定。

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

分享

收藏了，謝謝！

這是個好主意！

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

收藏了，感謝分享。

轉帖
批量獲取文件名
0 n( t) Y2 y; c5 h  g這里分享工具下載鏈接：

http://pan.baidu.com/s/1o8u6aiY
# p* v" v0 s# A1 Y8 p7 v
% ~: o3 M( u2 y+ t功能：批量獲取同一個文件夾內的文件名，并根據文件名統計分支機構的文檔報送情況。

使用方式：將表格文件放入存放需要統計各種文件的文件夾內，打開EXCEL表格，選擇需要統計的文件類型，點擊按鈕運行宏即可。

注意事項：最好在收集保存文件時，按照報送機構關鍵字重命名文件（可以通過VBA代碼在OUTLOOK中自動存儲郵件的附件并重命名，這個以后再和大家分享）。
5 Z; `: [% }. F* }$ w; G6 t
; M( y2 O$ j5 R+ {9 g授人以魚不如授人以漁，這里直接上代碼：

Private Sub 提取文件名()

4 g' f# c! I, J4 @Dim FileName As String

Dim i As Long

Dim tmp As String
3 c1 W7 m* Z6 E" e6 I) H
mypath = ActiveWorkbook.Path

FileName = Dir(mypath & "\*.*")'如果是僅需要統計特定類型的文件如EXCEL,將*.*改為*.xlsx即可,以此類推

i = 0
: t) y; O) @' U$ a0 A% O
Range("N:N").ClearContents
, w, W9 J2 c5 b) ]2 J0 U# s& i
0 t, D' T2 c6 |% B5 lDo While FileName > ""
# l2 Y0 _/ t8 w
$ j: Y# y& Q5 ri = i + 1
5 j4 i7 v3 j" {9 \
9 Y$ I# D% D- Z- lRange("N" & i) = FileName

FileName = Dir
$ D2 f# j3 H9 u- @2 Q- w" O
Loop

  J" u) t8 P" U/ R# OEnd Sub