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版本的格式。”