VBA сохранить как не работает в Excel 2013

Question

Я надеюсь, я надеюсь, некоторые из них могут помочь мне

Я пытаюсь использовать приведенный ниже код для сохранения файлов в Excel 2013, но я получаю следующее сообщение об ошибке: -

Метод 'SAVEAS' объект '__ Workbook' не удалось

Может кто-нибудь посоветовать?

Sub SaveFile() 

Dim Destwb As Workbook 
Dim FolderName As String 
Dim Sourcewb As Workbook 
Dim FileExtStr As String 
Dim FileFormatNum As Long 
Dim Name As String 

Set Sourcewb = ThisWorkbook 
Set Destwb = ActiveWorkbook 
Name = Cells(2, 2).Value 

FolderName = Sourcewb.Path & "\Files_with_graphs" 
FileExtStr = ".xls": FileFormatNum = 56 

With Destwb 
     .SaveAs FolderName _ 
     & "\" & Name & FileExtStr, FileFormat:=FileFormatNum 
     .Close False 

End With 

End Sub 

Answer 1

Вы используете недопустимый формат файла.

.xls является формат Excel 97-2003, для которого вы хотите -4143 не 56

Видя, как вы работаете с объектной моделью Excel вы можете просто использовать xlFileFormat перечисление, которое также лучше для совместимости:

FileFormatNum = xlFileFormat.xlWorkbookNormal 

MSDN - xlFileFormat Enumeration