Question

因此，我尝试将文件（注册跟踪07.30.xlsx）重命名为“ Enrollment tracking.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：“路径/文件访问错误” ...

有没有办法做到这一点？我可以使用“ 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

访问VBA-重命名带有句点的文件

1 个答案: