如何在 Excel 中将多个 xls 文件转换为 xlsx 文件？

要将旧的 XLS Excel 文件转换为新的 XLSX 文件，您可以使用 Excel 中的“另存为”功能。但是，如果您需要一次性转换多个 XLS 文件，该如何高效地完成此任务呢？

• 使用“另存为”功能逐个将多个 xls 格式转换为 xlsx 格式
• 使用 VBA 代码一次性将多个 xls 格式转换为 xlsx 格式
• 使用强大功能一次性将多个 xls 格式转换为 xlsx 格式
• 一次性将多个工作簿转换为 PDF 文件

使用“另存为”功能逐个将多个 xls 格式转换为 xlsx 格式

Excel 中的“另存为”功能可以帮助您逐个将旧工作簿的 xls 格式转换为新的 xlsx 格式。

1. 打开您要转换格式的工作簿。

2. 单击“文件”>“另存为”，将弹出一个“另存为”对话框，指定一个文件夹以放置新格式的文件，然后单击“保存类型”下拉列表选择“Excel 工作簿”，请参见截图：

3. 然后单击“保存”按钮关闭对话框，此 Excel 格式已从 xls 转换为 xlsx。

使用 VBA 代码一次性将多个 xls 格式转换为 xlsx 格式

如果您想一次性将多个 xls 文件转换为 xlsx 文件而不必逐个保存，这里我将为您介绍一段 VBA 代码，请按照以下步骤操作：

1. 按住 ALT + F11 键打开 Microsoft Visual Basic for Applications 窗口。

2. 单击 “插入”>“模块”，然后将以下代码粘贴到模块窗口中。

VBA 代码：一次性将多个 xls 格式转换为 xlsx 格式

Sub ConvertToXlsx()
'Updateby Extendoffice
Dim strPath As String
Dim strFile As String
Dim xWbk As Workbook
Dim xSFD, xRFD As FileDialog
Dim xSPath As String
Dim xRPath As String
Set xSFD = Application.FileDialog(msoFileDialogFolderPicker)
With xSFD
.Title = "Please select the folder contains the xls files:"
.InitialFileName = "C:\"
End With
If xSFD.Show <> -1 Then Exit Sub
xSPath = xSFD.SelectedItems.Item(1)
Set xRFD = Application.FileDialog(msoFileDialogFolderPicker)
With xRFD
.Title = "Please select a folder for outputting the new files:"
.InitialFileName = "C:\"
End With
If xRFD.Show <> -1 Then Exit Sub
xRPath = xRFD.SelectedItems.Item(1) & "\"
strPath = xSPath & "\"
strFile = Dir(strPath & "*.xls")
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Do While strFile <> ""
If Right(strFile, 3) = "xls" Then
Set xWbk = Workbooks.Open(Filename:=strPath & strFile)
xWbk.SaveAs Filename:=xRPath & strFile & "x", _
FileFormat:=xlOpenXMLWorkbook
xWbk.Close SaveChanges:=False
End If
strFile = Dir
Loop
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

3. 按 F5 键运行此代码，将显示一个窗口，请选择包含要转换的 xls 文件的文件夹，请参见截图：

4. 单击“确定”，另一个窗口会弹出，请选择要输出新转换文件的文件夹路径，请参见截图：

5. 单击“确定”。转换完成后，导航到指定文件夹查看结果。

使用强大功能一次性将多个 xls 格式转换为 xlsx 格式

通过 Kutools for Excel 的“批量转换”工具，您可以将多个 xls 格式转换为 xlsx 格式，反之亦然，它还可以帮助您一次性将多个工作簿转换为 PDF 文件。

1. 单击“Kutools Plus”>“工作簿 ”>“批量转换”，请参见截图：

2. 将弹出一个提示框，提醒您必须关闭要转换的工作簿。请参见截图：

3. 单击“确定”，然后，在“批量转换 ”对话框中，指定以下选项：

• 在“转换类型”下拉列表中，选择“Excel 97-2003 转换为 Excel 2007 或更高版本”；
• 然后单击“添加”按钮以添加要转换的 xls 文件。您可以根据需要从计算机磁盘或 OneDrive 添加工作簿。

4插入 xls 文件后，仍在 批量转换 对话框中，请单击 按钮选择一个文件夹路径以输出转换后的文件，然后在对话框底部指定一些您需要的操作，请参见截图：

5. 然后单击“确定”开始转换。转换完成后，导航到指定文件夹查看结果。请参见截图：