Bagaimana cara mengekspor beberapa kolom menjadi file teks individual di Excel?
Biasanya, Anda dapat mengekspor lembar kerja ke file txt di Excel dengan cepat dan mudah menggunakan fungsi Save As. Tapi, pernahkah Anda mencoba menyimpan setiap data kolom ke dalam file teks satu per satu dari lembar kerja Excel? Artikel ini, saya akan berbicara tentang cara menyelesaikan pekerjaan ini secepat mungkin.
Ekspor beberapa kolom ke dalam file teks individual dengan kode VBA
Ekspor beberapa lembar kerja menjadi file teks / pdf / csv individual dengan Kutools for Excel
Ekspor beberapa kolom ke dalam file teks individual dengan kode VBA
Kode VBA berikut dapat membantu Anda menyimpan setiap data kolom ke file teks satu per satu di Excel, lakukan seperti ini:
1. Tahan ALT + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.
2. Klik Menyisipkan > Modul, dan tempelkan makro berikut di file Modul Jendela.
Kode VBA: Ekspor beberapa kolom menjadi file teks individual:
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. Setelah menempelkan kode, silakan tekan F5 kunci untuk menjalankan kode ini, dan a Browser kotak dialog muncul, lalu pilih folder untuk meletakkan file teks yang diekspor, lihat tangkapan layar:
4. Lalu klik OK tombol, dan setiap data kolom di lembar kerja aktif telah diekspor ke file teks satu per satu, lihat tangkapan layar:
Ekspor beberapa lembar kerja menjadi file teks / pdf / csv individual dengan Kutools for Excel
Jika Anda perlu mengekspor beberapa lembar kerja menjadi file teks individual, pdf atau csv, file Kutools untuk Excel'S Pisahkan Buku Kerja fitur dapat membantu Anda.
Setelah menginstal Kutools untuk Excel, lakukan dengan langkah-langkah berikut:
1. Klik Kutools Ditambah > Buku catatan > Pisahkan Buku Kerja, lihat tangkapan layar:
2. di Pisahkan Buku Kerja kotak dialog, centang lembar kerja yang ingin Anda simpan sebagai file txt, pdf, csv, dan kemudian centang Save as type opsi, lalu pilih jenis file yang ingin Anda simpan sebagai, lalu klik Ya Split tombol, di layar Jelajahi Folder kotak dialog, pilih folder untuk meletakkan file yang diekspor, lihat tangkapan layar:
3. Lalu klik OK tombol, dan lembar kerja yang Anda pilih telah diekspor ke format file tertentu yang Anda butuhkan, lihat tangkapan layar:
Klik untuk Mengunduh dan uji coba gratis Kutools for Excel Sekarang!
Alat Produktivitas Kantor Terbaik
Tingkatkan Keterampilan Excel Anda dengan Kutools for Excel, dan Rasakan Efisiensi yang Belum Pernah Ada Sebelumnya. Kutools for Excel Menawarkan Lebih dari 300 Fitur Lanjutan untuk Meningkatkan Produktivitas dan Menghemat Waktu. Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...
Tab Office Membawa antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Jauh Lebih Mudah
- Aktifkan pengeditan dan pembacaan tab di Word, Excel, PowerPoint, Publisher, Access, Visio, dan Project.
- Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru.
- Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!
