用workbook.save as功能以制定工作表中制定单元格名称保存文件

arrowlong

求助各位大神，

我需要使用workbook.saveas功能，把文件以第一张工作簿中L6单元格的内容保存，目前我的代码如下，但是会报错

“无法在未启用宏的工作薄中保存以下功能：

VB项目”

但是我文件名的后缀已经改为".xlsm"，请各位指教（因公司电脑限制上传任何文件，所以只能如此表述，请见谅）；

代码为：
Sheets("概况").Select
    Range("E38").Select
    ActiveWorkbook.SaveAs Filename:="D:\Users\zhangsan001.PAICDOM\Desktop\账单\8月账单\" & ThisWorkbook.Sheets(1).[l6] & ".xlsm", _
    FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

zjdh

你要将写入宏的文件另存为：.xlsm文件，而不是修改一下后缀！

ione_fox

1. FileFormat:=xlOpenXMLWorkbookMacroEnabled

复制代码