Jak wyeksportować wiele kolumn do pojedynczych plików tekstowych w programie Excel?
Zwykle możesz szybko i łatwo wyeksportować arkusz do pliku txt w programie Excel, korzystając z funkcji Zapisz jako. Ale czy kiedykolwiek próbowałeś zapisać dane każdej kolumny w pliku tekstowym indywidualnie z arkusza programu Excel? W tym artykule omówię, jak rozwiązać tę pracę tak szybko, jak to możliwe.
Eksportuj wiele kolumn do pojedynczych plików tekstowych z kodem VBA
Eksportuj wiele kolumn do pojedynczych plików tekstowych z kodem VBA
Poniższy kod VBA może pomóc w zapisaniu danych każdej kolumny do pliku tekstowego indywidualnie w programie Excel, wykonaj następujące czynności:
1. Przytrzymaj ALT + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.
2. Kliknij wstawka > Modułi wklej następujące makro w Moduł Okno.
Kod VBA: Eksportuj wiele kolumn do pojedynczych plików tekstowych:
Sub SaveValueToText()
Dim xFRNum, xFCNum As Long
Dim xStrDir As String
Dim xMaxR, xMaxC As Integer
Dim xCells As Range
Dim xIntX As Long
Dim xObjFD As FileDialog
Set xObjFD = Application.FileDialog(msoFileDialogFolderPicker)
With xObjFD
.AllowMultiSelect = False
.Show
If .SelectedItems.Count > 0 Then
xStrDir = .SelectedItems.Item(1) & Application.PathSeparator
Else
Exit Sub
End If
End With
Set xCells = ActiveSheet.Cells
xMaxR = xCells.Find(What:="*", After:=[A1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
xMaxC = xCells.Find(What:="*", After:=[A1], SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
For xFCNum = 1 To xMaxC
Open xStrDir & xFCNum & "_" & ActiveSheet.Cells(1, xFCNum).Text & ".txt" For Output As #1
For xFRNum = 1 To xMaxR
Print #1, Cells(xFRNum, xFCNum).Value
Next xFRNum
Close #1
Next
End Sub
3. Po wklejeniu kodu naciśnij F5 klucz do uruchomienia tego kodu oraz plik Przeglądarka Pojawi się okno dialogowe, a następnie wybierz folder, w którym chcesz umieścić wyeksportowane pliki tekstowe, zobacz zrzut ekranu:
4. Następnie kliknij OK przycisk, a dane każdej kolumny w aktywnym arkuszu zostały wyeksportowane indywidualnie do pliku tekstowego, patrz zrzut ekranu:
Eksportuj wiele arkuszy roboczych do pojedynczych plików tekstowych / pdf / csv za pomocą Kutools for Excel
Jeśli chcesz wyeksportować wiele arkuszy roboczych do pojedynczych plików tekstowych, pdf lub csv, rozszerzenie Kutools dla programu Excel'S Podziel skoroszyt funkcja może wyświadczyć ci przysługę.
Po zainstalowaniu Kutools dla programu Excel, wykonaj następujące czynności:
1. Kliknij Kutools Plus > skoroszyt > Podziel skoroszytzobacz zrzut ekranu:
2, w Podziel skoroszyt W oknie dialogowym zaznacz arkusze, które chcesz zapisać jako pliki txt, pdf, csv, a następnie zaznacz Zapisz jako typ opcję, a następnie wybierz typ pliku, który chcesz zapisać jako, a następnie kliknij Split na wyświetlonym przycisku Przeglądaj w poszukiwaniu folderu okno dialogowe, wybierz folder do umieszczenia wyeksportowanych plików, zobacz zrzut ekranu:
3. Następnie kliknij OK przycisk, a wybrane arkusze zostały wyeksportowane do indywidualnego formatu pliku, jak potrzebujesz, zobacz zrzut ekranu:
Kliknij, aby pobrać i bezpłatnie wypróbować 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!
