将Excel工作簿保存为具有2个字段的文件名的常量path

我是绝对新的Excelmacros，我试图search和放在一起的代码，以适应我的目的，但没有运气。 我希望有人慷慨地帮助我。

Sub save() ActiveWorkbook.SaveAS Filename:="C:\-docs\cmat\Desktop\New folder\ck.xls", FileFormat:= _ xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _ , CreateBackup:=False End Sub 

如何将其编辑为：而不是命名保存的文件ck.xls，生成工作表单元格C5和C8中的文件名，中间有一个空格。

Answer 1

尝试

 Sub save() ActiveWorkbook.SaveAS Filename:="C:\-docs\cmat\Desktop\New folder\" & Range("C5").Text & chr(32) & Range("C8").Text &".xls", FileFormat:= _ xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _ , CreateBackup:=False End Sub 

如果要用macros保存工作簿，请使用下面的代码

 Sub save() ActiveWorkbook.SaveAs Filename:="C:\Users\" & Environ$("username") & _ "\Desktop\" & Range("C5").Text & Chr(32) & Range("C8").Text & ".xlsm", FileFormat:= _ xlOpenXMLWorkbookMacroEnabled, Password:=vbNullString, WriteResPassword:=vbNullString, _ ReadOnlyRecommended:=False, CreateBackup:=False End Sub 

如果要保存没有macros的工作簿，并且没有popup窗口，请使用此工作簿

 Sub save() Application.DisplayAlerts = False ActiveWorkbook.SaveAs Filename:="C:\Users\" & Environ$("username") & _ "\Desktop\" & Range("C5").Text & Chr(32) & Range("C8").Text & ".xls", _ FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False Application.DisplayAlerts = True End Sub 

Answer 2

好的，当时在朋友的帮助下完成了，代码如下所示。

 Sub Saving() Dim part1 As String Dim part2 As String part1 = Range("C5").Value part2 = Range("C8").Value ActiveWorkbook.SaveAs Filename:= _ "C:\-docs\cmat\Desktop\pieteikumi\" & part1 & " " & part2 & ".xlsm", FileFormat:= _ xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False End Sub 

我如何编辑这个部分（FileFormat：= _ xlOpenXMLWorkbookMacroEnabled）为它保存为Excel 97-2013工作簿，已经尝试了几个变化，没有成功。 谢谢

似乎，我find了解决办法，但我的想法是有缺陷的。 通过这样做FileFormat：= _ xlOpenXMLWorkbook，它会popup一个说出来，你不能保存这个工作簿作为一个没有启用macros的文件。 那么，这是不可能的？