Note: The other languages of the website are Google-translated. Back to English

Cum se exportă date Excel (selecție sau foi) în fișiere text în Excel?

Dacă vi se cere să livrați un registru de lucru în format de fișier text, trebuie să convertiți registrul de lucru în fișiere text. Și acest articol vă va prezenta două metode pentru a exporta cu ușurință datele Excel în fișiere text.

Exportați o singură foaie în fișier text în Excel

În mod implicit, datele Excel vor fi salvate ca registre de lucru în formatul .xlsx. Cu toate acestea, putem exporta o foaie de lucru a registrului de lucru existent ca fișiere text cu Salvare ca caracteristică. Vă rugăm să faceți următoarele:

1. Treceți la foaia de lucru pe care o veți exporta în fișier text și faceți clic pe Fișier (Sau Butonul Office)> Salvare ca.

2. În deschidere Salvare ca caseta de dialog, selectați folderul de destinație în care veți salva fișierul text exportat, denumiți fișierul în Nume de fișier , apoi selectați caseta Text Unicode (* .txt) din Salvați ca tip lista verticală. Vedeți captura de ecran:
exportați în fișier text cu funcția Salvare ca

3. Apoi, va apărea două casete de dialog de avertizare care vă solicită să exportați doar foaia de lucru activă ca fișier text și să lăsați afară orice caracteristici incompatibile cu fișierul text. Clic OK buton și Da buton succesiv.

Apoi, datele din foaia de lucru activă sunt exportate ca un fișier text nou.

notițe: Salvare ca comanda este capabilă să exporte date din foaia de lucru activă ca fișier text. Dacă doriți să exportați toate datele din întregul registru de lucru, trebuie să salvați fiecare foaie de lucru ca fișier text individual.


Exportați selecția (sau o coloană) în fișier text cu VBA

Următorul cod VBA vă poate ajuta, de asemenea, să exportați datele intervalului selectat (de exemplu, o coloană) în fișierul text, vă rugăm să procedați astfel:

1. Țineți apăsată tasta ALT + F11 tastele și deschide fișierul Microsoft Visual Basic pentru aplicații fereastră.

2. Clic Insera > Moduleși lipiți următorul cod în fereastra modulului.

VBA: exportați selecția sau întreaga foaie de lucru în fișier text

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. Apoi apăsați F5 tasta pentru a rula acest cod. Și apoi selectați intervalul de date pe care doriți să îl exportați în caseta de dialog pop-up și faceți clic pe OK buton, vezi captura de ecran:
Selectați o coloană de exportat ca fișier text

4. Și acum într-o altă casetă de dialog Salvare ca, vă rugăm să specificați un nume pentru acest fișier text și un folder în care să introduceți acest fișier și faceți clic pe Economisiți butonul.


Exportați selecția (sau o coloană) în fișier text cu Kutools pentru Excel

Salvare ca comanda poate exporta toate datele din foaia de lucru activă ca text. Ce se întâmplă dacă exportați toate datele fișelor de lucru inactive specificate sau o parte a datelor într-o foaie de lucru ca fișier text? Kutools pentru Excel's Exportați gama în fișier utilitarul ne poate ajuta să exportăm și să salvăm datele în selecție ca fișier text cu ușurință ..  

Kutools pentru Excel - Include peste 300 de instrumente utile pentru Excel. Probă gratuită cu funcții complete 30-zi, nu este nevoie de card de credit! Încercare gratuită acum!

1. Selectați sunetul pe care îl veți exporta într-un fișier text (în cazul nostru, selectăm Coloana A) și faceți clic Kutools Plus > Import Export > Exportați gama în fișier, vezi captura de ecran:
Addin Excel: exportați selecția în fișier text

2. În Exportați gama în fișier caseta de dialog, faceți cum se arată în imaginea de mai jos:
Addin Excel: exportați selecția în fișier text
(1) Verificați Text Unicode opțiune în formatul de fișier secțiune;
(2) Bifați opțiunea Salvați valorile reale sau Salvați valorile așa cum se arată pe ecran, după cum aveți nevoie în secțiunea Opțiuni text;
(3) Specificați folderul de destinație în care veți salva fișierul text exportat;
(4) Faceți clic pe Ok butonul.

3. Denumiți fișierul text exportat în noua casetă de dialog de deschidere și faceți clic pe Ok butonul.
denumiți fișierul text exportat

Și apoi selecția (coloana A selectată) a fost exportată ca fișier text și salvată în folderul specificat.

Kutools pentru Excel - Include peste 300 de instrumente utile pentru Excel. Probă gratuită cu funcții complete 30-zi, nu este nevoie de card de credit! Ia-L Acum


Exportați mai multe foi pentru a separa fișiere text în Excel

Uneori poate fi necesar să exportați mai multe foi de lucru în mai multe fișiere text în Excel. Funcția Salvare ca poate fi puțin plictisitoare! Nu iti face griji! Kutools pentru Excel Carnet de lucru divizat utilitarul oferă utilizatorilor Excel o soluție ușoară pentru a exporta mai multe foi de lucru în mai multe fișiere text separate cu mai multe clicuri. 

Kutools pentru Excel - Include peste 300 de instrumente utile pentru Excel. Probă gratuită cu funcții complete 30-zi, nu este nevoie de card de credit! Încercare gratuită acum!

1. clic Kutools Plus > WorkbookCarnet de lucru divizat. Vedeți captura de ecran:
Addin Excel: exportați mai multe foi în fișiere text

2. În caseta de dialog Split Workbook de deschidere, procedați după cum urmează:
Addin Excel: exportați mai multe foi în fișiere text
(1) Verificați foile de lucru pe care le veți exporta în fișiere text separate în Numele registrului de lucru secțiune;
(2) Verificați Specificați formatul de salvare , apoi selectați opțiunea Text Unicode (* .txt) din lista verticală de mai jos, vezi captura de ecran din stânga:
(3) Faceți clic pe Despică butonul.

3. Și apoi, în fereastra de dialog Căutare după folder, selectați folderul de destinație în care veți salva fișierele text exportate și faceți clic pe OK butonul.

Până în prezent fiecare foaie de lucru specificată a fost exportată ca fișier text separat și salvată în folderul specificat.

Kutools pentru Excel - Include peste 300 de instrumente utile pentru Excel. Probă gratuită cu funcții complete 30-zi, nu este nevoie de card de credit! Ia-L Acum

Salvați cu ușurință fiecare foaie ca fișier PDF / text / csv separat sau registru de lucru în Excel

În mod normal, putem salva foaia de lucru activă ca fișier .pdf separat, fișier .txt sau fișier .csv cu caracteristica Salvare ca. Dar Kutools pentru Excel Carnet de lucru divizat utilitarul vă poate ajuta să salvați cu ușurință fiecare registru de lucru ca fișier separat PDF / TEXT / CSV sau registru de lucru în Excel.


registru de lucru divizat pdf 1

Kutools pentru Excel - Include peste 300 de instrumente utile pentru Excel. Probă gratuită cu funcții complete 30-zi, nu este nevoie de card de credit! Ia-L Acum


Demo: exportați date Excel (selecție sau foi) în fișiere text în Excel


Kutools pentru Excel include mai mult de 300 de instrumente la îndemână pentru Excel, gratuite pentru a încerca fără limitări în 30 de zile. Descărcați și încercați gratuit acum!

Articole pe aceeaşi temă:


Cele mai bune instrumente de productivitate Office

Kutools pentru Excel vă rezolvă majoritatea problemelor și vă crește productivitatea cu 80%

  • reutilizarea: Introduceți rapid formule complexe, diagrame și orice ai folosit anterior; Criptați celulele cu parola; Creați o listă de corespondență și trimiteți e-mailuri ...
  • Super Formula Bar (editați cu ușurință mai multe linii de text și formulă); Layout de citire (citiți și editați cu ușurință un număr mare de celule); Lipiți la interval filtrat...
  • Merge celule / rânduri / coloane fără a pierde date; Conținut de celule divizate; Combinați rânduri / coloane duplicate... Prevenirea celulelor duplicate; Comparați gamele...
  • Selectați Duplicat sau Unic Rânduri; Selectați Rânduri goale (toate celulele sunt goale); Super Find și Fuzzy Find în multe cărți de lucru; Selectare aleatorie ...
  • Copie exactă Mai multe celule fără modificarea referinței formulelor; Creați automat referințe la foi multiple; Introduceți gloanțe, Casete de selectare și multe altele ...
  • Extrageți textul, Adăugați text, eliminați după poziție, Eliminați spațiul; Creați și imprimați subtotaluri de paginare; Convertiți conținutul dintre celule și comentarii...
  • Super Filtru (salvați și aplicați scheme de filtrare altor foi); Sortare avansată după lună / săptămână / zi, frecvență și multe altele; Filtru special cu bold, italic ...
  • Combinați cărți de lucru și foi de lucru; Merge Tables pe baza coloanelor cheie; Împărțiți datele în mai multe foi; Conversia în loturi xls, xlsx și PDF...
  • Peste 300 de funcții puternice. Suportă Office / Excel 2007-2021 și 365. Acceptă toate limbile. Implementare ușoară în întreprinderea sau organizația dvs. Funcții complete Probă gratuită de 30 de zile. Garanție de returnare a banilor de 60 de zile.
fila kte 201905

Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară

  • Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
  • Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ​​ferestrele noi.
  • Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!
fundul officetab
Comentarii (19)
Încă nu există evaluări. Fii primul care evaluează!
Acest comentariu a fost redus la minimum de moderatorul de pe site
chiar este foarte util, multumesc :D
Acest comentariu a fost redus la minimum de moderatorul de pe site
trebuie să treceți datele din Excel într-un bloc de note și apoi să separați datele folosind o virgulă. Cum pot face acest lucru
Acest comentariu a fost redus la minimum de moderatorul de pe site
trebuie să selectați „salvare ca fișier .csv” (valori separate prin virgulă)
Acest comentariu a fost redus la minimum de moderatorul de pe site
Am o problemă după ce am salvat fișierul .xls în .txt, dimensiunea fișierului devine mai mare, de la 500 kb la 1,523 kb cum o repar? Mulțumiri
Acest comentariu a fost redus la minimum de moderatorul de pe site
Salut! Celulele pe care vreau să le export ca fișier text se referă la alte celule și conțin coduri if. Aceasta înseamnă că atunci când export nu primesc valorile numerice, ci „N/A”. Știi cum pot remedia asta? Mulțumesc.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Știe cineva cum să o facă pentru Excel 2016 MAC? Multumesc
Acest comentariu a fost redus la minimum de moderatorul de pe site
Unul dintre cele mai bune site-uri unde îmi găsesc întrebările.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Întrebarea mea este așa cum este menționat mai jos: am un raport de generat în fiecare zi. Datele pe care le primesc pe ultimul rând (doar un rând, dar mai multe coloane) vreau să le exporte într-o altă foaie Excel, care este o foaie Excel rezumată salvată separat pe desktop. De exemplu: raport Ziua 1 - exportul rândului final în foaia Excel Rezumat rândul 1 Raportul Zilei2 - exportul rândului final în foaia Excel Rezumat rândul 2 Raportul Zilei3 - exportul rândului final în foaia Excel Rezumat rândul 3 și așa mai departe. Exportul trebuie făcut printr-un clic., ceea ce înseamnă că atunci când dau clic pe butonul de export, datele de pe foaia pe care am calculat-o astăzi ar trebui să meargă și să salveze pe Rândul 1 al foii Excel Rezumat, a doua zi un nou raport al foii Excel calculat ar trebui să meargă și să salveze pe Rândul 2 al foii Excel Rezumat și așa mai departe. Va fi posibil acest lucru... Dacă da, vă rog să mă ajute cineva în acest sens... Vă mulțumesc anticipat...:-)
Acest comentariu a fost redus la minimum de moderatorul de pe site
1/2 (deoarece software-ul dvs. limitează lungimea comentariilor) Sunt un programator serios și vreau să vă informez că codul VBA de aici este remarcabil. Este curat, și nici un rând prea mult, sau unul prea puțin. Este o codificare exemplară pentru demonstrarea procesului. Voi menționa, de asemenea, că, pe măsură ce am cercetat pe larg soluții pentru exportul selecției, tu și o singură altă persoană ați sugerat să introduceți intervalul într-un nou registru de lucru temporar. Toate celelalte răspunsuri au fost dureros de manual, mergând prin celulă cu celulă. Chiar și codul lui Chip este mult mai lung și rulează mai lent (dar în mod intenționat, deoarece este mult mai flexibil - delimitatori specificabili, etc.) Doar pentru amuzamentul dvs., am făcut câteva ajustări foarte minore, dar în rest aproape că am ridicat codul cuvânt cu cuvânt, deoarece practic acesta a căzut direct într-o aplicație foarte complicată și specializată. Unele dintre aceste ajustări sunt ceva ce sunt sigur că le faceți în practică, dar adaugă linii de cod (de exemplu, verificarea erorilor), așa că afișarea lor pe această pagină web ar fi tulburat afișajul, astfel încât elementele esențiale ale procesării ar fi fost greoaie pentru cititori. să urmeze. Oricum: (vezi partea 2)
Acest comentariu a fost redus la minimum de moderatorul de pe site
2/2 - vbYesNoCancel msgboxes și Booleans pentru a indica dacă se exportă toate, selecția sau un interval specificat de utilizator - un șir static pentru adresa intervalului anterioară - dacă len(that static)1, atunci am setat WorkRng=activesheet.UsedRange (Puteți nu copiați mai multe zone cu o singură copie, deși cu puțină muncă ați putea parcurge zonele și le puteți copia fragmentat.) - Idiotul Microsoft nu salvează rândurile goale la începutul și la partea de jos a intervalului salvat și nu salvează dezactivați coloanele goale din partea stângă și cea din dreapta a intervalului salvat. Când detectez că (UsedRange nu este rândul 1, col. 1 sau xlLastCell nu este complet în dreapta jos) Mesgbox pentru a întreba utilizatorul dacă vrea să conecteze A1 sau celula din dreapta jos. - Apoi am decis să abordez preventiv problema din stânga sus inserând un rând și setând A1 să fie text de genul „Următorul este pentru interval” - Închei cu activeworkbook.close SaveChanges:=False - Obicei de mult timp de când sunt supărat susținător al curățării (și lumea este un loc trist datorită programatorilor iresponsabili care se sustră de această responsabilitate atunci când contează), am setat WorkRng = Nimic pe cale de ieșire :)
Acest comentariu a fost redus la minimum de moderatorul de pe site
3/2 De asemenea, s-ar putea să rețineți că nu trebuie să specificați prefixul wb odată ce ați adăugat registrul de lucru, deoarece devine activ. Specificarea wb ar putea fi sau nu mai eficientă, dar poate fi omisă din unele comenzi. De fapt, am eliminat complet variabila wb; Mă duc doar Workbooks.Add și folosesc ActiveWorkbook atunci când este necesar. (Deoarece suprimați ScreenUpdating, pentru unii nu ar fi evident că wb este activ. Sfat pentru începători (și mai mari): întotdeauna, dezvolt cu ScreenUpdating și DisplayAlerts ca fiind adevărate, iar când termin cu dezvoltarea, mă gândesc să le dezactivez pentru un pasaj de cod.)
Acest comentariu a fost redus la minimum de moderatorul de pe site
Mulțumim pentru fragmentul minunat de cod VBA pentru a exporta date într-un fișier text. Am folosit codul dvs. cu unele dintre ele. Datele cu care am de-a face sunt extrem de specifice lungimii liniei și după ce macro-ul a rulat, fișierul text conține niște ghilimele duble " în locuri aleatorii, care nu au fost niciodată prezente în datele mele înainte. Am încercat să adaug o linie de cod pentru a elimina acest caracter în diferite etape, dar care nu pare să funcționeze. Sunt conștient că pot elimina manual acest lucru, dar aș dori să o rezolv în codul VBA.

Sub Macro3()
Dim wb Ca registru de lucru
Dim saveFile As String
Dim WorkRng As Range
La data de eroare CV următoare
Selecție.Filtru automat
ActiveSheet.Range("$A$1:$B$10591"). Câmp de filtrare automată:=1, Criterii1:= _
"=NSZAP*", Operator:=xlAnd
Interval("A1").Selectați
ActiveCell.Offset(200, 0).Range(„A1”).Selectați
Interval(Selectie, Selection.End(xlDown)).Select
ActiveCell.Rows("1:10101").EntireRow.Select
Selection.Delete Shift:=xlUp
Interval("A1").Selectați
Selecție.Filtru automat
Interval(Selectie, Selection.End(xlDown)).Select
Set WorkRng = Application.Selection
Set wb = Application.Workbooks.Add
WorkRng.Copy
wb.Fise de lucru(1).Lipire
Selection.Replace What:="""", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
saveFile = Application.GetSaveAsFilename(fileFilter:="Fișiere text (*.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.Închidere
Application.CutCopyMode = Fals
Application.DisplayAlerts = Adevărat
Application.ScreenUpdating = Adevărat
End Sub
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună Harish,
Pentru a elimina un anumit caracter în bloc, puteți înlocui caracterul cu nimic.
Ctrl + H pentru a deschide caseta de dialog Găsiți și înlocuiți, introduceți caracterul specificat în caseta Găsiți și tastați notarea în caseta de înlocuire cu.
Acest comentariu a fost redus la minimum de moderatorul de pe site
SALUT
MULȚUMESC PENTRU CODUL VBA
UNEATEA PE UN ANUMIT TEXT EXISTĂ „TEXT” ÎN EXPORT .TXT
MULȚUMESC PENTRU DE CE
Acest comentariu a fost redus la minimum de moderatorul de pe site
salut baieti, am folosit acest cod:
Sub ExportRangetoFile()
„Actualizare 20130913
Dim wb Ca registru de lucru
Dim saveFile As String
Dim WorkRng As Range
La data de eroare CV următoare
xTitleId = „KutoolsforExcel”
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox(„Range”, xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = Fals
Application.DisplayAlerts = Fals
Set wb = Application.Workbooks.Add
WorkRng.Copy
wb.Fise de lucru(1).Lipire
saveFile = Application.GetSaveAsFilename(fileFilter:="Fișiere text (*.txt), *.txt")
wb.SaveAs Filename:=saveFile, FileFormat:=xlText, CreateBackup:=False
wb.Închidere
Application.CutCopyMode = Fals
Application.DisplayAlerts = Adevărat
Application.ScreenUpdating = Adevărat
End Sub

și am de lucru, dar trebuie să salvez o coloană cu celule care conțin funcția „concatenate”, iar când redau codul vba și salvez fișierul .TXT, doar ceea ce apare este #REF. cum pot sa o repar? pentru că am nevoie de datele care apar pe acele celule?
Acest comentariu a fost redus la minimum de moderatorul de pe site
A reusit cineva sa-si dea seama asta? Am aceeasi problema.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Salut, acest cod este foarte util pentru mine. Deci mulțumesc foarte mult.
Vreau să întreb că: Când folosesc acest cod, o nouă linie se adaugă automat la sfârșitul conținutului txt.
Mă puteți ajuta să prevenim acest lucru prin vba?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună, este grozav, mulțumesc mult.
Cum aș modifica codul pentru selecția Export (sau o coloană) în fișierul text cu VBA pentru a completa automat numele fișierului cu conținutul celulei B2?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Cum aș modifica codul pentru selecția Export (sau o coloană) într-un fișier text cu VBA pentru a completa automat numele fișierului cu conținutul celulei B2?
Mulțumiri
Nu există comentarii postate aici încă
Lăsa comentarii
Postare ca invitat
×
Evaluează această postare:
0   Caractere
Locații sugerate

Urmărește-ne

Copyright © 2009 - www.extendoffice.com. | Toate drepturile rezervate. Cu sprijinul ExtendOffice. | Harta site-ului
Microsoft și sigla Office sunt mărci comerciale sau mărci comerciale înregistrate ale Microsoft Corporation în Statele Unite și / sau în alte țări.
Protejat de Sectigo SSL