VBA另存爲在Excel 2013

Question

的工作，我希望我希望一些能幫助我

我嘗試使用下面的代碼保存在Excel 2013文件，但我收到以下錯誤信息： -

方法 '另存爲' 對象 '__工作簿' 失敗

誰能指教？

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格式，你想不-414356

看到，因爲你與Excel對象模型的工作，你可以只使用xlFileFormat枚舉這也是兼容性更好：

FileFormatNum = xlFileFormat.xlWorkbookNormal 

MSDN - xlFileFormat Enumeration