跳到主要內容

如何在Excel中將多個xls文件轉換為xlsx文件?

要將舊的xls Excel文件轉換為新的xlsx文件,可以在Excel中應用“另存為”功能,但是,如果需要轉換多個xls文件,如何快速,輕鬆地處理此任務?


使用另存為功能將多種xls格式轉換為xlsx格式

Excel中的“另存為”功能可以幫助您將舊工作簿的xls格式一一轉換為新的xlsx格式。

1。 打開您要轉換其格式的工作簿。

2。 點擊 文件 > 另存為另存為 將顯示一個對話框,指定一個文件夾以放置文件的新格式,然後單擊 保存類型 下拉列表選擇 Excel工作簿,請參見屏幕截圖:

3。 然後點擊 節省 按鈕關閉對話框,並且此Excel格式已從xls轉換為xlsx。

保養竅門: 有了這個 另存為 函數,一次只轉換一個Excel文件,如果您需要轉換數百個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文件的文件夾,請參見屏幕截圖:

4。 然後,點擊 OK,會彈出另一個窗口,請選擇要輸出新轉換後文件的文件夾路徑,請參見屏幕截圖:

5。 然後,點擊 OK,完成轉換後,您可以轉到指定的文件夾預覽轉換結果,請參見屏幕截圖:


強大的功能可將多種xls格式一次轉換為xlsx格式

有了這個 Excel的Kutools“ 格式轉換器 實用程序,您可以將多種xls格式轉換為xlsx格式,反之亦然,它還可以幫助您一次將多種工作簿轉換為PDF文件。

注意:要應用此 格式轉換器,首先,您應該下載 Excel的Kutools,然後快速輕鬆地應用該功能。

安裝後 Excel的Kutools,請這樣做:

1。 點擊 Kutools 加 > 工作簿 > 格式轉換器,請參見屏幕截圖:

2。 然後將彈出一個提示框,提醒您必須關閉要轉換的工作簿。 看截圖:

3。 點擊 OK,然後,在 文件格式轉換器 對話框中,指定以下選項:

  • 轉換類型 下拉列表,選擇 Excel 97-2003至Excel 2007或更高版本;
  • 然後點擊 加入 按鈕以添加要轉換的xls文件,您可以根據需要從計算機磁盤或OneDrive中添加工作簿;

4。 插入xls文件後,仍然 文件格式轉換器 對話框,請單擊 按鈕選擇一個文件夾路徑以輸出轉換後的文件,然後在對話框底部指定所需的一些操作,請參見屏幕截圖:

筆記:在以上對話框中:
  • 如果子文件夾中的工作簿也需要轉換,請檢查 添加文件夾時包括子文件夾 複選框
  • 如果要在轉換後刪除原始文件,請檢查 轉換後刪除源文件 框;
  • 如果要保留原始文件的修改日期,請檢查 保留原始文件的修改日期 框;
  • 可以通過檢查以下內容來保留文件的目錄結構: 轉換後保留文件的目錄結構 框;

5。 然後點擊 OK 要開始轉換,請在完成轉換後轉到特定文件夾以預覽轉換結果。 查看屏幕截圖:

最佳辦公生產力工具

熱門特色: 尋找、突出顯示或識別重複項   |  刪除空白行   |  合併列或儲存格而不遺失數據   |   沒有公式的回合 ...
超級查詢: 多條件VLookup    多值VLookup  |   跨多個工作表的 VLookup   |   模糊查詢 ....
高級下拉列表: 快速建立下拉列表   |  依賴下拉列表   |  多選下拉列表 ....
欄目經理: 新增特定數量的列  |  移動列  |  切換隱藏列的可見性狀態  |  比較範圍和列 ...
特色功能: 網格焦點   |  設計圖   |   大方程式酒吧    工作簿和工作表管理器   |  資源庫 (自動文字)   |  日期選擇器   |  合併工作表   |  加密/解密單元格    按清單發送電子郵件   |  超級濾鏡   |   特殊過濾器 (過濾粗體/斜體/刪除線...)...
前 15 個工具集12 文本 工具 (添加文本, 刪除字符,...)   |   50+ 圖表 類型 (甘特圖,...)   |   40+ 實用 公式 (根據生日計算年齡,...)   |   19 插入 工具 (插入二維碼, 從路徑插入圖片,...)   |   12 轉化 工具 (數字到單詞, 貨幣兌換,...)   |   7 合併與拆分 工具 (高級合併行, 分裂細胞,...)   |   ... 和更多

使用 Kutools for Excel 增強您的 Excel 技能,體驗前所未有的效率。 Kutools for Excel 提供了 300 多種進階功能來提高生產力並節省時間。  點擊此處獲取您最需要的功能...

kte選項卡201905


Office選項卡為Office帶來了選項卡式界面,使您的工作更加輕鬆

  • 在Word,Excel,PowerPoint中啟用選項卡式編輯和閱讀,發布者,Access,Visio和Project。
  • 在同一窗口的新選項卡中而不是在新窗口中打開並創建多個文檔。
  • 將您的工作效率提高 50%,每天為您減少數百次鼠標點擊!
Comments (4)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Please could you change the VBA code so that it looks in subfolders of the chosen folder.
Could it also output a log file to show everything its converted?
This comment was minimized by the moderator on the site
Thank You!
This comment was minimized by the moderator on the site
Thanks so much for the VBA CODE. Very Useful
This comment was minimized by the moderator on the site
Can you save a xls as a xlsx and maintain 1,048,576 rows and XFD Columns?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations