VBA speichern als nicht in Excel 2013

Question

Arbeits Ich hoffe, ich bin der Hoffnung, einige mir

helfen kann, Ich versuche, den folgenden Code zu verwenden, um Dateien in Excel 2013 zu speichern, aber ich folgende Fehlermeldung erhalten: -

Methode 'SaveAs' Objekt '__ Arbeitsmappe' failed

Kann jemand raten?

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

Sie verwenden ein ungültiges Dateiformat.

.xls ist Excel 97-2003-Format, für die Sie -4143 nicht 56

sehen wollen würde, wie Sie mit dem Excel-Objektmodell arbeiten können Sie einfach die xlFileFormat Aufzählung verwendet werden, die auch für die Kompatibilität besser ist:

FileFormatNum = xlFileFormat.xlWorkbookNormal 

MSDN - xlFileFormat Enumeration