Բաց թողնել հիմնական բովանդակությունը

Ինչպե՞ս արտահանել Excel- ի տվյալները (ընտրություն կամ թերթեր) Excel- ում տեքստային ֆայլեր:

Եթե ​​ձեզանից պահանջվում է տետրային ֆայլի ձևաչափով աշխատանքային գիրք հանձնել, ապա ձեզ հարկավոր է աշխատանքային գիրքը վերափոխել տեքստային ֆայլերի: Եվ այս հոդվածը ձեզ կներկայացնի Excel- ի տվյալները հեշտությամբ տեքստային ֆայլեր արտահանելու երկու եղանակ:

Excel- ում մեկ մեկ թերթ արտահանեք տեքստային ֆայլ

Լռելյայն, Excel տվյալները կպահվեն որպես աշխատանքային գրքեր ՝ ձևաչափով .xlsx, Այնուամենայնիվ, մենք կարող ենք գոյություն ունեցող աշխատանքային գրքի աշխատանքային թերթ արտահանել որպես տեքստային ֆայլեր հետևյալով Պահել As առանձնահատկություն Խնդրում ենք անել հետևյալը.

1. Անցեք աշխատանքային թերթին, որը դուք արտահանելու եք տեքստային ֆայլ, և կտտացրեք Ֆայլ (Կամ Գրասենյակային կոճակ)> Պահել As.

2. Բացման մեջ Պահել As երկխոսության տուփ, ընտրեք նպատակակետի պանակը, որի մեջ կփրկեք արտահանվող տեքստային ֆայլը, ֆայլը անվանեք այն Ֆայլի անուն տուփը, ապա ընտրեք Յունիկոդ տեքստ (* .txt) - ից Պահել որպես տիպ բացվող ցուցակ: Տեսեք,
արտահանել Save As գործառույթով տեքստային ֆայլ

3. Այնուհետև այն կհայտնվի երկու նախազգուշական երկխոսության տուփ, որոնք ձեզ կխնդրեն արտահանել միայն ակտիվ աշխատանքային թերթը որպես տեքստային ֆայլ և դուրս թողնել տեքստային ֆայլի հետ ցանկացած անհամատեղելի հատկություններ: Սեղմել OK կոճակը եւ այո կոճակը հաջորդաբար:

Այնուհետև ակտիվ աշխատանքային թերթի տվյալներն արտահանվում են որպես նոր տեքստային ֆայլ:

ՆշումՈր Պահել As հրամանը կարող է միայն ակտիվ աշխատանքային թերթի տվյալները արտահանել որպես տեքստային ֆայլ: Եթե ​​ցանկանում եք ամբողջ աշխատանքային գրքի բոլոր տվյալները արտահանել, ապա անհրաժեշտ է յուրաքանչյուր աշխատանքային թերթը որպես տեքստային ֆայլ պահպանել առանձին:


Արտահանեք ընտրություն (կամ մեկ սյունակ) VBA- ով տեքստային ֆայլ

Հետևյալ VBA կոդը նույնպես կարող է օգնել ձեզ արտահանել ընտրված տիրույթի տվյալները (օրինակ ՝ մեկ սյունակ) տեքստային ֆայլ, խնդրում ենք արեք հետևյալ կերպ.

1. Անջատեք ALT + F11 ստեղները, և այն բացում է Microsoft Visual Basic հավելվածների համար պատուհան.

2. Սեղմել Տեղադրել > Մոդուլներև տեղադրեք հետևյալ կոդը Մոդուլի պատուհանում:

VBA. Արտահանման ընտրություն կամ ամբողջ աշխատանքային թերթը տեքստային ֆայլ

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. Այնուհետեւ սեղմեք F5 ստեղն ՝ այս կոդը գործելու համար: Եվ այնուհետև ելնող երկխոսության դաշտում ընտրեք տվյալների տիրույթը, որը ցանկանում եք արտահանել և կտտացրեք այն OK կոճակը, տես նկարի նկարը.
Ընտրեք մեկ սյուն `որպես տեքստային ֆայլ արտահանելու համար

4. Եվ հիմա «Պահիր որպես» այլ երկխոսության դաշտում նշեք այս տեքստային ֆայլի անունը և այս ֆայլը տեղադրելու համար նախատեսված թղթապանակ և կտտացրեք Փրկել կոճակը:


Արտահանեք ընտրություն (կամ մեկ սյունակ) Excel- ի համար Kutools- ով տեքստային ֆայլ

The Պահել As հրամանը կարող է արտահանել բոլոր տվյալների ակտիվ աշխատանքային թերթը որպես տեքստ: Ի՞նչ կլինի, եթե նշված անգործուն աշխատանքային թերթերի բոլոր տվյալները կամ տվյալների մի մասը աշխատանքային թերթում որպես տեքստային ֆայլ արտահանվեն: Excel- ի համար նախատեսված գործիքներ's Արտահանեք տեսականին ֆայլ օգտակար ծրագիրը կարող է օգնել մեզ հեշտությամբ արտահանել և պահպանել տվյալները ընտրության մեջ որպես տեքստային ֆայլ:  

Excel- ի համար նախատեսված գործիքներ - Փաթեթավորված ավելի քան 300 հիմնական գործիքներով Excel-ի համար: Վայելեք լիարժեք հնարավորություններով 30-օրյա ԱՆՎՃԱՐ փորձարկում՝ առանց կրեդիտ քարտի պահանջի: Ներբեռնել հիմա!

1. Ընտրեք այն ռինգը, որը դուք արտահանելու եք տեքստային ֆայլ (մեր դեպքում մենք ընտրում ենք սյունակը A) և կտտացրեք Kutools Plus > Ներմուծման արտահանման > Արտահանեք տեսականին ֆայլ, տես նկարի նկարը.
Excel հավելում. Արտահանել ընտրությունը տեքստային ֆայլ

2. Է Արտահանեք տեսականին ֆայլ երկխոսության տուփ, արեք, ինչպես ցույց է տրված ստորև նշված նկարը.
Excel հավելում. Արտահանել ընտրությունը տեքստային ֆայլ
(1) Ստուգեք Յունիկոդ տեքստ տարբերակը ֆայլի ֆորմատ Բաժին;
(2) Ստուգեք «Պահել իրական արժեքները» տարբերակը կամ «Պահել արժեքներ», ինչպես ցույց է տրված էկրանին, ինչպես ձեզ հարկավոր է Տեքստի ընտրանքներ բաժնում
(3) Նշեք նպատակակետի պանակը, որի մեջ կփրկեք արտահանվող տեքստային ֆայլը.
(4) Կպցրեք այն Ok կոճակը:

3. Անվանեք արտահանված տեքստային ֆայլը նոր բացման երկխոսության դաշտում և կտտացրեք այն Ok կոճակը:
անվանել արտահանվող տեքստային ֆայլը

Եվ ապա ընտրությունը (ընտրված սյուն A) արտահանվել է որպես տեքստային ֆայլ և պահվել նշված պանակում:

Excel- ի համար նախատեսված գործիքներ - Supercharge Excel-ը ավելի քան 300 հիմնական գործիքներով: Վայելեք լիարժեք հնարավորություններով 30-օրյա ԱՆՎՃԱՐ փորձարկում՝ առանց կրեդիտ քարտի պահանջի: Get It Now


Արտահանեք բազմաթիվ թերթեր ՝ Excel- ում տեքստային ֆայլերն առանձնացնելու համար

Երբեմն կարող է անհրաժեշտ լինել Excel- ում բազմաթիվ աշխատանքային թերթեր արտահանել բազմաթիվ տեքստային ֆայլեր: Save As հնարավորությունը կարող է մի փոքր հոգնեցուցիչ լինել: Մի անհանգստացիր! Excel- ի համար նախատեսված գործիքներ Պառակտում աշխատանքային գրքույկ օգտակարությունը Excel- ի օգտվողներին տալիս է հեշտ լուծում `մի քանի կտտոցներով բազմաթիվ աշխատանքային թերթեր բազմաթիվ առանձին տեքստային ֆայլեր արտահանելու համար: 

Excel- ի համար նախատեսված գործիքներ - Փաթեթավորված ավելի քան 300 հիմնական գործիքներով Excel-ի համար: Վայելեք լիարժեք հնարավորություններով 30-օրյա ԱՆՎՃԱՐ փորձարկում՝ առանց կրեդիտ քարտի պահանջի: Ներբեռնել հիմա!

1: սեղմեք Kutools Plus > Աշխատանքային տետրՊառակտում աշխատանքային գրքույկ, Տեսեք,
Excel հավելում. Արտահանել բազմաթիվ թերթեր տեքստային ֆայլեր

2. Բացման Split Workbook երկխոսության դաշտում խնդրում ենք կատարել հետևյալը.
Excel հավելում. Արտահանել բազմաթիվ թերթեր տեքստային ֆայլեր
(1) Ստուգեք այն աշխատաթերթերը, որոնք դուք արտահանելու եք ՝ առանձին տեքստային ֆայլեր տեղադրելու համար Աշխատանքային տետր անուն Բաժին;
(2) Ստուգեք Նշեք պահպանման ձևաչափը տարբերակը և ընտրեք այն Unicode տեքստ (* .txt) ներքևի բացվող ցուցակից, տես ձախ էկրանի նկարը.
(3) Կտտացրեք այն կոճակին պառակտում կոճակը:

3. Եվ այնուհետև դուրս գալով պատուհանում «Թերթիր թղթապանակի համար» երկխոսության դաշտում ընտրեք նպատակակետի պանակը, որի մեջ կփրկեք արտահանված տեքստային ֆայլերը և կտտացրեք OK կոճակը:

Մինչ այժմ յուրաքանչյուր նշված աշխատանքային թերթը արտահանվել է որպես առանձին տեքստային ֆայլ և պահվել նշված թղթապանակում:

Excel- ի համար նախատեսված գործիքներ - Supercharge Excel-ը ավելի քան 300 հիմնական գործիքներով: Վայելեք լիարժեք հնարավորություններով 30-օրյա ԱՆՎՃԱՐ փորձարկում՝ առանց կրեդիտ քարտի պահանջի: Get It Now

Excel- ում յուրաքանչյուր թերթը հեշտությամբ զանգվածաբար պահեք որպես առանձին PDF / տեքստ / CSV ֆայլ կամ աշխատանքային գրքույկ

Սովորաբար մենք կարող ենք պահպանել ակտիվ աշխատանքային թերթը որպես առանձին .pdf ֆայլ, .txt ֆայլ կամ .csv ֆայլ ՝ Save As հնարավորությամբ: Բայց Excel- ի համար նախատեսված Kutools Պառակտում աշխատանքային գրքույկ օգտակար ծրագիրը կարող է օգնել ձեզ հեշտությամբ պահպանել յուրաքանչյուր աշխատանքային գրքույկ որպես առանձին PDF / TEXT / CSV ֆայլ կամ Excel- ում աշխատագիրք:


գովազդի բաժանված աշխատանքային գիրք pdf 1

Excel- ի համար նախատեսված գործիքներ - Supercharge Excel-ը ավելի քան 300 հիմնական գործիքներով: Վայելեք լիարժեք հնարավորություններով 30-օրյա ԱՆՎՃԱՐ փորձարկում՝ առանց կրեդիտ քարտի պահանջի: Get It Now


Դեմո. Excel- ի տվյալների արտահանում (ընտրություն կամ թերթեր) տեքստային ֆայլեր


Excel- ի համար նախատեսված գործիքներ300-ից ավելի հարմար գործիքներ ձեր մատների տակ: Այսօր սկսեք ձեր 30-օրյա անվճար փորձաշրջանը՝ առանց գործառույթների սահմանափակումների: Download Now!

Related Articles:

Գրասենյակի արտադրողականության լավագույն գործիքները

🤖 Kutools AI օգնականՀեղափոխություն կատարել տվյալների վերլուծության հիման վրա՝ Խելացի կատարում   |  Ստեղծեք ծածկագիր  |  Ստեղծեք հատուկ բանաձևեր  |  Վերլուծել տվյալները և ստեղծել գծապատկերներ  |  Invoke Kutools-ի գործառույթները...
Հանրաճանաչ հատկություններ: Գտեք, ընդգծեք կամ նույնականացրեք կրկնօրինակները   |  Deleteնջել դատարկ շարքերը   |  Միավորել սյունակները կամ բջիջները՝ առանց տվյալների կորստի   |   Կլոր առանց բանաձևի ...
Super Փնտրել: Բազմաթիվ չափանիշների VLookup    Բազմակի արժեք VLookup  |   VLookup բազմաթիվ թերթերում   |   Fuzzy Փնտրել ....
Ընդլայնված բացվող ցուցակ: Արագ ստեղծեք բացվող ցուցակը   |  Կախված բացվող ցուցակ   |  Բազմակի ընտրություն Drop Down ցուցակ ....
Սյունակի կառավարիչ: Ավելացրեք որոշակի քանակությամբ սյունակներ  |  Տեղափոխել սյունակները  |  Փոխարկել թաքնված սյունակների տեսանելիության կարգավիճակը  |  Համեմատեք միջակայքերը և սյունակները ...
Առանձնահատկություններ: Ցանցի կենտրոնացում   |  Դիզայնի տեսք   |   Մեծ Formula Bar    Աշխատանքային գրքույկի և թերթիկների կառավարիչ   |  Ռեսուրսների գրադարան (Ավտոմատ տեքստ)   |  Ամսաթիվ ընտրող   |  Միավորել աշխատանքային թերթերը   |  Գաղտնագրել/գաղտնազերծել բջիջները    Ուղարկեք նամակներ ըստ ցանկի   |  Սուպեր զտիչ   |   Հատուկ զտիչ (զտել թավ/շեղ/շեղված...) ...
Լավագույն 15 գործիքների հավաքածու12 Տեքստ Գործիքներ (Ավելացրեք տեքստ, Հեռացնել նիշերը, ...)   |   50+ Աղյուսակ Տեսակներ (Գանտի աղյուսակը, ...)   |   40+ Գործնական Բանաձեւեր (Հաշվարկել տարիքը ՝ ելնելով ծննդյան տարեդարձից, ...)   |   19 միացում Գործիքներ (Տեղադրեք QR կոդ, Տեղադրեք նկար ուղուց, ...)   |   12 Փոխարկում Գործիքներ (Բառեր համարներ, Արտարժույթի փոխակերպումը, ...)   |   7 Միաձուլում և պառակտում Գործիքներ (Ընդլայնված կոմբինատ տողեր, Պառակտված բջիջներ, ...)   |   ... եւ ավելին

Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար:  Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...

Նկարագրություն


Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
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