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

Bagaimana cara mengimpor banyak file teks ke beberapa lembar?

Misalkan, ada beberapa file teks dalam folder komputer Anda, sekarang, Anda ingin mengimpor file teks ini ke buku kerja Excel, dan menempatkan setiap file teks ke dalam lembar kerja terpisah. Menyalin dan menempelkan setiap file teks ke lembar kerja satu per satu akan membuang banyak waktu, di sini, saya dapat berbicara tentang beberapa trik bagi Anda untuk mengatasi masalah ini.

Impor beberapa file teks ke lembar kerja terpisah dengan kode VBA

Pisahkan buku kerja menjadi beberapa file teks / pdf / csv / xlsx terpisah dengan Kutools for Excel


panah gelembung kanan biru Impor beberapa file teks ke lembar kerja terpisah dengan kode VBA

Kode VBA berikut dapat membantu Anda mengimpor setiap file teks ke dalam lembar terpisah dalam workbook baru sekaligus, lakukan hal berikut:

1. Tahan ALT + F11 kunci di Excel untuk membuka file Microsoft Visual Basic untuk Aplikasi jendela.

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

Kode VBA: Impor beberapa file teks ke lembar kerja terpisah:

Sub CombineTextFiles()
'updateby Extendoffice
    Dim xFilesToOpen As Variant
    Dim I As Integer
    Dim xWb As Workbook
    Dim xTempWb As Workbook
    Dim xDelimiter As String
    Dim xScreen As Boolean
    On Error GoTo ErrHandler
    xScreen = Application.ScreenUpdating
    Application.ScreenUpdating = False
    xDelimiter = "|"
    xFilesToOpen = Application.GetOpenFilename("Text Files (*.txt), *.txt", , "Kutools for Excel", , True)
    If TypeName(xFilesToOpen) = "Boolean" Then
        MsgBox "No files were selected", , "Kutools for Excel"
        GoTo ExitHandler
    End If
    I = 1
    Set xTempWb = Workbooks.Open(xFilesToOpen(I))
    xTempWb.Sheets(1).Copy
    Set xWb = Application.ActiveWorkbook
    xTempWb.Close False
    xWb.Worksheets(I).Columns("A:A").TextToColumns _
      Destination:=Range("A1"), DataType:=xlDelimited, _
      TextQualifier:=xlDoubleQuote, _
      ConsecutiveDelimiter:=False, _
      Tab:=False, Semicolon:=False, _
      Comma:=False, Space:=False, _
      Other:=True, OtherChar:="|"
    Do While I < UBound(xFilesToOpen)
        I = I + 1
        Set xTempWb = Workbooks.Open(xFilesToOpen(I))
        With xWb
            xTempWb.Sheets(1).Move after:=.Sheets(.Sheets.Count)
            .Worksheets(I).Columns("A:A").TextToColumns _
              Destination:=Range("A1"), DataType:=xlDelimited, _
              TextQualifier:=xlDoubleQuote, _
              ConsecutiveDelimiter:=False, _
              Tab:=False, Semicolon:=False, _
              Comma:=False, Space:=False, _
              Other:=True, OtherChar:=xDelimiter
        End With
    Loop
ExitHandler:
    Application.ScreenUpdating = xScreen
    Set xWb = Nothing
    Set xTempWb = Nothing
    Exit Sub
ErrHandler:
    MsgBox Err.Description, , "Kutools for Excel"
    Resume ExitHandler
End Sub

3. Setelah menempelkan kode di atas, tekan F5 kunci untuk menjalankan kode ini, dan di jendela yang muncul, tentukan folder yang berisi file teks, pergi ke folder untuk memilih file teks yang ingin Anda impor ke lembar kerja, lihat tangkapan layar:

doc mengimpor beberapa file teks 1

4. Lalu klik Open tombol, semua file teks yang dipilih telah diimpor ke buku kerja baru dan setiap file terletak di satu lembar kerja secara individual.

5. Akhirnya, Anda bisa menyimpan buku kerja baru sesuai kebutuhan.


panah gelembung kanan biru Pisahkan buku kerja menjadi beberapa file teks / pdf / csv / xlsx terpisah dengan Kutools for Excel

Terkadang, Anda mungkin perlu melakukan beberapa operasi yang berlawanan dari tugas di atas, artinya, Anda perlu memisahkan buku kerja untuk memisahkan file teks. Kutools untuk Excel'S Pisahkan Buku Kerja utilitas dapat membantu Anda menyelesaikan pekerjaan ini dengan cepat dan mudah.

Kutools untuk Excel : dengan lebih dari 300 add-in Excel yang praktis, gratis untuk dicoba tanpa batasan dalam 30 hari

Setelah menginstal Kutools untuk Excel, lakukan hal berikut :( Unduh Gratis Kutools untuk Excel Sekarang! )

1. Aktifkan buku kerja yang ingin Anda pisahkan menjadi beberapa file teks.

2. Klik Enterprise > Buku catatan > Pisahkan Buku Kerja, lihat tangkapan layar:

3. di Pisahkan Buku Kerja kotak dialog:

(1.) Periksa lembar kerja yang ingin Anda pisahkan.

(2.) Periksa Tentukan format penyimpanan, lalu pilih format file yang ingin Anda simpan, misalnya Anda dapat memilih txt, csv, pdf, xlsx or xls format file yang Anda butuhkan.

(3.) Kemudian klik Split tombol, di kotak prompt berikut tentukan folder untuk mengeluarkan file terpisah.

excel add-in split kotak dialog buku kerja 2 excel add-in pilih lokasi

4. Lalu klik OK tombol, dan lembar kerja yang Anda pilih akan dibagi dan disimpan ke folder yang Anda inginkan dengan format yang Anda butuhkan.

excel add-in file terpisah

Unduh Gratis Kutools untuk Excel Sekarang!


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 (9)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
Saya menggunakan kode berikut Tapi Ruang Tidak Membatasi. Berbalik Tab:=Benar, Spasi:=Benar, tetapi tidak berhasil. Format file Txt saya adalah- ALUMINI16MAYFUT 09-05-2016 10:00:00 106.0000 106.0000 105.2000 105.3500 104 Adakah Solusi?
Komentar ini diminimalkan oleh moderator di situs
Kode untuk "Impor beberapa file teks ke lembar kerja terpisah dengan kode VBA" berfungsi untuk saya, TETAPI memotong data setiap sel pada 255 karakter. Saya pikir ini default ke data sel GeneralFormat, tapi saya membutuhkannya TextFormat. Sayangnya saya tidak tahu cara menyesuaikan kode untuk memperbaikinya.
Komentar ini diminimalkan oleh moderator di situs
Apakah mungkin untuk membuka beberapa file txt secara berurutan dalam satu lembar?
Komentar ini diminimalkan oleh moderator di situs
Terima kasih untuk kode yang sangat berguna ini. Aku punya pertanyaan. Apa yang dapat saya ubah untuk mengonversi tipe data dari Umum ke Teks karena saat ini hanya mengimpor data ke format Umum.
Komentar ini diminimalkan oleh moderator di situs
Bagaimana cara mengubah makro ini untuk menampilkan file teks yang disimpan sebagai UTF-8 atau dengan kata lain menggunakan Platform = 65001, Terima kasih
Komentar ini diminimalkan oleh moderator di situs
Terima kasih untuk kode ini, ini berfungsi dengan baik .. saya ingin menggabungkan semua lembar yang dipilih menjadi satu lembar apakah itu mungkin ..
Komentar ini diminimalkan oleh moderator di situs
terima kasih, beberapa file teks ke kode lembar kerja yang berbeda berhasil!
Komentar ini diminimalkan oleh moderator di situs
Kode ini membantu saya dengan tepat untuk menyelesaikan masalah saya, terima kasih atas kodenya.
Komentar ini diminimalkan oleh moderator di situs
Apa yang perlu saya ubah dalam kode agar tidak membukanya di buku kerja baru?
Belum ada komentar yang diposting di sini
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan