Jak szybko importować wiele plików csv / text / xml w programie Excel?

W programie Excel być może zapisałeś skoroszyt jako plik csv, plik tekstowy lub plik xml, ale czy kiedykolwiek próbowałeś zaimportować wiele plików csv / text / xml z folderu do skoroszytu lub arkusza? W tym artykule przedstawię kilka metod szybkiego ich importowania wsadowego.

Importuj wiele plików tekstowych z folderu do każdego arkusza roboczego skoroszytu z VBA

Importuj wiele plików CSV z folderu do jednego arkusza za pomocą VBA

Zaimportuj wiele plików xml z folderu do jednego arkusza za pomocą VBA

Importuj lub łącz wiele plików xml / csv w arkusz lub skoroszyt za pomocą Kutools for Excel

Eksportuj każdy arkusz jako csv / text / pdf do folderu z Kutools for Excel

Importuj wiele plików tekstowych z folderu do każdego arkusza roboczego skoroszytu z VBA

Aby zaimportować pliki tekstowe z folderu do skoroszytu, możesz użyć poniższego VBA, aby szybko sobie z tym poradzić.

1. Włącz pusty skoroszyt i naciśnij Alt + F11 klucze do otwarcia Microsoft Visual Basic for Applications okno.

2. kliknij wstawka > Modułi wklej VBA do Moduł okno.

VBA: Importuj wszystkie pliki tekstowe z folderu do skoroszytu

Sub LoadPipeDelimitedFiles()
'UpdatebyKutoolsforExcel20151214
    Dim xStrPath As String
    Dim xFileDialog As FileDialog
    Dim xFile As String
    Dim xCount As Long
    On Error GoTo ErrHandler
    Set xFileDialog = Application.FileDialog(msoFileDialogFolderPicker)
    xFileDialog.AllowMultiSelect = False
    xFileDialog.Title = "Select a folder [Kutools for Excel]"
    If xFileDialog.Show = -1 Then
        xStrPath = xFileDialog.SelectedItems(1)
    End If
    If xStrPath = "" Then Exit Sub
    Application.ScreenUpdating = False
    xFile = Dir(xStrPath & "\*.txt")
    Do While xFile <> ""
        xCount = xCount + 1
        Sheets(xCount).Select
        With ActiveSheet.QueryTables.Add(Connection:="TEXT;" _
          & xStrPath & "\" & xFile, Destination:=Range("A1"))
            .Name = "a" & xCount
            .FieldNames = True
            .RowNumbers = False
            .FillAdjacentFormulas = False
            .PreserveFormatting = True
            .RefreshOnFileOpen = False
            .RefreshStyle = xlInsertDeleteCells
            .SavePassword = False
            .SaveData = True
            .AdjustColumnWidth = True
            .RefreshPeriod = 0
            .TextFilePromptOnRefresh = False
            .TextFilePlatform = 437
            .TextFileStartRow = 1
            .TextFileParseType = xlDelimited
            .TextFileTextQualifier = xlTextQualifierDoubleQuote
            .TextFileConsecutiveDelimiter = False
            .TextFileTabDelimiter = False
            .TextFileSemicolonDelimiter = False
            .TextFileCommaDelimiter = False
            .TextFileSpaceDelimiter = False
            .TextFileOtherDelimiter = "|"
            .TextFileColumnDataTypes = Array(1, 1, 1)
            .TextFileTrailingMinusNumbers = True
            .Refresh BackgroundQuery:=False
            xFile = Dir
        End With
    Loop
    Application.ScreenUpdating = True
    Exit Sub
ErrHandler:
    MsgBox "no files txt", , "Kutools for Excel"
End Sub

3. naciśnij F5 klucz lub run , aby uruchomić VBA, i wybierz folder, z którego chcesz importować pliki tekstowe w wyświetlanym oknie dialogowym. Zobacz zrzut ekranu:

4. I kliknij OK, a każdy plik tekstowy w wybranym folderze został zaimportowany do jednego arkusza aktywnego skoroszytu. Zobacz zrzut ekranu:

Łatwe łączenie wielu arkuszy / skoroszytów w jeden pojedynczy arkusz lub skoroszyt

Łączenie wielu arkuszy lub skoroszytów w jeden arkusz lub skoroszyt może być skomplikowane w programie Excel, ale z rozszerzeniem Połączyć funkcja w Kutools for Excel, możesz łączyć dziesiątki arkuszy / skoroszytów w jeden arkusz lub skoroszyt, a także możesz skonsolidować arkusze w jeden tylko kilkoma kliknięciami.  Kliknij, aby uzyskać pełną funkcjonalność 30 dni bezpłatnego okresu próbnego!

Kutools dla programu Excel: z ponad 300 przydatnymi dodatkami do programu Excel, które można bezpłatnie wypróbować bez ograniczeń 30 dni.

Importuj wiele plików CSV z folderu do jednego arkusza za pomocą VBA

Aby zaimportować wszystkie pliki csv z folderu do jednego arkusza, możesz użyć poniższego kodu VBA.

1. Włącz pusty arkusz i naciśnij Alt + F11 klucze do otwarcia Microsoft Visual Basic for Applications okno.

2. kliknij wstawka > Modułi wklej poniżej VBA do nowego Moduł okno.

VBA: Importuj pliki csv z folderu do jednego arkusza roboczego

Sub ImportCSVsWithReference()
'UpdatebyKutoolsforExcel20151214
    Dim xSht  As Worksheet
    Dim xWb As Workbook
    Dim xStrPath As String
    Dim xFileDialog As FileDialog
    Dim xFile As String
    On Error GoTo ErrHandler
    Set xFileDialog = Application.FileDialog(msoFileDialogFolderPicker)
    xFileDialog.AllowMultiSelect = False
    xFileDialog.Title = "Select a folder [Kutools for Excel]"
    If xFileDialog.Show = -1 Then
        xStrPath = xFileDialog.SelectedItems(1)
    End If
    If xStrPath = "" Then Exit Sub
    Set xSht = ThisWorkbook.ActiveSheet
    If MsgBox("Clear the existing sheet before importing?", vbYesNo, "Kutools for Excel") = vbYes Then xSht.UsedRange.Clear
    Application.ScreenUpdating = False
    xFile = Dir(xStrPath & "\" & "*.csv")
    Do While xFile <> ""
        Set xWb = Workbooks.Open(xStrPath & "\" & xFile)
        Columns(1).Insert xlShiftToRight
        Columns(1).SpecialCells(xlBlanks).Value = ActiveSheet.Name
        ActiveSheet.UsedRange.Copy xSht.Range("A" & Rows.Count).End(xlUp).Offset(1)
        xWb.Close False
        xFile = Dir
    Loop
    Application.ScreenUpdating = True
    Exit Sub
ErrHandler:
    MsgBox "no files csv", , "Kutools for Excel"
End Sub

3. naciśnij F5 kliknij lub kliknij run , aby uruchomić VBA, i pojawi się okno dialogowe, w którym wybierzesz folder, z którego chcesz zaimportować wszystkie pliki CSV. Zobacz zrzut ekranu:

4. kliknij OKi wyskakuje okno dialogowe przypominające o wyczyszczeniu zawartości aktywnego arkusza przed importowaniem, tutaj klikam Tak. Zobacz zrzut ekranu:

po kliknięciu Tak, wszystkie pliki csv w wybranym folderze są importowane do bieżącego arkusza i umieszczają dane z kolumny A po prawej stronie. Zobacz zrzut ekranu:

Wskazówka: Jeśli chcesz umieścić pliki csv poziomo w arkuszu, możesz użyć poniższego VBA.

Sub ImportCSVsWithReferenceI()
'UpdatebyKutoolsforExcel20151214
    Dim xSht  As Worksheet
    Dim xWb As Workbook
    Dim xStrPath As String
    Dim xFileDialog As FileDialog
    Dim xFile As String
    Dim xCount As Long
    On Error GoTo ErrHandler
    Set xFileDialog = Application.FileDialog(msoFileDialogFolderPicker)
    xFileDialog.AllowMultiSelect = False
    xFileDialog.Title = "Select a folder [Kutools for Excel]"
    If xFileDialog.Show = -1 Then
        xStrPath = xFileDialog.SelectedItems(1)
    End If
    If xStrPath = "" Then Exit Sub
    Set xSht = ThisWorkbook.ActiveSheet
    If MsgBox("Clear the existing sheet before importing?", vbYesNo, "Kutools for Excel") = vbYes Then
        xSht.UsedRange.Clear
        xCount = 1
    Else
        xCount = xSht.Cells(3, Columns.Count).End(xlToLeft).Column + 1
    End If
    Application.ScreenUpdating = False
    xFile = Dir(xStrPath & "\" & "*.csv")
    Do While xFile <> ""
        Set xWb = Workbooks.Open(xStrPath & "\" & xFile)
        Rows(1).Insert xlShiftDown
        Range("A1") = ActiveSheet.Name
        ActiveSheet.UsedRange.Copy xSht.Cells(1, xCount)
        xWb.Close False
        xFile = Dir
        xCount = xSht.Cells(3, Columns.Count).End(xlToLeft).Column + 1
    Loop
    Application.ScreenUpdating = True
    Exit Sub
ErrHandler:
    MsgBox "no files csv", , "Kutools for Excel"
End Sub 

Zaimportuj wiele plików xml z folderu do jednego arkusza za pomocą VBA

Jeśli chcesz zaimportować wszystkie pliki XML z folderu do jednego arkusza, możesz użyć poniższego kodu VBA.

1. Wybierz pusty arkusz, na którym chcesz umieścić importowane dane i naciśnij Alt + F11 klucze do włączenia Microsoft Visual Basic for Applications okno.

2. kliknij wstawka > Moduł, wklej kod VBA do pliku Moduł okno.

VBA: Importuj pliki XML z folderu do arkusza.

Sub From_XML_To_XL()
'UpdatebyKutoolsforExcel20151214
    Dim xWb As Workbook
    Dim xSWb As Workbook
    Dim xStrPath As String
    Dim xFileDialog As FileDialog
    Dim xFile As String
    Dim xCount As Long
    On Error GoTo ErrHandler
    Set xFileDialog = Application.FileDialog(msoFileDialogFolderPicker)
    xFileDialog.AllowMultiSelect = False
    xFileDialog.Title = "Select a folder [Kutools for Excel]"
    If xFileDialog.Show = -1 Then
        xStrPath = xFileDialog.SelectedItems(1)
    End If
    If xStrPath = "" Then Exit Sub
    Application.ScreenUpdating = False
    Set xSWb = ThisWorkbook
    xCount = 1
    xFile = Dir(xStrPath & "\*.xml")
    Do While xFile <> ""
        Set xWb = Workbooks.OpenXML(xStrPath & "\" & xFile)
        xWb.Sheets(1).UsedRange.Copy xSWb.Sheets(1).Cells(xCount, 1)
        xWb.Close False
        xCount = xSWb.Sheets(1).UsedRange.Rows.Count + 2
        xFile = Dir()
    Loop
    Application.ScreenUpdating = True
    xSWb.Save
    Exit Sub
ErrHandler:
    MsgBox "no files xml", , "Kutools for Excel"
End Sub

3. kliknij run przycisk lub F5 klucz do uruchomienia VBA i wybierz folder w wyskakującym oknie dialogowym, zobacz zrzut ekranu:

4. kliknij OK, a wszystkie pliki XML w wybranym folderze są importowane do aktywnego arkusza.

Importuj lub łącz wiele plików xml / csv w arkusz lub skoroszyt za pomocą Kutools for Excel

Jeśli nie znasz VBA, martw się, tutaj przedstawiam przydatne narzędzie - Kutools dla programu Excel dla Was. Dzięki swojej potężnej mocy Połączyć narzędzie, możesz szybko połączyć wiele plików xml lub plików csv w jeden skoroszyt lub jeden arkusz Excela.

Po zainstalowaniu Kutools dla programu Excel, wykonaj poniższe czynności:（Bezpłatne pobieranie Kutools dla programu Excel teraz!)

1. Aktywny Excel i kliknij Kutools Plus > Połączyć. Zobacz zrzut ekranu ：

2. A w krok 1 funkcji Połącz wybierz jedną opcję separacji według potrzeb. Zobacz zrzut ekranu:

3. kliknij Dalej , aby przejść do krok 2 Kombinacjikliknij Dodaj aby dodać pliki z różnych folderów lub pliki z jednego folderu do skoroszyt listy, a także możesz określić arkusze, z których chcesz połączyć Ćwiczenie lista prawej sekcji. Zobacz zrzut ekranu:

4. kliknij Dalej do ostatniego kroku Połączyći możesz określić opcje łączenia.

5. kliknij koniec, pojawi się okno dialogowe przypominające o wybraniu lokalizacji do zapisania nowego połączonego wyniku. Zobacz zrzut ekranu:

6. kliknij Zapisz. Wszystkie dodawane arkusze zostały połączone w nowy pojedynczy arkusz.

Wskazówka: Z Połączyć, możesz też łączyć wiele plików Pliki CSV utworzyć wiele folderów lub jeden folder w jeden arkusz lub skoroszyt.

  Połącz wiele plików XML / CVS w jeden arkusz / skoroszyt

Eksportuj każdy arkusz jako csv / text / pdf do folderu z Kutools for Excel

Jeśli chcesz wyeksportować każdy arkusz jako plik csv / text / pdf do folderu, Kutools dla programu Excel'S Podziel skoroszyt narzędzie może wyświadczyć ci przysługę.

Po bezpłatna instalacja Kutools dla programu Excel, wykonaj poniższe czynności:

1. Włącz skoroszyt, z którego chcesz wyeksportować arkusze, i kliknij Kutools Plus > skoroszyt > Podziel skoroszyt. Zobacz zrzut ekranu:

2. w Podziel skoroszyt możesz sprawdzić nazwy arkuszy, które chcesz wyeksportować, domyślnie wszystkie arkusze są sprawdzane i sprawdzane Określ format zapisu i wybierz format pliku, który chcesz zapisać, z poniższej listy rozwijanej. Zobacz zrzut ekranu:

3. kliknij Split i wybierz folder, w którym chcesz zapisać podzielone pliki w formacie Przeglądaj w poszukiwaniu folderu okno dialogowe, zobacz zrzut ekranu:

4. kliknij OK, teraz wszystkie zaznaczone arkusze są eksportowane jako nowy format pliku w wybranym folderze.

  Eksportuj każdy arkusz jako pojedynczy plik XML / CSV / TXT / PDF

Względne artykuły:

• Jak przekonwertować hiperłącze na zwykły tekst w programie Excel?
• Jak przekonwertować liczbę dziesiętną na liczbę binarną / ósemkową / szesnastkową lub odwrotnie w programie Excel?
• Jak wstawić kurs wymiany na żywo w programie 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...