Note: The other languages of the website are Google-translated. Back to English

如何在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 要開始轉換,請在完成轉換後轉到特定文件夾以預覽轉換結果。 查看屏幕截圖:


最佳辦公效率工具

Kutools for Excel 解決了你的大部分問題,並將你的生產力提高了 80%

  • 重用: 快速插入 複雜的公式,圖表 以及您以前使用過的任何東西; 加密單元 帶密碼 創建郵件列表 並發送電子郵件...
  • 超級公式欄 (輕鬆編輯多行文本和公式); 閱讀版式 (輕鬆讀取和編輯大量單元格); 粘貼到過濾範圍...
  • 合併單元格/行/列 不會丟失數據; 拆分單元格內容; 合併重複的行/列...防止細胞重複; 比較範圍...
  • 選擇重複或唯一 行; 選擇空白行 (所有單元格都是空的); 超級查找和模糊查找 在許多工作簿中; 隨機選擇...
  • 確切的副本 多個單元格,無需更改公式參考; 自動創建參考 到多張紙; 插入項目符號,複選框等...
  • 提取文字,添加文本,按位置刪除, 刪除空間; 創建和打印分頁小計; 在單元格內容和註釋之間轉換...
  • 超級濾鏡 (將過濾方案保存並應用於其他工作表); 高級排序 按月/週/日,頻率及更多; 特殊過濾器 用粗體,斜體...
  • 結合工作簿和工作表; 根據關鍵列合併表; 將數據分割成多個工作表; 批量轉換xls,xlsx和PDF...
  • 超過 300 項強大的功能. 支持 Office / Excel 2007-2021 和 365。支持所有語言。 在您的企業或組織中輕鬆部署。 完整功能 30 天免費試用。 60 天退款保證。
kte選項卡201905

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

  • 在Word,Excel,PowerPoint中啟用選項卡式編輯和閱讀,發布者,Access,Visio和Project。
  • 在同一窗口的新選項卡中而不是在新窗口中打開並創建多個文檔。
  • 將您的工作效率提高 50%,每天為您減少數百次鼠標點擊!
officetab底部
按評論排序
留言 (2)
還沒有評分。 成為第一位評論!
網站主持人對此評論進行了最小化
您可以將 xls 保存為 xlsx 並維護 1,048,576 行和 XFD 列嗎?
網站主持人對此評論進行了最小化
非常感謝 VBA 代碼。 很有用
這裡還沒有評論
留下你的意見
以訪客身份發帖
×
評價此帖子:
0   字符
推薦地點

關注我們

版權所有©2009 - 萬維網。extendoffice.com。 | 版權所有。 供電 ExtendOffice。 |
Microsoft和Office徽標是Microsoft Corporation在美國和/或其他國家的商標或註冊商標。
受Sectigo SSL保護