通过VBA自动保存

Sub Autosave() ActiveWorkbook.SaveAs Filename:="C:\Users\PC\Desktop\NAME.xlsm" _ , FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False End Sub 

在上面的代码中，我尝试将文件名“NAME”更改为范围“A1”的值，但始终引发错误。 有没有办法解决这个问题。

Answer 1

将范围“A1”的值另存为

 Sub Autosave() Dim FileName As String FileName = Sheets("Sheet1").Range("A1").Text ActiveWorkbook.SaveAs FileName:="C:\Users\PC\Desktop\" & FileName _ , FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False End Sub