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

Як експортувати кілька стовпців в окремі текстові файли в Excel?

Зазвичай ви можете швидко та легко експортувати аркуш у файл txt у Excel за допомогою функції Зберегти як. Але чи намагались ви коли-небудь зберігати дані кожного стовпця в текстовому файлі окремо з аркуша Excel? У цій статті я розповім про те, як вирішити цю роботу якомога швидше.

Експортуйте кілька стовпців в окремі текстові файли з кодом VBA

Експортуйте кілька робочих аркушів у окремі текстові / pdf / csv файли за допомогою Kutools для Excel


Експортуйте кілька стовпців в окремі текстові файли з кодом VBA

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

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

2. Клацання Insert > Модуліта вставте наступний макрос у Модулі Вікно

Код VBA: Експорт кількох стовпців в окремі текстові файли:

Sub SaveValueToText()
Dim xFRNum, xFCNum As Long
Dim xStrDir As String
Dim xMaxR, xMaxC As Integer
Dim xCells As Range
Dim xIntX As Long
Dim xObjFD As FileDialog
Set xObjFD = Application.FileDialog(msoFileDialogFolderPicker)
With xObjFD
        .AllowMultiSelect = False
        .Show
        If .SelectedItems.Count > 0 Then
            xStrDir = .SelectedItems.Item(1) & Application.PathSeparator
        Else
            Exit Sub
        End If
End With
Set xCells = ActiveSheet.Cells
xMaxR = xCells.Find(What:="*", After:=[A1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
xMaxC = xCells.Find(What:="*", After:=[A1], SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
For xFCNum = 1 To xMaxC
    Open xStrDir & xFCNum & "_" & ActiveSheet.Cells(1, xFCNum).Text & ".txt" For Output As #1
        For xFRNum = 1 To xMaxR
            Print #1, Cells(xFRNum, xFCNum).Value
        Next xFRNum
    Close #1
Next
End Sub

3. Після вставки коду, натисніть F5 ключ для запуску цього коду, і a браузер діалогове вікно вискакує, потім виберіть папку для розміщення експортованих текстових файлів, див. знімок екрана:

doc експортувати стовпці до txts 1

4. Потім натисніть OK і дані кожного стовпця на активному аркуші експортуються в текстовий файл окремо, див. знімок екрана:

doc експортувати стовпці до txts 2


Експортуйте кілька робочих аркушів у окремі текстові / pdf / csv файли за допомогою Kutools для Excel

Якщо вам потрібно експортувати кілька робочих аркушів в окремий текст, PDF або CSV-файли, файл Kutools для ExcelАвтора Роздільна робоча книга функція може зробити вам послугу.

примітки:Щоб застосувати це Роздільна робоча книга, по-перше, вам слід завантажити Kutools для Excel, а потім швидко та легко застосувати функцію.

після установки Kutools для Excel, виконайте такі дії:

1. Клацання Kutools Plus > робочий зошит > Роздільна робоча книга, див. скріншот:

doc експортувати стовпці до txts 3

2, в Роздільна робоча книга діалоговому вікні, позначте аркуші, які потрібно зберегти як файли txt, pdf, csv, а потім поставте прапорець Зберегти як виберіть тип файлу, який потрібно зберегти, а потім натисніть розщеплений , на відображеному Перегляньте папку діалоговому вікні, виберіть папку для розміщення експортованих файлів;

doc експортувати стовпці до txts 4

3. Потім натисніть OK і вибрані вами робочі аркуші були експортовані в окремий формат файлу, як вам потрібно, див. знімок екрана:

doc експортувати стовпці до txts 5

Клацніть, щоб завантажити та отримати безкоштовну пробну версію Kutools для Excel зараз!


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

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% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Коментарі (3)
Поки немає оцінок. Оцініть першим!
Цей коментар був мінімізований модератором на сайті
Чудово, ви зробили мій день за допомогою коду для експорту кількох стовпців в окремі текстові файли! Велике дякую!
Цей коментар був мінімізований модератором на сайті
Привіт. Наперед дякую за код VBA. Мені було цікаво, чи можна замість збереження кожного файлу .txt як кодування ANSI його створити як UTF-8. Це можливо? З повагою.
Цей коментар був мінімізований модератором на сайті
Чудовий код. Спрацював як шарм.
Чи можете ви налаштувати цей код, щоб не включати перший необроблений?
There are no comments posted here yet
Залишайте свої коментарі
Публікація як гість
×
Оцініть цю публікацію:
0   Персонажі
Рекомендовані місця