Jak wsadowo konwertować wiele plików CSV na pliki XLS (X) w programie Excel?
Konwersja pliku CSV do pliku XlS lub XLSX jest bardzo łatwa dzięki zastosowaniu funkcji Zapisz jako. Jednak konwersja wielu plików CSV do plików XLS lub XLSX z folderu jest czasochłonna, ponieważ zapisuje się je ręcznie jeden po drugim. Tutaj przedstawiam kod makra, aby szybko wsadowo przekonwertować wszystkie pliki CSV na pliki XLS (x) z folderu.
Batch konwertuje pliki CSV na pliki XlS (X) z kodem makr
Batch konwertuje pliki CSV na pliki XlS (X) z kodem makr
Aby przekonwertować wiele plików CSV z jednego folderu na pliki XLS (X), możesz wykonać poniższe czynności:
1. Włącz nowy skoroszyt, naciśnij Alt + F11 klucze do otwarcia Microsoft Visual Basic for Applications okno i kliknij wstawka > Moduł. Zobacz zrzut ekranu:
Uwagi: Upewnij się, że wszystkie pliki CSV, które chcesz przekonwertować, są zamknięte.
2. Następnie wklej poniższy kod makra do pliku Moduł skrypt i naciśnij F5 klucz do uruchomienia kodu.
VBA: Konwertuj CSV na 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. W wyskakującym oknie dialogowym wybierz określony folder zawierający pliki CSV, które chcesz przekonwertować. Zobacz zrzut ekranu:
4. kliknij OK, wszystkie pliki CSV w wybranym folderze zostały przekonwertowane na pliki XLS w nim.
Wskazówka: Jeśli chcesz przekonwertować pliki CSV na pliki XLSX, użyj poniższego kodu VBA.
VBA: Konwertuj pliki CSV na 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
szybko konwertuj lub eksportuj zakres arkusza, aby oddzielić pliki XLS / Word / PDF lub inne w jednym czasie
|
Zwykle program Excel nie obsługuje opcji szybkiego eksportu lub zapisywania zakresu jako pliku CSV lub Excel. Jeśli chcesz zapisać zakres danych jako plik CSV lub skoroszyt w programie Excel, może być konieczne użycie do tego makra VBA lub skopiowanie zakresu do schowka i wklejenie go do nowego skoroszytu, a następnie zapisanie skoroszytu jako CSV lub Zeszyt ćwiczeń. Kutools dla programu Excel rozszerza program Excel o Eksportuj zakres do pliku narzędzie dla użytkowników Excela, którzy chcą szybko przetworzyć następujące operacje : Kliknij, aby 30-dniowa, w pełni funkcjonalna bezpłatna wersja próbna! |
![]() |
Kutools dla programu Excel: z ponad 300 przydatnymi dodatkami do programu Excel, które można bezpłatnie wypróbować bez ograniczeń 30 dni. |
Względne artykuły:
- Jak przekonwertować plik CSV na plik XLS lub zaimportować / otworzyć plik CSV w programie Excel?
- Jak przekonwertować dokument Word na arkusz programu Excel?
Najlepsze narzędzia biurowe
Kutools dla programu Excel rozwiązuje większość problemów i zwiększa produktywność o 80%
- Ponowne użycie: Szybko włóż złożone wzory, wykresy i wszystko, czego używałeś wcześniej; Szyfruj komórki z hasłem; Utwórz listę mailingową i wysyłaj e-maile ...
- Pasek Super Formula (łatwo edytować wiele wierszy tekstu i formuły); Układ do czytania (łatwe odczytywanie i edytowanie dużej liczby komórek); Wklej do filtrowanego zakresu...
- Scal komórki / wiersze / kolumny bez utraty danych; Podziel zawartość komórek; Połącz zduplikowane wiersze / kolumny... Zapobiegaj zduplikowanym komórkom; Porównaj zakresy...
- Wybierz Duplikat lub Unikalny Wydziwianie; Wybierz puste wiersze (wszystkie komórki są puste); Super Find i Fuzzy Find w wielu zeszytach ćwiczeń; Losowy wybór ...
- Dokładna kopia Wiele komórek bez zmiany odwołania do formuły; Automatyczne tworzenie odniesień do wielu arkuszy; Wstaw punktory, Pola wyboru i nie tylko ...
- Wyodrębnij tekst, Dodaj tekst, Usuń według pozycji, Usuń przestrzeń; Tworzenie i drukowanie podsumowań stronicowania; Konwertuj zawartość komórek i komentarze...
- Super filtr (zapisz i zastosuj schematy filtrów do innych arkuszy); Zaawansowane sortowanie według miesiąca / tygodnia / dnia, częstotliwości i innych; Specjalny filtr pogrubieniem, kursywą ...
- Połącz skoroszyty i arkusze robocze; Scal tabele na podstawie kluczowych kolumn; Podziel dane na wiele arkuszy; Konwersja wsadowa xls, xlsx i PDF...
- Ponad 300 zaawansowanych funkcji. Obsługuje Office / Excel 2007-2021 i 365. Obsługuje wszystkie języki. Łatwe wdrażanie w przedsiębiorstwie lub organizacji. Pełne funkcje 30-dniowa bezpłatna wersja próbna. 60-dniowa gwarancja zwrotu pieniędzy.

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!





































