我有一個包含一個文本檔案的檔案夾，
我可以使用下面的代碼成功重命名它。
問題如果更改了該檔案的初始名稱，則會引發錯誤File not found。
所以，我需要(Desktop)使用 VBA重命名子檔案夾上的那個檔案（什么名字）。
提前感謝您的幫助。
Sub Rename_File()
Dim oldName As String
Dim newName As String
oldName = "C:\Users\Waleed\Desktop\Test.txt"
newName = "C:\Users\Waleed\Desktop\work.txt"
Name oldName As newName
End Sub
uj5u.com熱心網友回復：
使用以下代碼，假設目錄中只有一個檔案
Sub Rename_File()
Const pathName = "D:\TMP\01" `<= Change accordingly
Dim oldName As String
Dim newName As String
oldName = Dir(pathName & Application.PathSeparator & "*.*")
oldName = pathName & Application.PathSeparator & oldName
newName = pathName & Application.PathSeparator & "work.txt"
Name oldName As newName
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/qukuanlian/407225.html
標籤：
上一篇：發現即使存在也不回傳值
下一篇：在作業簿之間翻轉并寫入資料