Як експортувати кілька стовпців в окремі текстові файли в 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 зараз!
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
