Przejdź do głównej zawartości

Jak zaimportować wiele plików tekstowych do wielu arkuszy?

Przypuśćmy, że w folderze na komputerze znajduje się wiele plików tekstowych, teraz chcesz zaimportować te pliki tekstowe do skoroszytu programu Excel i umieścić każdy plik tekstowy w oddzielnych arkuszach. Kopiowanie i wklejanie każdego pliku tekstowego do arkusza jeden po drugim zmarnuje dużo czasu, tutaj mogę porozmawiać o kilku sztuczkach, które pomogą Ci rozwiązać ten problem.

Importuj wiele plików tekstowych, aby oddzielić arkusze z kodem VBA

Podziel skoroszyt na wiele oddzielnych plików tekstowych / pdf / csv / xlsx za pomocą Kutools for Excel


strzałka niebieski prawy bąbelek Importuj wiele plików tekstowych, aby oddzielić arkusze z kodem VBA

Poniższy kod VBA może pomóc w jednoczesnym zaimportowaniu każdego pliku tekstowego do oddzielnych arkuszy w nowym skoroszycie, wykonaj następujące czynności:

1. Przytrzymaj ALT + F11 klucze w programie Excel, aby otworzyć plik Microsoft Visual Basic for Applications okno.

2. Kliknij wstawka > Modułi wklej następujący kod w Moduł Okno.

Kod VBA: Importuj wiele plików tekstowych do oddzielnych arkuszy:

Sub CombineTextFiles()
'updateby Extendoffice
    Dim xFilesToOpen As Variant
    Dim I As Integer
    Dim xWb As Workbook
    Dim xTempWb As Workbook
    Dim xDelimiter As String
    Dim xScreen As Boolean
    On Error GoTo ErrHandler
    xScreen = Application.ScreenUpdating
    Application.ScreenUpdating = False
    xDelimiter = "|"
    xFilesToOpen = Application.GetOpenFilename("Text Files (*.txt), *.txt", , "Kutools for Excel", , True)
    If TypeName(xFilesToOpen) = "Boolean" Then
        MsgBox "No files were selected", , "Kutools for Excel"
        GoTo ExitHandler
    End If
    I = 1
    Set xTempWb = Workbooks.Open(xFilesToOpen(I))
    xTempWb.Sheets(1).Copy
    Set xWb = Application.ActiveWorkbook
    xTempWb.Close False
    xWb.Worksheets(I).Columns("A:A").TextToColumns _
      Destination:=Range("A1"), DataType:=xlDelimited, _
      TextQualifier:=xlDoubleQuote, _
      ConsecutiveDelimiter:=False, _
      Tab:=False, Semicolon:=False, _
      Comma:=False, Space:=False, _
      Other:=True, OtherChar:="|"
    Do While I < UBound(xFilesToOpen)
        I = I + 1
        Set xTempWb = Workbooks.Open(xFilesToOpen(I))
        With xWb
            xTempWb.Sheets(1).Move after:=.Sheets(.Sheets.Count)
            .Worksheets(I).Columns("A:A").TextToColumns _
              Destination:=Range("A1"), DataType:=xlDelimited, _
              TextQualifier:=xlDoubleQuote, _
              ConsecutiveDelimiter:=False, _
              Tab:=False, Semicolon:=False, _
              Comma:=False, Space:=False, _
              Other:=True, OtherChar:=xDelimiter
        End With
    Loop
ExitHandler:
    Application.ScreenUpdating = xScreen
    Set xWb = Nothing
    Set xTempWb = Nothing
    Exit Sub
ErrHandler:
    MsgBox Err.Description, , "Kutools for Excel"
    Resume ExitHandler
End Sub

3. Po wklejeniu powyższego kodu naciśnij F5 klucz do uruchomienia tego kodu, aw wyskakującym oknie określ folder zawierający pliki tekstowe, przejdź do folderu, aby wybrać pliki tekstowe, które chcesz zaimportować do arkuszy roboczych, zobacz zrzut ekranu:

doc importuj wiele plików tekstowych 1

4. Następnie kliknij Otwarte przycisk, wszystkie wybrane pliki tekstowe zostały zaimportowane do nowego skoroszytu, a każdy plik znajduje się osobno w jednym arkuszu.

5. W końcu możesz zapisać nowy skoroszyt według potrzeb.


strzałka niebieski prawy bąbelek Podziel skoroszyt na wiele oddzielnych plików tekstowych / pdf / csv / xlsx za pomocą Kutools for Excel

Czasami może być konieczne wykonanie pewnych operacji odwrotnych do powyższego zadania, czyli podzielenie skoroszytu na oddzielne pliki tekstowe. Kutools dla programu Excel'S Podziel skoroszyt narzędzie może pomóc szybko i łatwo rozwiązać tę pracę.

Kutools dla programu Excel : z ponad 300 poręcznymi dodatkami Excela, które można wypróbować bez ograniczeń w ciągu 30 dni

Po zainstalowaniu Kutools dla programu Excelwykonaj następujące czynności :( Bezpłatne pobieranie Kutools dla programu Excel teraz! )

1. Aktywuj skoroszyt, który chcesz podzielić na wiele plików tekstowych.

2. Kliknij Enterprise > skoroszyt > Podziel skoroszytzobacz zrzut ekranu:

3, w Podziel skoroszyt Okno dialogowe:

(1.) Sprawdź arkusze, które chcesz podzielić.

(2.) Sprawdź Określ format zapisu, a następnie wybierz format pliku, który chcesz zapisać, na przykład możesz wybrać txt, CSV, pdf, xlsx or xls format pliku, jak potrzebujesz.

(3.) Następnie kliknij Split W następnym oknie zachęty określ folder, w którym mają zostać wyprowadzone oddzielne pliki.

okno dialogowe podzielonego skoroszytu dodatków programu Excel 2 dodatki excel wybierz lokalizację

4. Następnie kliknij OK przycisk, a wybrane arkusze zostaną podzielone i zapisane w wybranym folderze w wymaganym formacie.

excel dodatki oddzielne pliki

Bezpłatne pobieranie Kutools dla programu Excel teraz!

Najlepsze narzędzia biurowe

🤖 Pomocnik AI Kutools: Zrewolucjonizuj analizę danych w oparciu o: Inteligentne wykonanie   |  Wygeneruj kod  |  Twórz niestandardowe formuły  |  Analizuj dane i generuj wykresy  |  Wywołaj funkcje Kutools...
Popularne funkcje: Znajdź, wyróżnij lub zidentyfikuj duplikaty   |  Usuń puste wiersze   |  Łącz kolumny lub komórki bez utraty danych   |   Okrągły bez wzoru ...
Super wyszukiwanie: Wiele kryteriów VLookup    Wiele wartości VLookup  |   Przeglądanie pionowe na wielu arkuszach   |   Wyszukiwanie rozmyte ....
Zaawansowana lista rozwijana: Szybko twórz listę rozwijaną   |  Zależna lista rozwijana   |  Lista rozwijana wielokrotnego wyboru ....
Menedżer kolumn: Dodaj określoną liczbę kolumn  |  Przesuń kolumny  |  Przełącz stan widoczności ukrytych kolumn  |  Porównaj zakresy i kolumny ...
Polecane funkcje: Fokus siatki   |  Widok projektu   |   Duży pasek formuły    Menedżer skoroszytów i arkuszy   |  Biblioteka zasobów (Automatyczny tekst)   |  Selektor dat   |  Połącz arkusze   |  Szyfruj/odszyfruj komórki    Wysyłaj e-maile według listy   |  Super filtr   |   Specjalny filtr (filtruj pogrubienie/kursywa/przekreślenie...) ...
15 najlepszych zestawów narzędzi12 Tekst Tools (Dodaj tekst, Usuń znaki, ...)   |   50 + Wykres rodzaje (Wykres Gantta, ...)   |   40+ Praktyczne Wzory (Oblicz wiek na podstawie urodzin, ...)   |   19 Wprowadzenie Tools (Wstaw kod QR, Wstaw obraz ze ścieżki, ...)   |   12 Konwersja Tools (Liczby na słowa, Przeliczanie walut, ...)   |   7 Połącz i podziel Tools (Zaawansowane wiersze łączenia, Podział komórki, ...)   |   ... i więcej

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...

Opis


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!
Comments (10)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I had tried with a txt file where there were multiple tables with numbers saved with commas but the program did not recognize the comma as a decimal point. How can I fix this error?
This comment was minimized by the moderator on the site
What would I need to change in the code to make it not open them in a new workbook?
This comment was minimized by the moderator on the site
This code helped me exactly to solve my issue, thanks for the code.
This comment was minimized by the moderator on the site
thank you , multiple text files to different worksheets code worked!
This comment was minimized by the moderator on the site
Thanks for this code this is working great.. i want to merge all the selected sheet into a single sheet is that possible..
This comment was minimized by the moderator on the site
How do I change this macros to display text file saved as UTF-8 or in other words using Platform = 65001, Thanks
This comment was minimized by the moderator on the site
Thanks for this very useful code. I have a question though. What I can change to convert the datatype from General to Text as currently it only imports data into General format.
This comment was minimized by the moderator on the site
Is it possible to open Sequencially multiple txt files in a single sheet ?
This comment was minimized by the moderator on the site
The code for "Import multiple text files to separate worksheets with VBA code" works for me, BUT cuts off the data of each cell at 255 characters. I think it is defaulting to GeneralFormat cell data, but I need it to be TextFormat. Unfortunately I cannot figure out how to adjust the code to fix this.
This comment was minimized by the moderator on the site
I used Following code But Space Didn't Delimit. Turned Tab:=True, Space:=True, but it didn't work. My Txt file format is- ALUMINI16MAYFUT 09-05-2016 10:00:00 106.0000 106.0000 105.2000 105.3500 104 Any Solution?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations