Як пакетно перетворити кілька файлів Excel у файли CSV в Excel?
В Excel ми можемо перетворити книгу у файл CSV за допомогою функції Зберегти як, але чи можете ви знати, як пакетно конвертувати кілька файлів Excel у окремі файли CSV? У цій статті я представляю код VBA для пакетного перетворення всіх файлів Excel у папці у файли CSV у Excel.
Пакетне перетворення файлів Excel папки у файли CSV за допомогою VBA
Перетворіть аркуші книги в окремі файли CSV за допомогою Kutools для Excel
Пакетне перетворення файлів Excel папки у файли CSV за допомогою VBA
В Excel немає вбудованої функції, яка може швидко вирішити цю роботу, крім VBA.
1. Увімкніть Excel і натисніть Alt + F11 клавіші відкриті Microsoft Visual Basic для додатків вікна.
2. клацання Insert > Модулі створити новий модуль.
3. Скопіюйте код нижче та вставте їх у нове вікно модуля.
VBA: пакетне перетворення файлів Excel у CSV
Sub WorkbooksSaveAsCsvToFolder()
'UpdatebyExtendoffice20181031
Dim xObjWB As Workbook
Dim xObjWS As Worksheet
Dim xStrEFPath As String
Dim xStrEFFile As String
Dim xObjFD As FileDialog
Dim xObjSFD As FileDialog
Dim xStrSPath As String
Dim xStrCSVFName As String
Dim xS As String
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.Calculation = xlCalculationManual
Application.DisplayAlerts = False
On Error Resume Next
Set xObjFD = Application.FileDialog(msoFileDialogFolderPicker)
xObjFD.AllowMultiSelect = False
xObjFD.Title = "Kutools for Excel - Select a folder which contains Excel files"
If xObjFD.Show <> -1 Then Exit Sub
xStrEFPath = xObjFD.SelectedItems(1) & "\"
Set xObjSFD = Application.FileDialog(msoFileDialogFolderPicker)
xObjSFD.AllowMultiSelect = False
xObjSFD.Title = "Kutools for Excel - Select a folder to locate CSV files"
If xObjSFD.Show <> -1 Then Exit Sub
xStrSPath = xObjSFD.SelectedItems(1) & "\"
xStrEFFile = Dir(xStrEFPath & "*.xls*")
Do While xStrEFFile <> ""
xS = xStrEFPath & xStrEFFile
Set xObjWB = Application.Workbooks.Open(xS)
xStrCSVFName = xStrSPath & Left(xStrEFFile, InStr(1, xStrEFFile, ".") - 1) & ".csv"
xObjWB.SaveAs Filename:=xStrCSVFName, FileFormat:=xlCSV
xObjWB.Close savechanges:=False
xStrEFFile = Dir
Loop
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub4. прес F5 клавіші, виберіть папку, яка містить файли Excel, які потрібно перетворити у файли CSV, у першому діалоговому вікні, що з’являється.
5. клацання OK, потім у другому діалоговому вікні, що з’являється, виберіть папку для розміщення файлів CSV.
6. клацання OK, тепер файли Excel у папці перетворено у файли CSV та збережено в іншій папці.
Перетворіть аркуші книги в окремі файли CSV за допомогою Kutools для Excel
Як ми знали, ми можемо перетворити всю книгу в один файл CSV у Excel лише за допомогою функції Зберегти як. Але іноді потрібно перетворити один аркуш у файл CSV, в даному випадку файл Роздільна робоча книга корисність Kutools для Excel може допомогти вам.
| Kutools для Excel, з більш ніж 300 зручні функції, полегшує вам роботу. |
після установки Kutools для Excel, виконайте наведені нижче дії.（Безкоштовно завантажте Kutools для Excel зараз!)
1. Увімкніть книгу, для якої потрібно перетворити її аркуші як окремі файли CSV, натисніть Kutools Plus > робочий зошит > Роздільна робоча книга.
2 В Роздільна робоча книга діалогове вікно, позначте назву аркуша, який потрібно розділити (усі аркуші встановлені за замовчуванням), поставте галочку Зберегти як тип, вибрати CSV (Macintosh) (* .CSV) з розкривного списку.
3. клацання розщеплений вискочити a Перегляньте папку діалоговому вікні, виберіть або створіть папку для розміщення файлів CSV.
4. клацання OK, тепер книга розділена на окремі файли CSV.
Роздільна робоча книга
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
