Excel VBA文件保存

Question

我正在尝试在excel模板上设置自动保存功能，以使原始模板不会被覆盖。

Dim NameFile As String

'Gets the users username
UserName = Environ$("UserName")

'User is to input data type 
datat= Application.InputBox("Enter a Data Type", "Data Type")

    With Worksheets("Home")



    'Sets up auto filename with YearMonthDay - Username - Filename(From a specific Cell) - Data Type
    NameFile = Format(Date, "yyyymmd") & " - " & UserName & " - " & Range("A1") & " - " & datat & ".xlsm"
    End With
    'Sets up save location
    NameFile = Application.GetSaveAsFilename(InitialFileName:=Environ("USERPROFILE") & "\Desktop\" & NameFile, Filefilter:=" Excel (*.xlsm), *.xlsm")

    If NameFile = False Then
    'Tell user with a caution that the file has not been saved

    MsgBox "File not saved", vbCritical, "Caution"

    Exit Sub

    Else
    ThisWorkbook.SaveAs Filename:=NameFile

    MsgBox "File Saved"
    End If

当我不保存文件并单击取消时，我得到一个消息框，告诉我该文件尚未保存...这就是我想要的。

但是，当我确实使用给定名称保存文件时，出现运行时错误“ 13”，键入不匹配

我究竟做错了什么？

Answer 1

你应该昏暗 NameFile为Variant

这样，它可以容纳Boolean或String 。