This is working for me, but the file extension is not changing. Any tips?
-
To post as a guest, your comment is unpublished.
-
To post as a guest, your comment is unpublished.
通過應用另存為功能,將CSV文件轉換為Xls或XLSX文件非常容易。 但是,將一個文件夾中的多個CSV文件轉換為XLS或XLSX文件非常耗時,因為它們是手動保存的。 在這裡,我介紹了一個宏代碼,用於快速將所有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或工作簿。 Kutools for Excel 用擴展Excel 將範圍導出到文件 想要快速處理以下操作的Excel用戶的實用程序: 單擊以進行30天全功能的免費試用! |
![]() |
Kutools for Excel:擁有300多個便捷的Excel加載項,可以在30天內免費試用。 |