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