excel - 在 Excel 中复制并重命名未打开的工作簿

Question

我正在尝试复制位于一个文件路径的整个未打开的工作簿，将其重命名并将其保存到新目录...我在重命名和保存时遇到问题，这是迄今为止我的代码:

Private Sub new_file_Click()
Dim ActBook As Workbook, NewFile As String
Dim ToolFilePath As String, DestFilePath As String, NewToolName As String
NewToolName = InputBox("Enter the Tool Name.")

MsgBox (Tools_ListBox.Value)
ToolFilePath = GetToolPath(Tools_ListBox.Value)
ToolFilePath = GetPath & ToolFilePath

DestFilePath = GetPath & GetDestPath(Tools_ListBox.Value) & NewToolName & ".xlsm"

Set ActBook = Workbooks.Add(ToolFilePath)
ActBook.SaveAs DestFilePath
ActBook.Close True

我要复制的文件位于 ToolFilePath 中的路径，我想要将其重命名为 DestFilePath，其中包含 excel .xlsm 扩展名。

我哪里出错了？

谢谢

Answer 1

为什么不直接使用:

FileCopy ToolFilePath, DestFilePath

无需打开它。