Question

我希望我希望有人可以帮助我

我正在尝试使用以下代码在Excel 2013中保存文件，但我收到以下错误消息： -

方法＆＃39; SaveAs＆＃39;对象＆＃39; __工作簿＆＃39;失败

有人可以提供建议吗？

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 Enumeration

VBA保存为不在Excel 2013中工作

1 个答案: