　暱稱: 阿龍

帖子: 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

4^#

發表於 2015-11-30 11:54 | 只看該作者

回復 3# GBKEE

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

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

3^#

發表於 2015-11-30 06:05 | 只看該作者

回復 2# n7822123

試試看

Option Explicit
Sub 更改檔名()
Dim 要替換 As String
Dim 替換為 As String
Dim 副檔名 As String
Dim myFile As String
Dim myPath As String
Dim 舊檔名 As String
Dim 新檔名 As String
要替換 = Cells(4, 3)
替換為 = Cells(4, 4)
副檔名 = Cells(4, 5)
myPath = ThisWorkbook.Path
myFile = Dir(myPath & "\*." & 副檔名)
Do While myFile <> "" '=>If myFile = "" Then Exit Do
If myFile <> ThisWorkbook.Name Then
舊檔名 = myPath & "\" & myFile
新檔名 = Replace(myFile, 要替換, 替換為)
新檔名 = myPath & "\" & 新檔名
Name 舊檔名 As 新檔名
End If
myFile = Dir '下一個檔案:
Loop
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

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