Як експортувати кілька стовпців в окремі текстові файли в 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 браузер діалогове вікно вискакує, потім виберіть папку для розміщення експортованих текстових файлів, див. знімок екрана:

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

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

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

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

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

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

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

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