如何在 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. 然後點擊「確定」開始轉換。轉換完成後，導航到指定的資料夾查看結果。請參閱截圖：