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

Bagaimana cara mengekspor data Excel (seleksi atau lembaran) ke file teks di Excel?

Jika Anda diminta untuk mengirimkan buku kerja dalam format file teks, Anda perlu mengonversi buku kerja tersebut menjadi file teks. Dan artikel ini akan memperkenalkan Anda dua metode untuk mengekspor data Excel menjadi file teks dengan mudah.

Ekspor satu lembar ke file teks di Excel

Secara default, data Excel akan disimpan sebagai buku kerja dalam format . Xlsx. Namun, kami dapat mengekspor lembar kerja dari buku kerja yang ada sebagai file teks dengan Save As fitur. Harap lakukan sebagai berikut:

1. Geser ke lembar kerja yang akan Anda ekspor ke file teks, dan klik File (Atau Tombol kantor)> Save As.

2. Di pembukaan Save As kotak dialog, pilih folder tujuan tempat Anda akan menyimpan file teks yang diekspor, beri nama file di Nama file kotak, lalu pilih Teks Unicode (* .txt) dari Save as type daftar drop-down. Lihat tangkapan layar:
ekspor ke file teks dengan fitur Save As

3. Kemudian akan muncul dua kotak dialog peringatan yang meminta Anda untuk mengekspor hanya lembar kerja aktif sebagai file teks dan meninggalkan fitur yang tidak kompatibel dengan file teks. Klik OK Tombol dan Yes tombol berturut-turut.

Kemudian data di lembar kerja aktif diekspor sebagai file teks baru.

Note: Yang Save As Perintah hanya dapat mengekspor data lembar kerja aktif sebagai file teks. Jika Anda ingin mengekspor semua data dari seluruh buku kerja, Anda perlu menyimpan setiap lembar kerja sebagai file teks satu per satu.


Ekspor pilihan (atau satu kolom) ke file teks dengan VBA

Kode VBA berikut juga dapat membantu Anda mengekspor data rentang yang dipilih (misalnya satu kolom) ke file teks, lakukan seperti ini:

1. Tahan ALT + F11 kunci, dan itu membuka Microsoft Visual Basic untuk Aplikasi jendela.

2. Klik Menyisipkan > Modul, dan tempel kode berikut di Module Window.

VBA: pilihan ekspor atau seluruh lembar kerja ke file teks

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. Lalu tekan F5 kunci untuk menjalankan kode ini. Dan kemudian pilih rentang data yang ingin Anda ekspor di kotak dialog yang muncul, dan klik OK tombol, lihat tangkapan layar:
Pilih satu kolom untuk mengekspor sebagai file teks

4. Dan sekarang di kotak dialog Save As lainnya, harap tentukan nama untuk file teks ini dan folder untuk meletakkan file ini, dan klik Save .


Ekspor pilihan (atau satu kolom) ke file teks dengan Kutools for Excel

The Save As Perintah dapat mengekspor semua data di lembar kerja aktif sebagai teks. Bagaimana jika mengekspor semua data lembar kerja tidak aktif yang ditentukan, atau bagian dari data dalam lembar kerja sebagai file teks? Kutools untuk Excel's Ekspor Rentang ke File utilitas dapat membantu kami mengekspor dan menyimpan data yang dipilih sebagai file teks dengan mudah ..  

Kutools untuk Excel - Termasuk lebih dari 300 alat praktis untuk Excel. Uji coba gratis fitur lengkap 30 hari, tidak perlu kartu kredit! Uji Coba Gratis Sekarang!

1. Pilih rang yang akan Anda ekspor ke file teks (dalam kasus kami, kami memilih Kolom A), dan klik Kutools Plus > Ekspor Impor > Ekspor Rentang ke File, lihat tangkapan layar:
Addin Excel: mengekspor pilihan ke file teks

2. Dalam majalah Ekspor Rentang ke File kotak dialog, lakukan seperti gambar di bawah ini yang ditunjukkan:
Addin Excel: mengekspor pilihan ke file teks
(1) Periksa Teks Unicode pilihan dalam format file bagian;
(2) Centang opsi Simpan nilai aktual atau Simpan nilai seperti yang ditunjukkan di layar opsi yang Anda butuhkan di bagian Opsi teks;
(3) Tentukan folder tujuan tempat Anda akan menyimpan file teks yang diekspor;
(4) Klik Ok .

3. Beri nama file teks yang diekspor di kotak dialog pembukaan baru, dan klik Ok .
beri nama file teks yang diekspor

Dan kemudian pemilihan (Kolom A yang dipilih) telah diekspor sebagai file teks dan disimpan ke dalam folder yang ditentukan.

Kutools untuk Excel - Termasuk lebih dari 300 alat praktis untuk Excel. Uji coba gratis fitur lengkap 30 hari, tidak perlu kartu kredit! Get It Now


Ekspor beberapa lembar untuk memisahkan file teks di Excel

Terkadang Anda mungkin perlu mengekspor beberapa lembar kerja ke beberapa file teks di Excel. Fitur Simpan Sebagai mungkin sedikit membosankan! Jangan khawatir! Kutools untuk Excel Pisahkan Buku Kerja utilitas memberi pengguna Excel solusi mudah untuk mengekspor beberapa lembar kerja ke banyak file teks terpisah dengan beberapa klik. 

Kutools untuk Excel - Termasuk lebih dari 300 alat praktis untuk Excel. Uji coba gratis fitur lengkap 30 hari, tidak perlu kartu kredit! Uji Coba Gratis Sekarang!

1. klik Kutools Plus > Buku catatanPisahkan Buku Kerja. Lihat tangkapan layar:
Addin Excel: mengekspor beberapa lembar ke file teks

2. Di kotak dialog Split Workbook pembuka, lakukan hal berikut:
Addin Excel: mengekspor beberapa lembar ke file teks
(1) Periksa lembar kerja yang akan Anda ekspor ke file teks terpisah di Nama buku kerja bagian;
(2) Periksa Tentukan format penyimpanan opsi, lalu pilih Teks Unicode (* .txt) dari daftar drop-down di bawah, lihat tangkapan layar kiri:
(3) Klik Split .

3. Dan kemudian di kotak dialog Browse For Folder yang muncul, pilih folder tujuan tempat Anda akan menyimpan file teks yang diekspor, dan klik OK .

Sejauh ini setiap lembar kerja yang ditentukan telah diekspor sebagai file teks terpisah dan disimpan ke folder yang ditentukan.

Kutools untuk Excel - Termasuk lebih dari 300 alat praktis untuk Excel. Uji coba gratis fitur lengkap 30 hari, tidak perlu kartu kredit! Get It Now

Simpan secara massal setiap lembar sebagai file PDF / teks / csv terpisah atau buku kerja di Excel

Biasanya kita dapat menyimpan lembar kerja aktif sebagai file .pdf terpisah, file .txt, atau file .csv dengan fitur Save As. Tapi Kutools for Excel's Pisahkan Buku Kerja utilitas dapat membantu Anda dengan mudah menyimpan setiap buku kerja sebagai file PDF / TEXT / CSV terpisah atau buku kerja di Excel. Uji Coba Gratis Fitur Lengkap 30 hari!
buku kerja pemisahan iklan pdf 1

Kutools untuk Excel - Termasuk lebih dari 300 alat praktis untuk Excel. Uji coba gratis fitur lengkap 30 hari, tidak perlu kartu kredit! Get It Now


Demo: ekspor data Excel (pilihan atau lembar) ke file Teks di Excel


Kutools untuk Excel menyertakan lebih dari 300 alat praktis untuk Excel, gratis untuk dicoba tanpa batasan dalam 30 hari. Unduh dan Uji Coba Gratis Sekarang!

Artikel Terkait:


Alat Produktivitas Kantor Terbaik

Kutools for Excel Memecahkan Sebagian Besar Masalah Anda, dan Meningkatkan Produktivitas Anda hingga 80%

  • Reuse: Masukkan dengan cepat rumus, bagan yang kompleks dan apa pun yang pernah Anda gunakan sebelumnya; Enkripsi Sel dengan kata sandi; Buat Milis dan mengirim email ...
  • Bilah Formula Super (dengan mudah mengedit beberapa baris teks dan rumus); Membaca Tata Letak (membaca dan mengedit sel dalam jumlah besar dengan mudah); Tempel ke Rentang yang Difilter...
  • Gabungkan Sel / Baris / Kolom tanpa kehilangan Data; Pisahkan Konten Sel; Gabungkan Baris / Kolom Duplikat... Mencegah Sel Duplikat; Bandingkan Rentang...
  • Pilih Duplikat atau Unik Baris; Pilih Baris Kosong (semua sel kosong); Temukan Super dan Temukan Fuzzy di Banyak Buku Kerja; Pilih Acak ...
  • Salinan Tepat Beberapa Sel tanpa mengubah referensi rumus; Buat Referensi Otomatis ke Beberapa Lembar; Sisipkan Poin, Kotak Centang, dan lainnya ...
  • Ekstrak Teks, Tambahkan Teks, Hapus berdasarkan Posisi, Hapus Space; Membuat dan Mencetak Subtotal Paging; Konversi Konten Antar Sel dan Komentar...
  • Filter Super (simpan dan terapkan skema filter ke sheet lain); Penyortiran Lanjutan menurut bulan / minggu / hari, frekuensi dan lainnya; Filter Khusus dengan huruf tebal, miring ...
  • Gabungkan Workbooks dan WorkSheets; Gabungkan Tabel berdasarkan kolom kunci; Pisahkan Data menjadi Beberapa Lembar; Konversi Batch xls, xlsx dan PDF...
  • Lebih dari 300 fitur canggih. Mendukung Office / Excel 2007-2019 dan 365. Mendukung semua bahasa. Penerapan yang mudah di perusahaan atau organisasi Anda. Fitur lengkap uji coba gratis 30 hari. Jaminan uang kembali 60 hari.
tab kte 201905

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.
  • Tingkatkan produktivitas Anda hingga 50%, dan kurangi ratusan klik mouse untuk Anda setiap hari!
officetab bawah
Urutkan komentar berdasarkan
komentar (19)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
benar-benar sangat berguna, terima kasih :D
Komentar ini diminimalkan oleh moderator di situs
perlu melewati data dari excel ke notepad dan kemudian memisahkan data menggunakan koma. bagaimana saya melakukan ini?
Komentar ini diminimalkan oleh moderator di situs
anda harus memilih "simpan sebagai file .csv" (nilai yang dipisahkan koma)
Komentar ini diminimalkan oleh moderator di situs
saya punya masalah setelah menyimpan .xls saya ke .txt, ukuran file semakin besar, dari 500kb menjadi 1,523kb bagaimana cara memperbaikinya? terima kasih
Komentar ini diminimalkan oleh moderator di situs
Hai! Sel yang ingin saya ekspor sebagai file teks merujuk ke sel lain dan berisi kode if. Ini berarti bahwa ketika saya mengekspor, saya tidak mendapatkan nilai angka, tetapi "T/A". Apakah Anda tahu bagaimana saya bisa memperbaikinya? Terima kasih.
Komentar ini diminimalkan oleh moderator di situs
Seseorang tahu bagaimana melakukannya untuk excel 2016 MAC?? ty
Komentar ini diminimalkan oleh moderator di situs
Salah satu situs terbaik tempat saya menemukan pertanyaan saya.
Komentar ini diminimalkan oleh moderator di situs
Permintaan saya adalah seperti yang disebutkan di bawah ini: Saya memiliki laporan untuk dibuat setiap hari. Data yang saya dapatkan di baris terakhir (hanya satu baris tetapi lebih dari satu kolom) saya ingin mengekspornya ke lembar excel lain yang merupakan ringkasan lembar excel yang disimpan secara terpisah di desktop saya. Misalnya: Laporan Hari1 - ekspor baris terakhir ke Ringkasan excel sheet row1 Laporan hari2 - ekspor baris terakhir ke Ringkasan excel sheet row2 Laporan hari3 - ekspor baris terakhir ke Ringkasan excel sheet row3 dan seterusnya. Ekspor harus dilakukan melalui tombol klik., yang berarti ketika saya mengklik tombol ekspor, data pada lembar yang saya hitung hari ini harus masuk dan disimpan di Ringkasan lembar excel baris1, hari berikutnya laporan lembar excel baru yang dihitung harus masuk dan disimpan di Ringkasan lembar excel baris2 dan seterusnya.. Apakah ini mungkin dilakukan ... Jika ya, tolong seseorang bantu saya dalam hal ini ... Terima kasih sebelumnya ...:-)
Komentar ini diminimalkan oleh moderator di situs
1/2 (karena perangkat lunak Anda membatasi panjang komentar) Saya seorang pembuat kode yang serius dan saya ingin memberi tahu Anda bahwa kode VBA di sini luar biasa. Ini bersih, dan tidak satu baris terlalu banyak, atau satu terlalu sedikit. Ini adalah pengkodean teladan untuk demonstrasi proses. Saya juga akan menyebutkan bahwa ketika saya secara ekstensif meneliti solusi untuk ekspor pilihan, Anda dan hanya satu orang lain yang menyarankan untuk memasukkan rentang ke dalam buku kerja baru sementara. Semua jawaban lainnya sangat menyakitkan secara manual, berjalan melalui sel demi sel. Bahkan kode Chip jauh lebih panjang dan berjalan lebih lambat (tetapi sengaja demikian, karena jauh lebih fleksibel - pembatas yang dapat ditentukan, dll.) Hanya untuk hiburan Anda, saya membuat beberapa penyesuaian yang sangat kecil tetapi sebaliknya hampir mengangkat kode kata demi kata karena pada dasarnya jatuh tepat ke aplikasi yang sangat rumit dan khusus. Beberapa tweak ini adalah sesuatu yang saya yakin Anda lakukan dalam praktik, tetapi mereka menambahkan baris kode (misalnya pemeriksaan kesalahan) sehingga menampilkannya di halaman web ini akan membuat tampilan Anda menjadi kacau sehingga elemen penting pemrosesan akan menjadi rumit bagi pembaca untuk mengikuti. Pokoknya: (lihat bagian 2)
Komentar ini diminimalkan oleh moderator di situs
2/2 - vbYesNoCancel msgbox dan Boolean untuk menunjukkan apakah akan mengekspor semua, pilihan, atau rentang yang ditentukan pengguna - String statis untuk alamat rentang sebelumnya - jika len(statis itu)1 maka saya menetapkan WorkRng=activesheet.UsedRange (Anda dapat 't menyalin banyak area dengan satu salinan, meskipun dengan sedikit kerja Anda bisa berjalan di area dan menyalinnya sedikit demi sedikit.) - Idiotic Microsoft tidak menyimpan baris kosong di awal dan bawah rentang yang disimpan, dan tidak menyimpan dari kolom kosong di paling kiri dan paling kanan dari rentang yang disimpan. Ketika saya mendeteksi itu (UsedRange bukan baris 1, kolom 1, atau xlLastCell tidak sepenuhnya kanan bawah) saya mengirim pesan untuk menanyakan pengguna apakah mereka ingin memasang A1 atau sel kanan bawah. - Kemudian saya memutuskan untuk mengatasi masalah kiri atas terlebih dahulu dengan menyisipkan baris dan mengatur A1 menjadi teks seperti "Berikut ini untuk rentang" - Saya menutup dengan activeworkbook.close SaveChanges:=False - Kebiasaan lama sejak saya marah pendukung pembersihan (dan dunia adalah tempat yang menyedihkan berkat programmer yang tidak bertanggung jawab yang mengabaikan tanggung jawab itu ketika itu penting), saya mengatur WorkRng = Tidak ada jalan keluar :)
Komentar ini diminimalkan oleh moderator di situs
3/2 Anda mungkin juga mencatat bahwa Anda tidak perlu menentukan awalan wb setelah Anda .Menambahkan buku kerja karena menjadi aktif. Menentukan wb mungkin atau mungkin tidak lebih efisien tetapi dapat dihilangkan dari beberapa perintah. Sebenarnya saya sepenuhnya menghapus variabel wb; Saya hanya pergi Workbooks.Add, dan menggunakan ActiveWorkbook bila diperlukan. (Saat Anda menekan ScreenUpdating, tidak akan jelas bagi sebagian orang bahwa wb Aktif. Tip untuk pemula (dan lebih tinggi): Saya selalu, selalu mengembangkan dengan ScreenUpdating dan DisplayAlerts sebagai True, dan ketika selesai dengan pengembangan, saya mempertimbangkan untuk menonaktifkannya untuk beberapa bagian kode.)
Komentar ini diminimalkan oleh moderator di situs
Terima kasih atas potongan kode VBA yang luar biasa untuk mengekspor data ke file teks. Saya telah menggunakan kode Anda dengan beberapa kode saya sendiri. Data yang saya tangani sangat spesifik dengan panjang garis dan setelah makro berjalan, file teks berisi beberapa tanda kutip ganda " di tempat acak, yang tidak pernah ada dalam data saya sebelumnya. Saya telah mencoba menambahkan baris kode untuk dihapus karakter ini pada berbagai tahap tetapi sepertinya tidak berhasil. Saya sadar bahwa saya dapat menghapus ini secara manual tetapi ingin menyelesaikannya dalam kode VBA.

Sub Makro3()
Redupkan wb Sebagai Buku Kerja
Redupkan simpanFile Sebagai String
Redup WorkRng Sebagai Rentang
On Error Resume Next
Seleksi.Filter Otomatis
ActiveSheet.Range("$A$1:$B$10591").Bidang FilterOtomatis:=1, Kriteria1:= _
"=NSZAP*", Operator:=xlAnd
Rentang("A1").Pilih
ActiveCell.Offset(200, 0).Range("A1").Pilih
Rentang(Pilihan, Pilihan.End(xlDown)).Pilih
ActiveCell.Rows("1:10101").SeluruhRow.Pilih
Seleksi.Hapus Shift:=xlUp
Rentang("A1").Pilih
Seleksi.Filter Otomatis
Rentang(Pilihan, Pilihan.End(xlDown)).Pilih
Atur WorkRng = Application.Selection
Atur wb = Application.Workbooks.Add
WorkRng.Copy
wb.Lembar Kerja(1).Tempel
Selection.Replace What:="""", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
GantiFormat:=Salah
saveFile = Application.GetSaveAsFilename(fileFilter:="File Teks (*.txt), *.txt")
Selection.Replace What:="""", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
GantiFormat:=Salah
wb.SaveAs Nama File:=saveFile, FileFormat:=xlText, CreateBackup:=False
Selection.Replace What:="""", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
GantiFormat:=Salah
wb.Tutup
Application.CutCopyMode = Salah
Application.DisplayAlerts = Benar
Application.ScreenUpdating = Benar
End Sub
Komentar ini diminimalkan oleh moderator di situs
Hai Haris,
Untuk menghapus karakter tertentu secara massal, Anda dapat mengganti karakter dengan apa pun.
Ctrl + H untuk membuka kotak dialog Temukan dan Ganti, ketik karakter yang ditentukan di kotak Temukan apa, dan ketikkan catatan di kotak ganti dengan.
Komentar ini diminimalkan oleh moderator di situs
HALO
TERIMA KASIH ATAS KODE VBA ANDA
TERKADANG PADA TEKS TERTENTU ADA "TEKS" DI EKSPOR .TXT
TERIMA KASIH UNTUK KENAPA
Komentar ini diminimalkan oleh moderator di situs
hai teman-teman, saya menggunakan kode itu:
Sub EksporRangetoFile()
'Perbarui 20130913
Redupkan wb Sebagai Buku Kerja
Redupkan simpanFile Sebagai String
Redup WorkRng Sebagai Rentang
On Error Resume Next
xTitleId = "KutoolsforExcel"
Atur WorkRng = Application.Selection
Atur WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = Salah
Application.DisplayAlerts = Salah
Atur wb = Application.Workbooks.Add
WorkRng.Copy
wb.Lembar Kerja(1).Tempel
saveFile = Application.GetSaveAsFilename(fileFilter:="File Teks (*.txt), *.txt")
wb.SaveAs Nama File:=saveFile, FileFormat:=xlText, CreateBackup:=False
wb.Tutup
Application.CutCopyMode = Salah
Application.DisplayAlerts = Benar
Application.ScreenUpdating = Benar
End Sub

dan telah berfungsi, tetapi saya perlu menyimpan kolom dengan sel yang berisi fungsi "menggabungkan", dan ketika saya memainkan kode vba, dan saya menyimpan file .TXT, hanya yang muncul #REF. bagaimana saya bisa memperbaikinya? karena saya memerlukan data yang muncul di sel itu?
Komentar ini diminimalkan oleh moderator di situs
Apakah ada yang bisa mencari tahu ini? Saya mengalami masalah yang sama.
Komentar ini diminimalkan oleh moderator di situs
Hai, kode ini sangat berguna bagi saya. Jadi, terima kasih banyak.
Saya ingin menanyakan bahwa: Saat saya menggunakan kode ini, baris baru ditambahkan secara otomatis di akhir konten txt.
Bisakah Anda membantu saya mencegah ini dengan vba?
Komentar ini diminimalkan oleh moderator di situs
Hai, Ini bagus, terima kasih banyak.
Bagaimana saya mengubah kode untuk pilihan Ekspor (atau satu kolom) ke file teks dengan VBA untuk mengisi nama file secara otomatis dengan konten sel B2?
Komentar ini diminimalkan oleh moderator di situs
Bagaimana saya mengubah kode untuk pilihan Ekspor (atau satu kolom) ke file teks dengan VBA untuk mengisi otomatis nama file dengan konten sel B2?
Terima kasih
Belum ada komentar yang diposting di sini
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan