麻辣家族討論版版 » Excel程式區 » 大量檔名對應修改

返回列表下一主題上一主題發帖

[發問] 大量檔名對應修改

中學生 Rank: 2

帖子: 57
主題: 36
精華: 0
積分: 94
點名: 0
作業系統: win7
軟體版本: office2013
閱讀權限: 20
註冊時間: 2014-9-10
最後登錄: 2024-8-13

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2023-7-4 12:51 | 只看該作者

[發問] 大量檔名對應修改

大家好
目前針對大量檔名修改
我已經可以將特定目錄下的檔案名稱抓到欄位A欄內
而接下來人工將B欄位對應的新名稱填入後
需要讓程式自己去修改檔案名稱為新名稱
想請問大家這是否有可參考的方式來處理
有點抓不著頭緒
謝謝

Sub listfiles()
Dim oFSO As Object
Dim oFolder As Object
Dim oFile As Object
Dim i As Integer
Worksheets.Add().Name = "listfile" 'add new sheet and name to listfle
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFolder = oFSO.GetFolder("D:\Desktop\New folder")
Cells(1, 1) = "Existing File Name"
Cells(1, 2) = "New File Name"
i = 2
For Each oFile In oFolder.Files
Cells(i, 1) = oFile.Name 'file name
i = i + 1
Next oFile
End Sub

複製代碼

樓主熱帖

收藏

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-25

2^#

發表於 2023-7-4 16:54 | 只看該作者

在不考慮有簡體中文或日文檔名//
Old_Name = "路徑\" & 原檔名.副檔名
New_Name = "路徑\" & 新檔名.副檔名
If Dir(Old_Name) <> "" Then Name Old_Name As New_Name

靜思自在 : 人要自愛，才能愛普天下的人。

返回列表下一主題上一主題