Excel表格未保存

Question

下面有一段代码可以保存带有几个单元格内容的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

尝试添加save命令：）

    Workbook.SaveAs fileSaveName 

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