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.

Czytaj więcej... Darmowe pobieranie... Zakup... 

---

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!

Czytaj więcej... Darmowe pobieranie... Zakup...