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