Как да запишете всеки лист като отделен текстов файл от работна книга?
Когато искате да запишете работен лист като текстов файл, можете да използвате функцията Save As на Excel, за да запишете работния лист като текстов файл. Но ако искате да запазите всеки лист от работна книга като отделен текстов файл, стъпките на Save As трябва да ви дразнят. Тук ви представям някои интересни трикове за бързо решаване на тази скучна задача в Excel.
Запазете лист като текстов файл с VBA
Запазете всеки лист от работна книга като отделен текстов файл с Kutools за Excel 
Експортирайте селекция от лист като текстов файл с Kutools за Excel
Запазете лист като текстов файл с VBA
Ако не искате да използвате функцията Запиши като, за да запазите лист като текстов файл, можете да използвате VBA код.
1. Активирайте листа, който искате да запишете като текстов файл.
2. Натиснете Alt + F11 клавиши за показване Microsoft Visual Basic за приложения прозорец.
3. кликване Поставете > Модули от прозореца и след това поставете под VBA кода към модула.
VBA: Запазете листа като текстов файл.
Sub SaveSheetToTxt()
'Updateby20150910
Dim xRet As Long
Dim xFileName As Variant
On Error GoTo ErrHandler:
xFileName = Application.GetSaveAsFilename(ActiveSheet.Name, "TXT File (*.txt), *.txt", , "Kutools for Excel")
If xFileName = False Then Exit Sub
If Dir(xFileName) <> "" Then
xRet = MsgBox("File '" & xFileName & "' exists. Overwrite?", vbYesNo + vbExclamation, "Kutools for Excel")
If xRet <> vbYes Then
Exit Sub
Else
Kill xFileName
End If
End If
ActiveSheet.Copy
ActiveWorkbook.SaveAs xFileName, xlUnicodeText
If ActiveWorkbook.Name <> ThisWorkbook.Name Then
ActiveWorkbook.Close False
End If
My_Exit:
Exit Sub
ErrHandler:
MsgBox Err.Description, , "Kutools for Excel"
End Sub4. кликване бягане бутон за изпълнение на кода и след това в Kutools за Excel изберете папка за поставяне на текстовия файл и задайте име за текстовия файл. Вижте екранна снимка:
5. кликване Save. Сега активният лист се запазва като текстов файл.
Съвет: с VBA можете да запишете само един лист като текстов файл наведнъж.
Запазете всеки лист от работна книга като отделен текстов файл с Kutools за Excel
Ако имате голяма работна книга със стотици листове, необходими за записване в отделни текстови файлове, методът VBA също губи време. В този случай можете да опитате да използвате Kutools за ExcelЕ Разделена работна книга да се справите с тази работа, което ще ви достави неочаквана изненада.
| Kutools за Excel, с повече от 300 удобни функции, прави работата ви по-лесна. |
След безплатно инсталиране Kutools за Excel, моля, направете следното:
1. Активирайте работната книга, чиито листове искате да записвате като независими текстови файлове, след което щракнете Kutools плюс > Workbook > Разделена работна книга. Вижте екранна снимка:
2. В Разделена работна книга изберете листовете, които искате да разделите и запишете като текстови файлове, по подразбиране всички листове са избрани и след това отметнете Посочете формат за запазване, и изберете Unicode Text(*.txt) от падащия списък по-долу. Вижте екранна снимка:
3. кликване разцепени след това изберете папка, от която да поставите текстовите файлове Преглед за папка диалогов прозорец. Вижте екранна снимка:
4. кликване OK. Сега всеки лист от работната книга се записва като отделен текстов файл в избраната папка.
с Разделена работна книга of Kutools за Excel, можете да разделите работна книга и да ги запишете като отделни xls файлове, xlsx файлове, PDF файлове или CSV файлове, щракнете тук, за да научите повече за тази помощна програма.
Щракнете тук, за да изтеглите безплатно Kutools за Excel
Експортирайте селекция от лист като текстов файл с Kutools за Excel
с Kutools за Excel, можете също да експортирате селекция от лист като текстов файл, като използвате неговия Експортиране на диапазон във файл.
| Kutools за Excel, с повече от 300 удобни функции, прави работата ви по-лесна. |
След безплатно инсталиране Kutools за Excel, моля, направете следното:
1. Изберете диапазон или диапазони, които искате да запишете като текстов файл, и щракнете Kutools плюс > Import / Export > Експортиране на диапазон във файл. Вижте екранна снимка:
2. След това в изскачащия диалогов прозорец поставете отметка Уникод текст опция под формат на файла раздел, след което отидете на Опции за текст раздел, за да проверите опцията, която ви е необходима, и след това изберете място за запазване.
3. кликване Ok. Сега наименувайте експортирания текстов файл в изскачащия прозорец Експортиране на диапазон във файл диалогов прозорец и щракнете върху OK бутон.
Досега селекцията е експортирана като отделен текстов файл.
Има повече от 120 инструменти в Kutools за Excel, за да го инсталирате и да имате 60-дневен пробен период, тогава може да намерите много немечтани полезни функции.
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!
