如何在Excel中将多个XLS文件转换为XLSX文件？

Excel 97到Excel 2003之间的Excel文件的默认格式为Xls，而以上版本默认格式为Xlsx。两者都是Excel文件扩展名。如果我们的系统中存在任何旧文件，并且我们需要在这些文件上使用新功能，那么将它们转换为新的扩展名非常必要。如果只有一个文件，我们可以使用“另存为”功能来完成任务，但是对于多个文件来说，这可能很耗时。我们可以使用VBA应用程序以更快的速度完成任务。阅读本教程，了解如何将多个XLS文件转换为Excel中的XLSX文件。

将多个XLS文件转换为Excel中的XLSX文件

在这里，我们将首先创建一个模块，然后运行它来转换文件。让我们看一下使用vba应用程序将多个Xls文件转换为Xlsx文件的简单过程。

步骤1

让我们考虑一个新的Excel工作表，然后右键单击工作表名称并选择“查看代码”以打开vba应用程序，然后单击“插入”，选择“模块”，并将下面提到的程序键入文本框中，如下面的图像所示。

右键单击 > 查看代码 > 插入 > 模块 > 程序

程序

Sub ConvertToXlsx()
'Update By Nirmal
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