vba - 使用 VBA 重命名文件

Question

我在 vba 中重命名文件时遇到问题。

我只知道文件名的某个部分，例如它以快乐开头。我希望能够将此文件重命名为我想要的任何名称。只会有一个名为happy* 的文件。我有下面的代码，但它在 Name ffile As NewName 上给了我一个“找不到文件”错误

Sub ReNaming()

Dim ffile As String

ffile = Dir("h:\folder1\happy*")
NewName = "yellow.xlsx"
Name ffile As NewName


End Sub

我知道这可能不是正确的方法，但问题的通配符部分导致了所有问题!

任何帮助都会很棒。

谢谢

Answer 1

最好尽可能具体和彻底，因为您可以获得可用的信息。

ffile = Dir("h:\folder1\happy*.xlsx")
NewName = "yellow.xlsx"
Name "h:\folder1\" & ffile As "h:\folder1\" & NewName

虽然 .xlsx没有必要，将任何不是 .xlsx 工作簿的内容重命名为 .xlsx 工作簿是没有意义的。