Access VBA - 重命名文件名称中的句点

Question

所以，我正在尝试将文件（注册跟踪 07.30.xlsx）重命名为“注册跟踪.xlsx”，但它讨厌日期中的句点，并且不会这样做。

    Path = "V:\CORPDATA17\MBRSHIPANDBILL\Alegeus Migration Tracker\Daily Reports\"
    OriginalName = Dir("V:\CORPDATA17\MBRSHIPANDBILL\Alegeus Migration Tracker\Daily Reports\*Enrollment tracking*")
    NewName = "V:\CORPDATA17\MBRSHIPANDBILL\Alegeus Migration Tracker\Daily Reports\Enrollment tracking.xlsx"
    Name Path & OriginalName As NewName

它会抛出运行时错误 75: "Path/File access error"...

有没有办法做到这一点？我可以让它用“OriginalName”变量识别文件名（它将显示为“Enrollment tracking 07.30.xlsx”），但我不能让它重命名文件。

Answer 1

句号不是问题，是路径。

仔细看看你的最后一行：

Name Path & OriginalName As NewName

问题是你已经把路径放在变量OriginalName中了，如下图：

Path = "V:\CORPDATA17\MBRSHIPANDBILL\Alegeus Migration Tracker\Daily Reports\"
OriginalName = Dir("V:\CORPDATA17\MBRSHIPANDBILL\Alegeus Migration Tracker\Daily Reports\*Enrollment tracking*")

所以，您正在尝试重命名路径和原始名称下的文件，这将是：

"V:\CORPDATA17\MBRSHIPANDBILL\Alegeus Migration Tracker\Daily Reports\V:\
CORPDATA17\MBRSHIPANDBILL\Alegeus Migration Tracker\Daily Reports\
*Enrollment tracking*"

这会导致错误，这是可以理解的。

尝试用简单的替换你的最后一行：

Name OriginalName As NewName

我在我的电脑上尝试了这种方法，它成功了，这是我的完整代码：

Sub changeFileName()
    origFile = "C:\Users\mitchellb\Desktop\1.2.3.txt"
    NewFile = "C:\Users\mitchellb\Desktop\123.txt"
    Name origFile As NewFile
End Sub

编辑：您实际上可以使用 Dir() 函数，当我测试上面的代码时，我忘了包含它。这段代码也对我有用，所以文件/路径名可能有错误？这就是错误似乎表明的内容。见代码：

Sub changeFileName2()
    Path = "C:\Users\mitchellb\Desktop\"
    origFile = Dir("C:\Users\mitchellb\Desktop\1.2.3.txt")
    NewFile = "C:\Users\mitchellb\Desktop\123.txt"
    Name Path & origFile As NewFile
End Sub