如何在 Excel 中將多個 .xls 檔案批次轉換為 .xlsx 格式？

作者Xiaoyang修改日期2024-11-25

若要將舊版 XLS Excel 檔案轉換為新版 XLSX 格式，您可以透過 Excel 的「另存新檔」功能來達成。但若您需要一次轉換多個 XLS 檔案，該如何高效完成這項任務？

使用「另存新檔」功能逐一將多個 xls 格式轉換為 xlsx 格式
使用 VBA 程式碼一次將多個 xls 格式轉換為 xlsx 格式
使用強大功能一次將多個 xls 格式轉換為 xlsx 格式
一次將多個活頁簿轉換為 Pdf 文件

使用「另存新檔」功能逐一將多個 xls 格式轉換為 xlsx 格式

Excel 的「另存新檔」功能可協助您將舊版活頁簿的 .xls 格式逐一轉換為新版 .xlsx 格式。

1. 開啟您要轉換格式的活頁簿。

2. 按一下檔案> 另存新檔，此時會顯示另存新檔對話方塊。指定一個資料夾來存放新格式的檔案，然後從指定保存格式下拉式選單中選擇 Excel 工作表，請參閱截圖：

Excel 中將 XLS 轉換為 XLSX 格式的「另存新檔」對話框截圖

3. 接著按一下儲存按鈕以關閉對話方塊，此 Excel 檔案格式已從 .xls 轉換為 .xlsx。

提示：使用此另存新檔功能，您一次只能轉換一個 Excel 檔案。若您有數百個檔案需要轉換，此方法可能不切實際。

使用 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 檔案的資料夾，請參閱截圖：

提示選取輸入 XLS 檔案資料夾的截圖

4. 按一下確定，將彈出另一個視窗，請選擇資料夾以指定新轉換檔案的輸出路徑，請參閱截圖：

提示選取用於儲存 XLSX 輸出檔案資料夾的截圖

5. 按一下確定。轉換完成後，請立即前往指定資料夾檢視成果！

使用強大功能一次將多個 xls 格式轉換為 xlsx 格式

透過 Kutools for Excel 的批量轉換功能，您可一次將多個 xls 檔案轉換為 xlsx 格式（或反之亦然），還能輕鬆將多個活頁簿一鍵轉為 PDF 文件！

Kutools for Excel 提供超過 300 項進階功能，簡化複雜作業，提升創造力與效率。整合 AI 功能，Kutools 能精準自動化各項任務，讓資料管理輕鬆無負擔。Kutools for Excel 的詳細資訊…… 免費試用……

1. 點擊 KUTOOLS PLUS> 活頁簿> 批量轉換，請參閱截圖：

Excel 中 Kutools Plus 索引標籤內的「格式轉換器」工具截圖

2. 此時將彈出提示方塊，提醒您必須先關閉欲轉換的活頁簿。請參閱截圖：

提示在轉換前需先關閉活頁簿的訊息

3. 按一下確定，接著在批量轉換對話方塊中指定下列選項：

在轉換類型下拉清單中，選取 Excel 97-2003 轉換為 Excel 2007 或更高；
接著點擊新增按鈕，即可加入您要轉換的 xls 檔案。您可以依需求從電腦磁碟或 OneDrive 新增活頁簿。

「檔案格式轉換器」對話框截圖

4. 加入 xls 檔案後，若仍在批量轉換對話方塊中，請點擊按鈕，選擇輸出轉換後檔案的資料夾路徑，並於對話方塊底部設定其他所需操作，詳情請參閱截圖：

選取輸出資料夾與轉換選項的截圖

注意事項：在上述對話方塊中：

若子資料夾中的活頁簿也需要一併轉換，請勾選添加文件夾時包含子文件夾複選框；
若要在轉換後刪除原始檔案，請勾選成功後刪除源文件核取方塊；
若要保持源文件的更改時間，請勾選保留原始檔案的修改時間核取方塊；
勾選轉換時保留文件的目錄結構核取方塊，即可保留檔案的目錄結構；

5. 接著按一下確定以開始轉換。轉換完成後，請立即前往指定資料夾檢視成果！詳情請參閱截圖：

Kutools for Excel－透過超過 300 項必備工具全面強化 Excel，讓您的工作更快速、更輕鬆，並運用 AI 功能實現更聰明的資料處理與高效生產力！立即取得

最佳 Office 生產力工具

🤖	KUTOOLS AI 助手：基於以下內容徹底革新數據分析：智慧執行｜產生程式碼｜建立自訂公式｜分析資料並產生圖表｜呼叫增強函數……
	熱門功能：尋找、醒目提示或標記重複值｜刪除空白行｜合併列或儲存格而不遺失資料｜不使用公式的四捨五入……
	高級 LOOKUP：多重條件 VLookup ｜多重數值 VLookup ｜跨多個工作表 VLookup ｜模糊查找……
	高級下拉列表：快速建立下拉式清單｜相依式下拉式清單｜多選下拉式清單……
	欄位管理員：新增指定數量的欄位｜移動欄位｜切換隱藏欄位的可見狀態｜比較範圍與欄位……
	精選功能：網格聚焦｜設計視圖｜增強編輯欄｜工作簿與工作表管理員｜資源庫（自動文字）｜日期提取｜合併工作表｜加密／解密儲存格｜依清單傳送電子郵件｜超級篩選｜特殊篩選（篩選粗體儲存格／斜體／刪除線……） ......
	頂尖 15 工具組：12 文字工具（添加文本，刪除特定字符，……）｜ 50+ 圖表類型（甘特圖，……）｜ 40+ 實用公式（基於生日計算年齡，……）｜ 19 插入工具（插入二維碼，從路徑插入圖片，……）｜ 12 轉換工具（金額轉大寫，匯率轉換，……）｜ 7 合併和拆分工具（高級合併行，分割儲存格，……）｜……以及更多