資料夾內的檔案名稱修改

半百

cyfchuang 发表于 2025-6-11 13:48
謝謝回復與指導
換卡在這裡，應該怎麼修正

arr是二维数组，应该arr(k , 1)

温馨云

cyfchuang 发表于 2025-6-11 13:44
謝謝回復與指導
換卡在這裡，應該怎麼修改

f = Dir(ph & "*.pdf")
这只读到一个文件，f 要跟arr(k)对应，如果不熟悉应用，表格里最好是原文件名一列，新文件名一列。

cyfchuang

lss001 发表于 2025-6-11 14:03
Worksheets("HUZ").Select
x = Cells(Row.Count, "C").End(xlUp).Row
arr = Range("C2:C" & x)

謝謝回復與指導
第一個檔名修改完成，更改第二個檔名卡住，應該怎麼做修正

lss001

Worksheets("HUZ").Select
x = Cells(Row.Count, "C").End(xlUp).Row
arr = Range("C2:C" & x)
k = 1
Do Until f = ""
    Name ph & f As ph & arr(k, 1) & ".pdf"
    k  = k + 1
    f = dir '此处递增文件
Loop

cyfchuang

温馨云 发表于 2025-6-11 14:50
f = Dir(ph & "*.pdf")
这只读到一个文件，f 要跟arr(k)对应，如果不熟悉应用，表格里最好是原文件名一 ...

不懂
這樣應該要怎麼修改，才可以運行做出想要的結果

温馨云

cyfchuang 发表于 2025-6-11 15:17
不懂
這樣應該要怎麼修改，才可以運行做出想要的結果

要先获取文件名，才能针对改名。
比如：

1. Sub 获取文件名()
   
2.     mypath = "D:\测试 (5)"
   
3.     Dim StrFile As String
   
4.     StrFile = Dir(mypath)
   
5.     Do While Len(StrFile) > 0
   
6.         MsgBox StrFile
   
7.         StrFile = Dir
   
8.     Loop
   
9. End Sub

复制代码

前面老师说过要附件的，不然全都得靠猜。至少也要截图一两张，再附上说明。你C列的是重新命名的文件名？

温馨云

获取文件名→放到A列，然后B列是新的文件名

先运行（获取文件名），然后重命名。
你参考着修改。

1. Sub 重命名()
   
2.     On Error Resume Next
   
3.     ph = "D:\测试 (5)"
   
4.     r1 = Cells(Rows.Count, "A").End(xlUp).Row
   
5.     For i = 2 To r1
   
6.         filePath = ph & Cells(i, 1)
   
7.         newFilePath = ph & Cells(i, 2)
   
8.         Name filePath As newFilePath
   
9.         If Err.Number <> 0 Then
   
10.             MsgBox Prompt:="不能重命名文件", _
    
11.                 Buttons:=vbOKOnly, _
    
12.                 Title:="重命名文件错误"
    
13.         End If
    
14.     Next
    
15.     On Error GoTo 0
    
16. End Sub
    
17. 
    
18. Sub 获取文件名()
    
19.     ph = "D:\测试 (5)"
    
20.     Dim StrFile As String
    
21.     StrFile = Dir(ph)
    
22.     n = 1
    
23.     Do While Len(StrFile) > 0
    
24.         n = n + 1
    
25.         Cells(n, 1) = StrFile
    
26.         StrFile = Dir
    
27.     Loop
    
28. End Sub
    

复制代码

cyfchuang

抱歉，附上檔案
需要 VBA 協助將檔案夾內的 PDF，依序將檔名改為 Excel C2 以下的名稱

半百

cyfchuang 发表于 2025-6-11 14:53
謝謝回復與指導
第一個檔名修改完成，更改第二個檔名卡住，應該怎麼做修正

   k=k + 1
   f=dir   '继续查找文件
loop
你这个是随机重命名，不需要对应吗？

cyfchuang

半百 发表于 2025-6-11 16:30
k=k + 1
   f=dir   '继续查找文件
loop

可以運作了，感謝幫忙
目前只是 VBA 新手，會簡單的錄製與在網路上尋找資料做修改
太深奧的還無法理解，會努力學習的