使用单元格值作为标题将工作表另存为新工作簿

Question

我有以下代码：

Sub SaveFinalMTO()
Application.ScreenUpdating = False
Sheets("Final MTO").Select
Sheets("Final MTO").Copy
'grab the file name from b6:m6, put it in variable ThisFile
ThisFile = Sheets("Final MTO").Range("b6:m6").Value
Sheets("Final MTO").SaveAs Filename:="C:UsersownerDesktop" & ThisFile & ".xlsm"
Application.ScreenUpdating = True
ActiveWorkbook.Close
End Sub

在某种程度上，一切正常。 将使用正确的工作表创建新工作簿。 新文件将打开，但文件名为"Book1"，而不是范围B6:M6中的值，范围是使用连接函数的合并单元格。 我尝试使用一个只有一个值的未合并，我仍然在拉起一个

运行时错误"13">

任何帮助解决此错误将不胜感激。谢谢。

Answer 1

如果要

另存为启用宏的文件类型，则必须指定该文件类型。此外，您还可以使用 Environ$ 使文件夹名称动态化。

Sheets("Final MTO").SaveAs Filename:="C:Users" & Environ$("Username") & "Desktop" & ThisFile & ".xlsm", xlOpenXMLWorkbookMacroEnabled

XL文件格式枚举