資料夾內的檔案名稱修改

cyfchuang

請益各位

在一個資料夾內，有 Excel、PDF 檔案
PDF 檔案是流水號，例如 TA8001、TA8002........TA8010
我想要利用 VBA，把資料夾內的 PDF 檔案名稱修改，檔案名稱是活頁簿的 C2 - C11【或更多】，視檔案數量 = 檔案名稱數量
這樣怎麼寫出所要的 VBA 程式碼，謝謝各位的指導

闻启学

亲  上传附近  看看文件才能知道

lss001

见楼下分析

cyfchuang

lss001 发表于 2025-6-11 07:49
Sub 重命名pdf文件()
Dim ph$, f$, k&
ph = ThisWorkbook.Path & "\" '指定文件夹

謝謝指導
程式卡在這裡，可以怎麼處理這個異常

liulang0808

https://club.excelhome.net/threa ... tml?_dsign=73cffde5
资料可以参考下

温馨云

X=Cells(Rows.Count, "C").End(xlUp).Row

lss001

cyfchuang 发表于 2025-6-11 10:51
謝謝指導
程式卡在這裡，可以怎麼處理這個異常

arr上面先激活一下放置文件名称的表格

如表名为→fName
Worksheets("fName").Select

cyfchuang

温馨云 发表于 2025-6-11 11:41
X=Cells(Rows.Count, "C").End(xlUp).Row

謝謝回復與指導
換卡在這裡，應該怎麼修改

cyfchuang

lss001 发表于 2025-6-11 11:42
arr上面先激活一下放置文件名称的表格

如表名为→fName

謝謝回復與指導
換卡在這裡，應該怎麼修正

lss001

见以下楼分析