Question

Sub Autosave()

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

在上面的代码中，我试图更改文件名＆＃34; NAME＆＃34;到范围的值＆＃34; A1＆＃34;但是它始终会抛出错误。有没有办法解决这个问题。

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

通过VBA自动保存

1 个答案: