Note: The other languages of the website are Google-translated. Back to English
Увійти  \/ 
x
or
x
Реєстрація  \/ 
x

or

Як експортувати дані Excel (виділення чи аркуші) у текстові файли в Excel?

Якщо вам потрібно надати книгу у форматі текстового файлу, вам потрібно перетворити книгу в текстові файли. І ця стаття познайомить вас із двома методами, як легко експортувати дані Excel у текстові файли.

Експортуйте один аркуш у текстовий файл у Excel

За замовчуванням дані Excel зберігатимуться як книги у форматі . Xlsx. Однак ми можемо експортувати аркуш існуючої книги як текстові файли за допомогою Зберегти як особливість. Будь ласка, виконайте наступне:

1. Перейдіть до робочого аркуша, який ви експортуєте до текстового файлу, та натисніть філе (Або Кнопка офісу)> Зберегти як.

2. На відкритті Зберегти як діалоговому вікні, виберіть цільову папку, до якої ви збережете експортований текстовий файл, і назвіть файл у папці Файл , а потім виберіть Текст Unicode (* .txt) із Зберегти як випадаючий список. Дивіться знімок екрана:
експортувати в текстовий файл із функцією Зберегти як

3. Потім з’являться два діалогові вікна з попередженнями, в яких пропонується експортувати лише активний аркуш як текстовий файл, а також залишити будь-які несумісні функції з текстовим файлом. Клацніть OK кнопки і да кнопку послідовно.

Потім дані на активному аркуші експортуються як новий текстовий файл.

примітки: Зберегти як Команда може експортувати дані активного аркуша лише як текстовий файл. Якщо ви хочете експортувати всі дані цілої книги, вам потрібно зберегти кожен аркуш як текстовий файл окремо.


Експортуйте виділення (або один стовпець) у текстовий файл із VBA

Наступний код VBA також може допомогти вам експортувати вибрані дані про діапазон (наприклад, один стовпець) у текстовий файл, будь-ласка, зробіть так:

1. Утримуйте клавішу ALT + F11 і відкриває Microsoft Visual Basic для додатків вікна.

2. Натисніть Insert > Модуліта вставте наступний код у вікно модуля.

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. А тепер, в іншому діалоговому вікні Зберегти як, будь-ласка, вкажіть ім'я для цього текстового файлу та папку, до якої потрібно вставити цей файл, і натисніть зберегти кнопки.


Експортуйте виділення (або один стовпець) у текстовий файл за допомогою Kutools для Excel

повне г, повне г,, показали, від, номер, XNUMX Зберегти як команда може експортувати всі дані на активному аркуші у вигляді тексту. Що робити, якщо експортувати всі дані вказаних неактивних аркушів або частину даних на аркуші як текстовий файл? Kutools для Excel's Експортувати діапазон у файл утиліта може допомогти нам легко експортувати та зберігати дані у виділеному вигляді як текстовий файл ..  

Kutools для Excel - Включає більше 300 зручних інструментів для Excel. Повна функція безкоштовної пробної версії 30 днів, кредитна картка не потрібна! Безкоштовна пробна версія зараз!

1. Виберіть дзвінок, який ви експортуєте в текстовий файл (у нашому випадку ми вибираємо стовпець A), і натисніть Kutools Plus > Імпорт-експорт > Експортувати діапазон у файл, див. скріншот:
Додаток Excel: експортувати виділення в текстовий файл

2. В Експортувати діапазон у файл діалогове вікно, зробіть, як показано нижче, на скріншоті:
Додаток Excel: експортувати виділення в текстовий файл
(1) Перевірте Текст Unicode опція в формат файлу розділ;
(2) Установіть прапорець Зберегти фактичні значення або Зберегти значення, як показано на екрані, як вам потрібно в розділі Параметри тексту;
(3) Вкажіть цільову папку, в яку ви збережете експортований текстовий файл;
(4) Клацніть на Ok кнопки.

3. Назвіть експортований текстовий файл у новому діалоговому вікні, що відкриється, та натисніть на Ok кнопки.
назвіть експортований текстовий файл

А потім виділення (вибраний стовпець A) експортується у вигляді текстового файлу та зберігається у зазначеній папці.

Kutools для Excel - Включає більше 300 зручних інструментів для Excel. Повна функція безкоштовної пробної версії 30 днів, кредитна картка не потрібна! Get It Now


Експортуйте кілька аркушів у окремі текстові файли в Excel

Іноді може знадобитися експортувати кілька аркушів до кількох текстових файлів у програмі Excel. Функція Зберегти як може бути трохи нудною! Не турбуйтесь! Kutools для Excel Роздільна робоча книга Утиліта надає користувачам Excel легкий обхідний спосіб експортувати декілька робочих аркушів до багатьох окремих текстових файлів кількома клацаннями миші. 

Kutools для Excel - Включає більше 300 зручних інструментів для Excel. Повна функція безкоштовної пробної версії 30 днів, кредитна картка не потрібна! Безкоштовна пробна версія зараз!

1. клацання Kutools Plus > робочий зошитРоздільна робоча книга. Дивіться знімок екрана:
Додаток Excel: експортуйте кілька аркушів у текстові файли

2. У діалоговому вікні Розділити робочу книгу, будь-ласка, зробіть наступне:
Додаток Excel: експортуйте кілька аркушів у текстові файли
(1) Перевірте робочі аркуші, які ви експортуєте в окремі текстові файли в Назва робочої книги розділ;
(2) Перевірте Вкажіть формат збереження , а потім виберіть Текст Unicode (* .txt) знизу випадаючий список, див. знімок екрана зліва:
(3) Клацніть на розщеплений кнопки.

3. А потім у спливаючому діалоговому вікні Огляд папки виберіть цільову папку, в яку ви будете зберігати експортовані текстові файли, та натисніть OK кнопки.

Наразі кожен зазначений аркуш експортований як окремий текстовий файл та збережений у зазначеній папці.

Kutools для Excel - Включає більше 300 зручних інструментів для Excel. Повна функція безкоштовної пробної версії 30 днів, кредитна картка не потрібна! Get It Now

Легко масово зберігайте кожен аркуш як окремий файл PDF / text / csv або книгу в Excel

Зазвичай ми можемо зберегти активний аркуш як окремий файл .pdf, .txt або .csv із функцією "Зберегти як". Але Kutools для Excel Роздільна робоча книга Утиліта допоможе вам легко зберегти кожну книгу як окремий файл PDF / TEXT / CSV або книгу в Excel. Повнофункціональна безкоштовна пробна версія 30 днів!
книга з розділеним оголошенням pdf 1

Kutools для Excel - Включає більше 300 зручних інструментів для Excel. Повна функція безкоштовної пробної версії 30 днів, кредитна картка не потрібна! Get It Now


Демонстрація: експортуйте дані Excel (виділення чи аркуші) у текстові файли в Excel


Kutools для Excel включає більше 300 зручних інструментів для Excel, які можна спробувати без обмежень протягом 30 днів. Завантажте та безкоштовно пробну версію зараз!

Статті по темі:


Найкращі інструменти для підвищення продуктивності офісу

Kutools для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%

  • Повторне використання: Швидко вставте складні формули, діаграми і все, що ви використовували раніше; Шифрувати комірки з паролем; Створити список розсилки та надсилати електронні листи ...
  • Супер формула бар (легко редагувати кілька рядків тексту та формули); Макет читання (легко читати та редагувати велику кількість комірок); Вставте у відфільтрований діапазон...
  • Об’єднати клітинки / рядки / стовпці без втрати даних; Вміст розділених комірок; Об'єднати повторювані рядки / стовпці... Запобігання дублюючим клітинам; Порівняйте діапазони...
  • Виберіть Повторюваний або Унікальний Рядки; Виберіть Пусті рядки (усі клітинки порожні); Супер знахідка та нечітка знахідка у багатьох робочих зошитах; Випадковий вибір ...
  • Точна копія Кілька клітинок без зміни посилання на формулу; Автоматичне створення посилань на кілька аркушів; Вставте кулі, Прапорці та інше ...
  • Витяг тексту, Додати текст, Видалити за позицією, Видаліть пробіл; Створення та друк проміжних підсумків підкачки; Перетворення вмісту комірок та коментарів...
  • Супер фільтр (зберегти та застосувати схеми фільтрів до інших аркушів); Розширене сортування за місяцем / тижнем / днем, частотою та іншим; Спеціальний фільтр жирним, курсивом ...
  • Поєднайте робочі зошити та робочі аркуші; Об’єднати таблиці на основі ключових стовпців; Розділіть дані на кілька аркушів; Пакетне перетворення xls, xlsx та PDF...
  • Понад 300 потужних функцій. Підтримує Office / Excel 2007-2019 та 365. Підтримує всі мови. Простота розгортання на вашому підприємстві чи в організації. Повна функція 30-денної безкоштовної пробної версії. 60-денна гарантія повернення грошей.
вкладка kte 201905

Вкладка Office забезпечує інтерфейс з вкладками для Office і значно спрощує вашу роботу

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    matrix26uk · 7 months ago
    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
  • To post as a guest, your comment is unpublished.
    Alan · 7 months ago
    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?
  • To post as a guest, your comment is unpublished.
    Ali Cebeci · 1 years ago
    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?
  • To post as a guest, your comment is unpublished.
    luizfeijo · 2 years ago
    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?
    • To post as a guest, your comment is unpublished.
      Christian · 1 years ago
      Has anyone been able to figure this out? I am having the same issue.
  • To post as a guest, your comment is unpublished.
    GILLOU · 3 years ago
    HELLO
    THANK YOU FOR YOUR VBA CODE
    SOMETIMES ON CERTAIN TEXT THERE IS "TEXT" IN EXPORT .TXT
    THANK YOU FOR WHY
  • To post as a guest, your comment is unpublished.
    harish.kaundinya@gmail.com · 4 years ago
    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
    • To post as a guest, your comment is unpublished.
      kelly.extendoffice@gmail.com · 4 years ago
      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.
  • To post as a guest, your comment is unpublished.
    Wild Bill · 4 years ago
    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.)
  • To post as a guest, your comment is unpublished.
    Wild Bill · 4 years ago
    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 :)
  • To post as a guest, your comment is unpublished.
    Wild Bill · 4 years ago
    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)
  • To post as a guest, your comment is unpublished.
    Vaishak · 5 years ago
    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...:-)
  • To post as a guest, your comment is unpublished.
    RAVAN · 5 years ago
    One of the best site where I find my queries.
  • To post as a guest, your comment is unpublished.
    Santiago · 5 years ago
    Someone knows how to do it for excel 2016 MAC?? ty
  • To post as a guest, your comment is unpublished.
    anne1993 · 6 years ago
    Hi!
    The cells I want to export as a text-file refer to other cells and contain if-codes. This means that when I export I don't get the number-values, but "N/A". Do you know how i can fix this?
    Thank you.
  • To post as a guest, your comment is unpublished.
    rick · 6 years ago
    i have problem after saving my .xls to .txt, size of the file getting bigger, from 500kb to 1,523kb how i fix it?
    thanks
  • To post as a guest, your comment is unpublished.
    Rodney · 7 years ago
    need to past data from excel to a notepad and then seperate data using a comma. how do i do this
    • To post as a guest, your comment is unpublished.
      Oscar Jacquez · 4 years ago
      you need to select "save as .csv file" (comma separated values)
  • To post as a guest, your comment is unpublished.
    amsarajan · 7 years ago
    really is it very usefull,thanku :D