VBA文件格式另存为.xls

Question

我有一个宏可以将活动工作表保存到新工作簿中。 但是它想将其另存为.xlsx，我需要将其另存为.xls

Private Sub SaveBarList_Click()
ActiveSheet.Copy
With ActiveSheet.UsedRange
    .Copy
    .PasteSpecial xlValues
    .PasteSpecial xlFormats
End With
Dim strDir As String

'Show standard save as dialogue box
With Application.FileDialog(msoFileDialogSaveAs)
    If .Show = -1 Then
        strDir = .SelectedItems(1)
    End If
End With

Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=Application.GetSaveAsFilename, FileFormat:=-4143
Application.DisplayAlerts = True

ActiveWorkbook.Close

End Sub

Answer 1

ActiveWorkbook.SaveAs方法具有一个允许使用不同文件格式的成员： XlFileFormat枚举 。 .xlsx旁有几种格式可通过此格式使用，包括.xls。

请注意，MSDN关于.SaveAs的文章（上面的第一个链接）说：“对于现有文件，默认格式是指定的最后一个文件格式；对于新文件，默认格式是所使用的Excel版本的格式。”