Excel 工作表不保存答案

【问题标题】：Excel Sheet not savingExcel 工作表不保存
【发布时间】：2014-12-02 09:09:16
【问题描述】：

我在下面有一段代码，它保存了一个包含几个单元格内容的 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

不确定为什么会这样。

非常感谢

【问题讨论】：

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

标签： vba excel

【解决方案1】：

尝试添加保存命令:)

    Workbook.SaveAs fileSaveName

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

【讨论】：