如何在Excel中將多個(gè)xls文件轉(zhuǎn)換為xlsx文件？

Tips： 有了這個(gè) 另存為 函數(shù)，一次只轉(zhuǎn)換一個(gè)Excel文件，如果您需要轉(zhuǎn)換數(shù)百個(gè)Excel文件，則此方法不是一個(gè)好的選擇。

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

：在以上對(duì)話(huà)框中：

如果子文件夾中的工作簿也需要轉(zhuǎn)換，請(qǐng)檢查 添加文件夾時(shí)包括子文件夾 復(fù)選框 如果要在轉(zhuǎn)換后刪除原始文件，請(qǐng)檢查 轉(zhuǎn)換后刪除源文件 框; 如果要保留原始文件的修改日期，請(qǐng)檢查 保留原始文件的修改日期 框; 可以通過(guò)檢查以下內(nèi)容來(lái)保留文件的目錄結(jié)構(gòu)： 轉(zhuǎn)換后保留文件的目錄結(jié)構(gòu) 框;

最佳辦公生產(chǎn)力工具

在Word，Excel，PowerPoint中啟用選項(xiàng)卡式編輯和閱讀，發(fā)布者，Access，Visio和Project。 在同一窗口的新選項(xiàng)卡中而不是在新窗口中打開(kāi)并創(chuàng)建多個(gè)文檔。 每天將您的工作效率提高50％，并減少數(shù)百次鼠標(biāo)單擊！