excel怎么批量把xlsx格式转换为xls

介绍了两种方法批量将Excel中的XLSX格式文件转换为XLS格式，分别是使用Excel自带的保存为功能和使用VBA宏批量转换。这些方法能够帮助用户快速转换文件格式，提高工作效率。

在日常使用Excel过程中，我们常常会遇到需要将大量XLSX格式的文件转换为XLS格式的情况。如果手动一个一个转换，无疑是非常繁琐的。那么，有没有一种批量转换的方法呢？下面就为大家介绍两种批量转换的方法。

方法一：使用Excel自带的保存为功能

Excel自带的保存为功能可以帮助我们将XLSX格式的文件批量转换为XLS格式。具体步骤如下：

1. 在Windows资源管理器中，选中需要转换的文件（可以选中多个文件）。
2. 右键单击选中的文件，选择“复制”或者“剪切”。
3. 在任意文件夹中右键单击，选择“粘贴快捷方式”。此时会生成一个快捷方式。
4. 选中所有生成的快捷方式，并右键单击，选择“重命名”。
5. 将所有快捷方式的扩展名“.lnk”改为“.xlsx”。
6. 选中所有快捷方式，并右键单击，选择“打开方式”→“Microsoft Office Excel”。
7. 在Excel中打开所有文件后，依次点击“文件”→“另存为”→“Excel工作簿”，选择“Excel 97-2003工作簿(.xls)”格式，然后保存即可。

方法二：使用VBA宏批量转换

如果需要批量转换的文件数量较多，可以使用VBA宏来批量转换。具体步骤如下：

1. 打开Excel，按下“Alt+F11”打开VBA编辑器。
2. 在VBA编辑器中，依次点击“插入”→“模块”，在新建的模块中输入以下代码：
``` Sub BatchConvert() Dim MyFile As String Dim Filepath As String Dim MyFolder As Object Dim Excel Set Excel = CreateObject("Excel.Application") With Application.FileDialog(msoFileDialogFolderPicker) .Title = "请选择文件夹" .Show If .SelectedItems.Count = 0 Then Exit Sub Filepath = .SelectedItems(1) & "\" End With Set MyFolder = CreateObject("Scripting.FileSystemObject").GetFolder(Filepath) For Each MyFile In MyFolder.Files If Right(MyFile.Name, 5) = ".xlsx" Then Set wb = Excel.Workbooks.Open(MyFile.Path) wb.SaveAs Replace(MyFile.Path, ".xlsx", ".xls"), FileFormat:=xlExcel8 wb.Close End If Next Excel.Quit Set Excel = Nothing MsgBox "批量转换完成！" End Sub ```
3. 按下“F5”运行宏，选择需要转换的文件夹，点击“确定”即可批量转换文件。

通过以上两种方法，就可以轻松批量将XLSX格式的文件转换为XLS格式了。