Лист 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 

Непонятно, почему это происходит.

Большое спасибо

J

Answer 1

Попробуйте добавить команду сохранить :)

Workbook.SaveAs fileSaveName 

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