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 

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

非常感谢

Ĵ

Answer 1

尝试添加保存命令:)

  Workbook.SaveAs fileSaveName 

http://msdn.microsoft.com/en-us/library/office/ff841185(v=office.15).aspx