VBA文件格式另存为.xls

Question

I have a macro to save the active worksheet to a new workbook. However it wants to save it as .xlsx and I need it to save as .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

The ActiveWorkbook.SaveAs method has a member that allows different file formats: XlFileFormat Enumeration . There are several formats available through this beside .xlsx, including .xls.

Please note that MSDN's article on .SaveAs (first link above) says "For an existing file, the default format is the last file format specified; for a new file, the default is the format of the version of Excel being used."