我正在尝试复制位于一个文件路径的整个未打开的工作簿,将其重命名并将其保存到新目录...我在重命名和保存时遇到问题,这是迄今为止我的代码:
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 扩展名。
我哪里错了?
Thanks
为什么不直接使用:
FileCopy ToolFilePath, DestFilePath
无需打开它。
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)