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
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:
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.
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.
4. Następnie kliknij OK przycisk, a wybrane arkusze zostaną podzielone i zapisane w wybranym folderze w wymaganym formacie.
Bezpłatne pobieranie Kutools dla programu Excel teraz!
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!