Vba Excel工作表未保存

下面我有一段代码，它保存了一张excel表格，其中包含几个单元格的内容。当我运行代码时，没有检测到错误。出现我想要的“另存为”框，我按“另存为普通”，它似乎已保存，但不会保存或覆盖文件

Sub FileSave()

Dim IntialName As String Dim fileSaveName As Variant InitialName =
Range("C2") & "Cash Sheet" fileSaveName =
Application.GetSaveAsFilename(InitialFileName:=InitialName, _
fileFilter:="Excel Files (*.xls), *.xls")

If fileSaveName <> False Then
MsgBox "Save as " & fileSaveName End If

End Sub

不确定为什么会发生这种情况

非常感谢

---

J

尝试添加保存命令：

    Workbook.SaveAs fileSaveName 

---

在代码中没有执行实际保存的位置。您正在获取要保存的文件名，检查文件名是否为真？然后代码完成。保存方法在哪里？