如何在Excel中將多個CSV文件批量轉換為XLS(X)文件?
通過應用另存為功能,將CSV文件轉換為Xls或XLSX文件非常容易。 但是,將一個文件夾中的多個CSV文件轉換為XLS或XLSX文件非常耗時,因為它們是手動保存的。 在這裡,我介紹了一個宏代碼,用於快速將所有CSV文件從文件夾批量轉換為XLS(x)文件。
使用宏代碼將CSV文件批量轉換為XlS(X)文件
要將多個CSV文件從一個文件夾轉換為XLS(X)文件,可以執行以下步驟:
1.啟用一個新的工作簿,按 Alt + F11鍵 打開鑰匙 Microsoft Visual Basic for Applications 窗口,然後單擊 插入 > 模塊。 看截圖:
備註:確保要轉換的所有CSV文件都已關閉。
2.然後將下面的宏代碼粘貼到 模塊 腳本,然後按 F5 鍵來運行代碼。
VBA:將CSV轉換為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
3.在彈出對話框中,選擇包含要轉換的CSV文件的指定文件夾。 看截圖:
4。 點擊 OK,所選文件夾中的所有CSV文件都已轉換為其中的XLS文件。
尖端:如果要將CSV文件轉換為XLSX文件,請使用以下VBA代碼。
VBA:將CSV文件轉換為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
一次即可快速轉換或導出一定範圍的圖紙以分離XLS / Word / PDF或其他格式的文件
|
通常,Excel不支持您選擇快速將範圍導出或保存為CSV或Excel文件的選項。 如果要在Excel中將數據范圍另存為CSV或工作簿,則可能需要使用VBA宏來執行此操作,或將範圍複製到剪貼板並將其粘貼到新工作簿中,然後將工作簿另存為CSV或工作簿。 Excel的Kutools 用擴展Excel 將範圍導出到文件 想要快速處理以下操作的Excel用戶的實用程序: 點擊查看 30-day 全功能免費試用! |
![]() |
Kutools for Excel:擁有超過 300 個方便的 Excel 加載項,免費試用,不受限制 30 天。 |
相關文章:
最佳辦公效率工具
Kutools for Excel 解決了你的大部分問題,並將你的生產力提高了 80%
- 重用: 快速插入 複雜的公式,圖表 以及您以前使用過的任何東西; 加密單元 帶密碼 創建郵件列表 並發送電子郵件...
- 超級公式欄 (輕鬆編輯多行文本和公式); 閱讀版式 (輕鬆讀取和編輯大量單元格); 粘貼到過濾範圍...
- 合併單元格/行/列 不會丟失數據; 拆分單元格內容; 合併重複的行/列...防止細胞重複; 比較範圍...
- 選擇重複或唯一 行; 選擇空白行 (所有單元格都是空的); 超級查找和模糊查找 在許多工作簿中; 隨機選擇...
- 確切的副本 多個單元格,無需更改公式參考; 自動創建參考 到多張紙; 插入項目符號,複選框等...
- 提取文字,添加文本,按位置刪除, 刪除空間; 創建和打印分頁小計; 在單元格內容和註釋之間轉換...
- 超級濾鏡 (將過濾方案保存並應用於其他工作表); 高級排序 按月/週/日,頻率及更多; 特殊過濾器 用粗體,斜體...
- 結合工作簿和工作表; 根據關鍵列合併表; 將數據分割成多個工作表; 批量轉換xls,xlsx和PDF...
- 超過 300 項強大的功能. 支持 Office / Excel 2007-2021 和 365。支持所有語言。 在您的企業或組織中輕鬆部署。 完整功能 30 天免費試用。 60 天退款保證。

Office選項卡為Office帶來了選項卡式界面,使您的工作更加輕鬆
- 在Word,Excel,PowerPoint中啟用選項卡式編輯和閱讀,發布者,Access,Visio和Project。
- 在同一窗口的新選項卡中而不是在新窗口中打開並創建多個文檔。
- 將您的工作效率提高 50%,每天為您減少數百次鼠標點擊!


#22382
網站主持人對此評論進行了最小化
0
0

#22383
網站主持人對此評論進行了最小化
0
0

#22402
網站主持人對此評論進行了最小化
即時報告
0
0

#22403
網站主持人對此評論進行了最小化
即時報告
0
0

#22404
網站主持人對此評論進行了最小化
0
0

#22436
網站主持人對此評論進行了最小化
0
0

#23378
網站主持人對此評論進行了最小化
0
0

#23379
網站主持人對此評論進行了最小化
即時報告
0
0

#23380
網站主持人對此評論進行了最小化
即時報告
0
0

#25359
網站主持人對此評論進行了最小化
0
0

#25360
網站主持人對此評論進行了最小化
即時報告
0
0

#26493
網站主持人對此評論進行了最小化
0
0

#26494
網站主持人對此評論進行了最小化
即時報告
0
0

#27645
網站主持人對此評論進行了最小化
0
0

#27646
網站主持人對此評論進行了最小化
即時報告
0
0

#27647
網站主持人對此評論進行了最小化
0
0

#28561
網站主持人對此評論進行了最小化
1
0

#28562
網站主持人對此評論進行了最小化
即時報告
0
0

#28564
網站主持人對此評論進行了最小化
即時報告
0
0

#29195
網站主持人對此評論進行了最小化
0
0

#29196
網站主持人對此評論進行了最小化
0
0

#29197
網站主持人對此評論進行了最小化
0
0

#29473
網站主持人對此評論進行了最小化
0
0

#29514
網站主持人對此評論進行了最小化
0
0

#30240
網站主持人對此評論進行了最小化
0
0

#30241
網站主持人對此評論進行了最小化
即時報告
0
0

#31907
網站主持人對此評論進行了最小化
0
0

#32714
網站主持人對此評論進行了最小化
0
0

#32715
網站主持人對此評論進行了最小化
即時報告
0
0

#32776
網站主持人對此評論進行了最小化
0
0

#33819
網站主持人對此評論進行了最小化
0
0

#33820
網站主持人對此評論進行了最小化
即時報告
0
0

#33821
網站主持人對此評論進行了最小化
即時報告
0
0

#33822
網站主持人對此評論進行了最小化
0
0

#35506
網站主持人對此評論進行了最小化
0
0

#35690
網站主持人對此評論進行了最小化
0
0

#37969
網站主持人對此評論進行了最小化
0
0
這裡還沒有評論