如何在Excel中將多個(gè)CSV文件批量轉(zhuǎn)換為XLS（X）文件？
如何在Excel中將多個(gè)CSV文件批量轉(zhuǎn)換為XLS（X）文件？
通過應(yīng)用另存為功能，將CSV文件轉(zhuǎn)換為Xls或XLSX文件非常容易。 但是，將一個(gè)文件夾中的多個(gè)CSV文件轉(zhuǎn)換為XLS或XLSX文件非常耗時(shí)，因?yàn)樗鼈兪鞘謩?dòng)保存的。 在這里，我介紹了一個(gè)宏代碼，用于快速將所有CSV文件從文件夾批量轉(zhuǎn)換為XLS（x）文件。
使用宏代碼將CSV文件批量轉(zhuǎn)換為XlS（X）文件
使用宏代碼將CSV文件批量轉(zhuǎn)換為XlS（X）文件要將多個(gè)CSV文件從一個(gè)文件夾轉(zhuǎn)換為XLS（X）文件，可以執(zhí)行以下步驟：
1.啟用一個(gè)新的工作簿，按 Alt + F11鍵 打開鑰匙 Microsoft Visual Basic應(yīng)用程序 窗口，然后單擊 插頁 > 模塊
。 看截圖：
備注：確保關(guān)閉了要轉(zhuǎn)換的所有CSV文件。
2.然后將下面的宏代碼粘貼到 模塊 腳本，然后按 F5 鍵來運(yùn)行代碼。
VBA：將CSV轉(zhuǎn)換為XLS
Sub CSVtoXLS()
UpdatebyExtendoffice20170814
Dim xFd As FileDialog
Dim xSPath As String
Dim xCSVFile As String
Dim xWsheet As String
Application.DisplayAlerts = False
Application.StatusBar = True
xWsheet = ActiveWorkbook.Name
Set xFd = Application.FileDialog(msoFileDialogFolderPicker)
xFd.Title = "Select a folder:"
If xFd.Show = -1 Then
xSPath = xFd.SelectedItems(1)
Else
Exit Sub
End If
If Right(xSPath, 1) <> "\" Then xSPath = xSPath + "\"
xCSVFile = Dir(xSPath & "*.csv")
Do While xCSVFile <> ""
Application.StatusBar = "Converting: " & xCSVFile
Workbooks.Open Filename:=xSPath & xCSVFile
ActiveWorkbook.SaveAs Replace(xSPath & xCSVFile, ".csv", ".xls", vbTextCompare), xlNormal
ActiveWorkbook.Close
Windows(xWsheet).Activate
xCSVFile = Dir
Loop
Application.StatusBar = False
Application.DisplayAlerts = True
End Sub
Copy
3.在彈出的對話框中，選擇包含要轉(zhuǎn)換的CSV文件的指定文件夾。 看截圖：
4。 點(diǎn)擊 OK
，所選文件夾中的所有CSV文件都已轉(zhuǎn)換為其中的XLS文件。
Tips:：如果要將CSV文件轉(zhuǎn)換為XLSX文件，請使用以下VBA代碼。
VBA：將CSV文件轉(zhuǎn)換為XLSX
Sub CSVtoXLS()
UpdatebyExtendoffice20170814
Dim xFd As FileDialog
Dim xSPath As String
Dim xCSVFile As String
Dim xWsheet As String
Application.DisplayAlerts = False
Application.StatusBar = True
xWsheet = ActiveWorkbook.Name
Set xFd = Application.FileDialog(msoFileDialogFolderPicker)
xFd.Title = "Select a folder:"
If xFd.Show = -1 Then
xSPath = xFd.SelectedItems(1)
Else
Exit Sub
End If
If Right(xSPath, 1) <> "\" Then xSPath = xSPath + "\"
xCSVFile = Dir(xSPath & "*.csv")
Do While xCSVFile <> ""
Application.StatusBar = "Converting: " & xCSVFile
Workbooks.Open Filename:=xSPath & xCSVFile
ActiveWorkbook.SaveAs Replace(xSPath & xCSVFile, ".csv", ".xlsx", vbTextCompare), xlWorkbookDefault
ActiveWorkbook.Close
Windows(xWsheet).Activate
xCSVFile = Dir
Loop
Application.StatusBar = False
Application.DisplayAlerts = True
End Sub
Copy
一次即可快速轉(zhuǎn)換或?qū)С鲆欢ǚ秶膱D紙以分離XLS / Word / PDF或其他格式的文件
通常，Excel不支持您選擇快速將范圍導(dǎo)出或保存為CSV或Excel文件的選項(xiàng)。 如果要在Excel中將數(shù)據(jù)范圍另存為CSV或工作簿，則可能需要使用VBA宏來執(zhí)行此操作，或者將范圍復(fù)制到剪貼板并將其粘貼到新工作簿中，然后將工作簿另存為CSV或工作簿。 Kutools for Excel 用擴(kuò)展Excel 將范圍導(dǎo)出到文件 想要快速處理以下操作的Excel用戶的實(shí)用程序： 點(diǎn)擊查看 30-day 全功能免費(fèi)試用！ Kutools for Excel：超過300個(gè)方便的Excel插件，免費(fèi)試用，沒有限制 30 天。最佳辦公生產(chǎn)力工具
將小時(shí)轉(zhuǎn)化為分鐘 Kutools for Excel!
準(zhǔn)備好增強(qiáng)您的 Excel 任務(wù)了嗎？ 利用的力量 Kutools for Excel - 您終極的節(jié)省時(shí)間的工具。 簡化復(fù)雜的任務(wù)并像專業(yè)人士一樣瀏覽數(shù)據(jù)。 以閃電般的速度體驗(yàn) Excel！
為什么需要 Kutools for Excel
??? 超過 300 項(xiàng)強(qiáng)大功能: Kutools 包含 300 多項(xiàng)高級功能，可簡化您在 1500 多種場景中的工作。
?? 卓越的數(shù)據(jù)處理能力：合并單元格、刪除重復(fù)項(xiàng)并執(zhí)行高級數(shù)據(jù)轉(zhuǎn)換 - 所有這些都不費(fèi)吹灰之力！
?? 高效的批量操作：當(dāng)你可以聰明地工作時(shí)，為什么還要付出額外的努力呢？ 輕松批量導(dǎo)入、導(dǎo)出、組合和調(diào)整數(shù)據(jù)。
?? 可定制的圖表和報(bào)告：訪問各種附加圖表并生成富有洞察力的報(bào)告。
??? 強(qiáng)大的導(dǎo)航窗格：通過強(qiáng)大的列管理器、工作表管理器和自定義收藏夾獲得優(yōu)勢。
?? 七種類型的下拉列表：通過各種功能和類型的下拉列表使數(shù)據(jù)輸入變得輕而易舉。
?? 用戶友好：對于初學(xué)者來說輕而易舉，對于專家來說是一個(gè)強(qiáng)大的工具。
立即下載，與 Excel 一起穿越時(shí)空！
閱讀更多
免費(fèi)下載... 采購...
Office Tab 為 Office 帶來選項(xiàng)卡式界面，讓您的工作更輕松
在Word，Excel，PowerPoint中啟用選項(xiàng)卡式編輯和閱讀，發(fā)布者，Access，Visio和Project。
在同一窗口的新選項(xiàng)卡中而不是在新窗口中打開并創(chuàng)建多個(gè)文檔。
每天將您的工作效率提高50％，并減少數(shù)百次鼠標(biāo)單擊！
閱讀更多
免費(fèi)下載... 采購...
版權(quán)聲明：本文內(nèi)容由網(wǎng)絡(luò)用戶投稿，版權(quán)歸原作者所有，本站不擁有其著作權(quán)，亦不承擔(dān)相應(yīng)法律責(zé)任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實(shí)的內(nèi)容，請聯(lián)系我們jiasou666@gmail.com 處理，核實(shí)后本網(wǎng)站將在24小時(shí)內(nèi)刪除侵權(quán)內(nèi)容。
版權(quán)聲明：本文內(nèi)容由網(wǎng)絡(luò)用戶投稿，版權(quán)歸原作者所有，本站不擁有其著作權(quán)，亦不承擔(dān)相應(yīng)法律責(zé)任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實(shí)的內(nèi)容，請聯(lián)系我們jiasou666@gmail.com 處理，核實(shí)后本網(wǎng)站將在24小時(shí)內(nèi)刪除侵權(quán)內(nèi)容。
相關(guān)文章
