返回列表 上一主題 發帖

[分享] 小工具-批次改檔名

n7822123
　暱稱: 阿龍

中學生Rank: 2

帖子
406 
主題
8 
精華
0 
積分
453 
點名
0  
作業系統
WINDOWS 7 
軟體版本
2007 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2015-2-7 
最後登錄
2021-7-31 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2015-11-30 01:42 | 顯示全部帖子

[分享] 小工具-批次改檔名

本帖最後由 n7822123 於 2015-11-30 01:45 編輯

小弟在公司常常會大量複製檔案再更改檔名，所以做了這個小工具
我想應該不只我會用到，分享給大家
裡面有範例檔案與兩個excel檔，2003(.xls)與2007(.xlsm)
我是用2007做的，降存為2003讓2003版本的人也可使用。
使用方法如圖，只能更改與excel檔案同路徑的檔案
應該很易懂。




批次改檔名範例檔.rar (27.34 KB)
收藏 分享

n7822123
　暱稱: 阿龍

中學生Rank: 2

帖子
406 
主題
8 
精華
0 
積分
453 
點名
0  
作業系統
WINDOWS 7 
軟體版本
2007 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2015-2-7 
最後登錄
2021-7-31 
2#
發表於 2015-11-30 02:19 | 顯示全部帖子
回復 1# n7822123


發現程式碼有點小瑕疵，如果改的檔案也是excel檔，可能改不完全就跳出迴圈
做了以下更動，重新附上檔案。

Do
  If myFile = "" Then Exit Do
  If myFile = ThisWorkbook.Name Then GoTo 下一個檔案
  舊檔名 = myPath & "\" & myFile
  新檔名 = Replace(myFile, 要替換, 替換為)
  新檔名 = myPath & "\" & 新檔名
  Name 舊檔名 As 新檔名

下一個檔案:
  myFile = Dir
Loop

批次改檔名範例檔.rar (27.55 KB)

TOP

n7822123
　暱稱: 阿龍

中學生Rank: 2

帖子
406 
主題
8 
精華
0 
積分
453 
點名
0  
作業系統
WINDOWS 7 
軟體版本
2007 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2015-2-7 
最後登錄
2021-7-31 
3#
發表於 2015-11-30 11:54 | 顯示全部帖子
回復 3# GBKEE


    不愧是超級版主，修改的簡潔易懂

TOP

        靜思自在 : 稻穗結得越飽滿，越會往下垂，一個人越有成就，就要越有謙沖的胸襟。
返回列表 上一主題