Przejdź do głównej zawartości

Jak wyeksportować dane programu Excel (zaznaczenie lub arkusze) do plików tekstowych w programie Excel?

Jeśli musisz dostarczyć skoroszyt w formacie pliku tekstowego, musisz przekonwertować skoroszyt na pliki tekstowe. W tym artykule przedstawimy dwie metody łatwego eksportowania danych programu Excel do plików tekstowych.

Wyeksportuj jeden arkusz do pliku tekstowego w programie Excel

Domyślnie dane programu Excel zostaną zapisane jako skoroszyty w formacie . Xlsx. Możemy jednak wyeksportować arkusz roboczy istniejącego skoroszytu jako pliki tekstowe z rozszerzeniem Zapisz jako funkcja. Wykonaj następujące czynności:

1. Przejdź do arkusza roboczego, który wyeksportujesz do pliku tekstowego, i kliknij filet (lub Przycisk pakietu Office)> Zapisz jako.

2. W otwarciu Zapisz jako W oknie dialogowym wybierz folder docelowy, w którym chcesz zapisać wyeksportowany plik tekstowy, nadaj mu nazwę w formacie Nazwa pliku a następnie wybierz plik Tekst Unicode (* .txt) z pliku Zapisz jako typ Lista rozwijana. Zobacz zrzut ekranu:
eksport do pliku tekstowego z funkcją Zapisz jako

3. Następnie pojawią się dwa ostrzegawcze okna dialogowe z prośbą o wyeksportowanie tylko aktywnego arkusza roboczego jako pliku tekstowego i pominięcie wszelkich niezgodnych funkcji z plikiem tekstowym. Kliknij OK Przycisk i Tak kolejno.

Następnie dane w aktywnym arkuszu są eksportowane jako nowy plik tekstowy.

Note: the Zapisz jako polecenie jest w stanie wyeksportować dane aktywnego arkusza roboczego tylko jako plik tekstowy. Jeśli chcesz wyeksportować wszystkie dane z całego skoroszytu, musisz indywidualnie zapisać każdy arkusz jako plik tekstowy.


Eksportuj zaznaczenie (lub jedną kolumnę) do pliku tekstowego za pomocą VBA

Poniższy kod VBA może również pomóc w wyeksportowaniu wybranych danych zakresu (na przykład jednej kolumny) do pliku tekstowego, wykonaj następujące czynności:

1. Przytrzymaj przycisk ALT + F11 klucze i otwiera plik Microsoft Visual Basic for Applications okno.

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

VBA: eksportuj zaznaczenie lub cały arkusz do pliku tekstowego

Sub ExportRangetoFile()
'Update 20130913
Dim wb As Workbook
Dim saveFile As String
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set wb = Application.Workbooks.Add
WorkRng.Copy
wb.Worksheets(1).Paste
saveFile = Application.GetSaveAsFilename(fileFilter:="Text Files (*.txt), *.txt")
wb.SaveAs Filename:=saveFile, FileFormat:=xlText, CreateBackup:=False
wb.Close
Application.CutCopyMode = False
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

3. Następnie naciśnij F5 klucz do uruchomienia tego kodu. A następnie wybierz zakres danych, który chcesz wyeksportować w wyskakującym oknie dialogowym i kliknij plik OK przycisk, zobacz zrzut ekranu:
Wybierz jedną kolumnę do wyeksportowania jako plik tekstowy

4. A teraz w innym oknie dialogowym Zapisz jako podaj nazwę tego pliku tekstowego i folder, w którym ma zostać umieszczony ten plik, i kliknij Zapisz przycisk.


Eksportuj zaznaczenie (lub jedną kolumnę) do pliku tekstowego za pomocą Kutools for Excel

Połączenia Zapisz jako polecenie może wyeksportować wszystkie dane w aktywnym arkuszu jako tekst. Co się stanie, jeśli wyeksportujesz wszystkie dane z określonych nieaktywnych arkuszy lub część danych w arkuszu jako plik tekstowy? Kutools dla programu Excel's Eksportuj zakres do pliku Narzędzie może pomóc nam łatwo eksportować i zapisywać wybrane dane jako plik tekstowy.  

Kutools dla programu Excel - Zawiera ponad 300 niezbędnych narzędzi dla programu Excel. Ciesz się w pełni funkcjonalnym 30-dniowym DARMOWYM okresem próbnym bez karty kredytowej! Pobierz teraz!

1. Wybierz dzwonek, który wyeksportujesz do pliku tekstowego (w naszym przypadku wybieramy kolumnę A) i kliknij Kutools Plus > Import / Export > Eksportuj zakres do plikuzobacz zrzut ekranu:
Dodatek do programu Excel: eksport zaznaczenia do pliku tekstowego

2. W Eksportuj zakres do pliku okno dialogowe, wykonaj poniższe zrzuty ekranu:
Dodatek do programu Excel: eksport zaznaczenia do pliku tekstowego
(1) Sprawdź Tekst Unicode opcja w Format pliku Sekcja;
(2) Zaznacz opcję Zapisz wartości rzeczywiste lub Zapisz wartości, jak pokazano na ekranie, zgodnie z potrzebami w sekcji Opcje tekstu;
(3) Określ folder docelowy, w którym zapiszesz wyeksportowany plik tekstowy;
(4) Kliknij Ok przycisk.

3. Nazwij eksportowany plik tekstowy w nowym oknie dialogowym otwierania i kliknij Ok przycisk.
nazwij eksportowany plik tekstowy

Następnie zaznaczenie (wybrana kolumna A) zostało wyeksportowane jako plik tekstowy i zapisane w określonym folderze.

Kutools dla programu Excel - Doładuj program Excel za pomocą ponad 300 niezbędnych narzędzi. Ciesz się w pełni funkcjonalnym 30-dniowym DARMOWYM okresem próbnym bez karty kredytowej! Zdobądź To Teraz


Eksportuj wiele arkuszy, aby oddzielić pliki tekstowe w programie Excel

Czasami może być konieczne wyeksportowanie wielu arkuszy do wielu plików tekstowych w programie Excel. Funkcja Zapisz jako może być trochę uciążliwa! Nie martw się! Kutools dla Excela Podziel skoroszyt Narzędzie zapewnia użytkownikom programu Excel łatwe obejście umożliwiające eksportowanie wielu arkuszy do wielu oddzielnych plików tekstowych za pomocą kilku kliknięć. 

Kutools dla programu Excel - Zawiera ponad 300 niezbędnych narzędzi dla programu Excel. Ciesz się w pełni funkcjonalnym 30-dniowym DARMOWYM okresem próbnym bez karty kredytowej! Pobierz teraz!

1. kliknij Kutools Plus > skoroszytPodziel skoroszyt. Zobacz zrzut ekranu:
Dodatek Excel: eksportuj wiele arkuszy do plików tekstowych

2. W otwartym oknie dialogowym Podziel skoroszyt wykonaj następujące czynności:
Dodatek Excel: eksportuj wiele arkuszy do plików tekstowych
(1) Sprawdź arkusze robocze, które wyeksportujesz do oddzielnych plików tekstowych w formacie Nazwa skoroszytu Sekcja;
(2) Sprawdź Określ format zapisu wybierz opcję, a następnie wybierz opcję Tekst Unicode (* .txt) z rozwijanej listy poniżej, patrz lewy zrzut ekranu:
(3) Kliknij Split przycisk.

3. Następnie w wyskakującym oknie dialogowym Przeglądaj w poszukiwaniu folderu wybierz folder docelowy, w którym zapiszesz wyeksportowane pliki tekstowe, i kliknij OK przycisk.

Do tej pory każdy określony arkusz został wyeksportowany jako osobny plik tekstowy i zapisany w określonym folderze.

Kutools dla programu Excel - Doładuj program Excel za pomocą ponad 300 niezbędnych narzędzi. Ciesz się w pełni funkcjonalnym 30-dniowym DARMOWYM okresem próbnym bez karty kredytowej! Zdobądź To Teraz

Z łatwością masowo zapisuj każdy arkusz jako oddzielny plik PDF / tekst / csv lub skoroszyt w programie Excel

Zwykle możemy zapisać aktywny arkusz roboczy jako oddzielny plik .pdf, .txt lub .csv z funkcją Zapisz jako. Ale Kutools dla Excela Podziel skoroszyt narzędzie może pomóc w łatwym zapisaniu każdego skoroszytu jako oddzielnego pliku PDF / TEKST / CSV lub skoroszytu w programie Excel.


skoroszyt podziału reklam pdf 1

Kutools dla programu Excel - Doładuj program Excel za pomocą ponad 300 niezbędnych narzędzi. Ciesz się w pełni funkcjonalnym 30-dniowym DARMOWYM okresem próbnym bez karty kredytowej! Zdobądź To Teraz


Demo: eksportuj dane Excela (zaznaczenie lub arkusze) do plików tekstowych w Excelu


Kutools dla programu Excel: Ponad 300 przydatnych narzędzi na wyciągnięcie ręki! Już dziś rozpocznij 30-dniowy bezpłatny okres próbny bez ograniczeń funkcji. Pobierz teraz!

Podobne artykuły:

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 (19)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
How would I amend the code for Export selection (or one column) to text file with VBA to autofill the filename with the contents of cell B2?
thanks
This comment was minimized by the moderator on the site
Hi,This is great, thanks a lot.
How would I alter the code for Export selection (or one column) to text file with VBA to auto fill the filename with the contents of cell B2?
This comment was minimized by the moderator on the site
Hi, this code is very useful for me. So thank you very much.
I want to ask that: When i'm using this code, a new line append automatically at the end of the txt content.
Can you help me about preventing this by vba?
This comment was minimized by the moderator on the site
hi guys, i used that code:
Sub ExportRangetoFile()
'Update 20130913
Dim wb As Workbook
Dim saveFile As String
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set wb = Application.Workbooks.Add
WorkRng.Copy
wb.Worksheets(1).Paste
saveFile = Application.GetSaveAsFilename(fileFilter:="Text Files (*.txt), *.txt")
wb.SaveAs Filename:=saveFile, FileFormat:=xlText, CreateBackup:=False
wb.Close
Application.CutCopyMode = False
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

and have working, but i need to savea column with cells that contain the function"concatenate", and when i play the vba code, and i save the .TXT file, only what appears it's #REF. how can i to fix it? cause i need the data that appears on that cells?
This comment was minimized by the moderator on the site
Has anyone been able to figure this out? I am having the same issue.
This comment was minimized by the moderator on the site
HELLO
THANK YOU FOR YOUR VBA CODE
SOMETIMES ON CERTAIN TEXT THERE IS "TEXT" IN EXPORT .TXT
THANK YOU FOR WHY
This comment was minimized by the moderator on the site
Thanks for the awesome piece of VBA code to export data to a text file. I have used your code with some of my own. The data I am dealing with is extremely line-length specific and after the macro has run, the text file contains some double quotation marks " at random places, which was never present in my data before. I have tried adding a code line to remove this character at various stages but that does not seem to be working. I am aware that I can manually remove this but would like to resolve it in the VBA code.

Sub Macro3()
Dim wb As Workbook
Dim saveFile As String
Dim WorkRng As Range
On Error Resume Next
Selection.AutoFilter
ActiveSheet.Range("$A$1:$B$10591").AutoFilter Field:=1, Criteria1:= _
"=NSZAP*", Operator:=xlAnd
Range("A1").Select
ActiveCell.Offset(200, 0).Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
ActiveCell.Rows("1:10101").EntireRow.Select
Selection.Delete Shift:=xlUp
Range("A1").Select
Selection.AutoFilter
Range(Selection, Selection.End(xlDown)).Select
Set WorkRng = Application.Selection
Set wb = Application.Workbooks.Add
WorkRng.Copy
wb.Worksheets(1).Paste
Selection.Replace What:="""", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
saveFile = Application.GetSaveAsFilename(fileFilter:="Text Files (*.txt), *.txt")
Selection.Replace What:="""", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
wb.SaveAs Filename:=saveFile, FileFormat:=xlText, CreateBackup:=False
Selection.Replace What:="""", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
wb.Close
Application.CutCopyMode = False
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
This comment was minimized by the moderator on the site
Hi Harish,
For removing a specified character in bulk, you can replace the character with nothing.
Ctrl + H to open the Find and Replace dialog box, type the specified character in the Find what box, and type noting in the replace with box.
This comment was minimized by the moderator on the site
3/2 You might also note that you don't need to specify the wb prefix once you've .Add ed the workbook since it becomes active. Specifying wb might or might not be more efficient but it can be omitted from some commands. Actually I entirely scrapped the variable wb; I just go Workbooks.Add, and use ActiveWorkbook when needed. (As you are suppressing ScreenUpdating it wouldn't be obvious to some that wb is Active. Tip for beginners (and higher): I always, always develop with ScreenUpdating and DisplayAlerts as True, and when done with development, I consider toggling them off for some passage of code.)
This comment was minimized by the moderator on the site
2/2 - vbYesNoCancel msgboxes and Booleans to indicate whether to export all, selection, or a user specified range - a static String for the prior range address - if len(that static)1 then I set WorkRng=activesheet.UsedRange (You can't copy multiple areas with a single copy, though with a little work you could walk the areas and copy them piecemeal.) - Idiotic Microsoft does not save off empty rows at the start and the bottom of the saved range, and does not save off empty columns at the leftmost and the rightmost of the saved range. When I detect that (UsedRange is not row 1, col. 1, or xlLastCell is not completely lower-right) I msgbox to ask user if they want to plug A1 or the lower right cell. - Then I decided to preemptively address the upper left issue by inserting a row and setting A1 to be text like "The following is for range " - I close with activeworkbook.close SaveChanges:=False - Long time habit since I'm an angry proponent of cleaning up (and the world is a sad place thanks to irresponsible programmers who shirk that responsibility when it matters), I set WorkRng = Nothing on the way out :)
This comment was minimized by the moderator on the site
1/2 (since your software limits comment length) I am a serious coder and I want to inform you that the VBA code here is outstanding. It's clean, and not one line too much, or one too few. It's exemplary coding for demonstration of the process. I'll also mention that as I extensively researched solutions for export of selection, you and only one other person suggested dropping the range into a temp new workbook. All other answers were painfully manually, walking through cell by cell. Even Chip's code is much longer and runs slower (but intentionally so, as it is much more flexible - specifiable delimiters, etc.) Just for your amusement, I made some very minor tweaks but otherwise nearly lifted the code word for word because it basically dropped right into a very intricate and specialized application. Some of these tweaks are something I'm sure you do in practice, but they add lines of code (e.g. error checking) so showing them on this webpage would have muddied your display so that the essential elements of processing would have been cumbersome for readers to follow along. Anyway: (see part 2)
This comment was minimized by the moderator on the site
My query is as mentioned below: I have a report to generate everyday. The data what I get on the final row (only one row but more than one columns) I want it to export to another excel sheet which is a summary excel sheet saved separately on my desktop. Eg: Day1 report - final row export to Summary excel sheet row1 Day2 report - final row export to Summary excel sheet row2 Day3 report - final row export to Summary excel sheet row3 and so on.. Export should be done through a click button., which means when I click on export button the data on the sheet I calculated today should go and save on the Summary excel sheet row1, next day a new excel sheet report calculated should go and save on the Summary excel sheet row2 and so on.. Will this be possible to do... If yes please someone help me on this... Thank you in advance...:-)
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations