Jak wsadowo konwertować wiele plików programu Excel na pliki CSV w programie Excel?
W programie Excel możemy przekonwertować skoroszyt do pliku CSV za pomocą funkcji Zapisz jako, ale czy wiesz, jak zbiorczo przekonwertować wiele plików Excela na oddzielne pliki CSV? W tym artykule przedstawiam kod VBA do wsadowej konwersji wszystkich plików Excela w folderze na pliki CSV w Excelu.
Batch konwertuj pliki Excela z folderu na pliki CSV za pomocą VBA
Konwertuj arkusze skoroszytu na osobne pliki CSV za pomocą Kutools for Excel
Batch konwertuj pliki Excela z folderu na pliki CSV za pomocą VBA
W programie Excel nie ma wbudowanej funkcji, która może szybko rozwiązać to zadanie, z wyjątkiem VBA.
1. Włącz program Excel i naciśnij Alt + F11 klucze otwarte Microsoft Visual Basic for Applications okno.
2. kliknij wstawka > Moduł aby utworzyć nowy moduł.
3. Skopiuj poniższy kod i wklej go w nowym oknie modułu.
VBA: Batch konwertuj pliki Excel na 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 Sub
4. naciśnij F5 klawisz, wybierz folder zawierający pliki Excela, które chcesz przekonwertować na pliki CSV w pierwszym wyskakującym oknie dialogowym.
5. kliknij OK, a następnie w drugim wyskakującym oknie dialogowym wybierz folder, w którym zostaną umieszczone pliki CSV.
6. kliknij OK, teraz pliki Excel w folderze zostały przekonwertowane na pliki CSV i zapisane w innym folderze.
Konwertuj arkusze skoroszytu na osobne pliki CSV za pomocą Kutools for Excel
Jak wiemy, możemy tylko przekonwertować cały skoroszyt do jednego pliku CSV w programie Excel za pomocą funkcji Zapisz jako. Ale czasami chcesz przekonwertować pojedynczy arkusz na plik CSV, w tym przypadku plik Podziel skoroszyt użyteczność Kutools dla programu Excel może ci pomóc.
Kutools dla programu Excel, ponad 300 przydatne funkcje, ułatwiają pracę. |
Po zainstalowaniu Kutools dla programu Excel, wykonaj poniższe czynności:(Bezpłatne pobieranie Kutools dla programu Excel teraz!)
1. Włącz skoroszyt, w którym chcesz przekonwertować jego arkusze na oddzielne pliki CSV, kliknij Kutools Plus > skoroszyt > Podziel skoroszyt.
2. w Podziel skoroszyt zaznacz nazwę arkusza, który chcesz podzielić (wszystkie arkusze są domyślnie zaznaczone), zaznacz Zapisz jako typ, wybierz CSV (Macintosh) (* .CSV) z rozwijanej listy.
3. kliknij Split wyskoczyć a Przeglądaj w poszukiwaniu folderu wybierz lub utwórz folder, w którym zostaną umieszczone pliki CSV.
4. kliknij OK, teraz skoroszyt został podzielony na oddzielne pliki CSV.
Podziel skoroszyt
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!