VBA另存为在Excel 2013中不起作用

我希望我希望有人能帮助我

我试图使用下面的代码来保存Excel 2013中的文件，但我收到以下错误信息： –

方法'另存为'对象'__工作簿'失败

任何人都可以build议吗？

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枚举