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

Bagaimana cara menggabungkan / mengimpor beberapa file csv menjadi beberapa lembar kerja?

Jika Anda ingin mengimpor beberapa file csv dari folder sebagai lembar kerja terpisah dalam buku kerja, bagaimana Anda bisa menangani pekerjaan ini di Excel?

Impor beberapa file csv ke dalam lembar kerja terpisah dengan kode VBA

Impor beberapa file csv ke dalam lembar kerja terpisah dengan Kutools for Excel

Pisahkan buku kerja menjadi beberapa file csv / pdf / txt / excel terpisah


Untuk mengimpor beberapa file csv dengan cepat ke buku kerja, kode VBA berikut mungkin membantu Anda, 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 CombineCsvFiles()
'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 (*.csv), *.csv", , "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
    Do While I < UBound(xFilesToOpen)
        I = I + 1
        Set xTempWb = Workbooks.Open(xFilesToOpen(I))
        xTempWb.Sheets(1).Move , xWb.Sheets(xWb.Sheets.Count)
    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. Lalu tekan F5 kunci untuk menjalankan kode ini, dan sebuah jendela akan muncul, pergi ke folder tertentu dan pilih file csv yang ingin Anda impor ke Excel, lihat tangkapan layar:

doc impor csv ke lembar kerja 1

4. Dan kemudian klik Open tombol, file csv yang dipilih telah diimpor sebagai lembar kerja terpisah dalam buku kerja baru.

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


Jika Anda memiliki Kutools untuk Excel, dengan alatnya yang canggih-Menggabungkan, Anda dapat dengan cepat menggabungkan atau mengimpor beberapa file csv ke dalam satu lembar kerja tunggal atau beberapa lembar kerja terpisah sesuai kebutuhan.

Setelah menginstal Kutools untuk Excel, lakukan seperti ini:

1. Silahkan klik Kutools Plus > Menggabungkan, lihat tangkapan layar:

2. Dalam majalah Gabungkan Lembar Kerja kotak dialog, pilih Gabungkan beberapa lembar kerja dari buku kerja menjadi satu buku kerja, lihat tangkapan layar:

doc impor csv ke lembar kerja 6

3. di Langkah 2 wizard, klik Add > File untuk memilih file csv yang ingin Anda gabungkan, lihat tangkapan layar:

doc impor csv ke lembar kerja 7

4. Di muncul keluar Open dialog, pilih (* .csv) dari daftar turun bawah, lalu tentukan file csv yang ingin Anda gabungkan.

doc impor csv ke lembar kerja 8

5. Lalu klik Open tombol, dan file csv yang Anda pilih telah diimpor ke kotak dialog, lihat tangkapan layar:

doc impor csv ke lembar kerja 9

6. di Langkah 3, lakukan operasi berikut:

(1.) Memeriksa Baris pertama dari setiap lembar kerja (komentar) dari Masukkan informasi lembar kerja bagian, semua informasi file csv akan dimasukkan ke dalam lembar gabungan sebagai komentar;

(2.) Anda dapat mengganti nama file csv sesuai kebutuhan;

(3.) Anda dapat melewati file csv kosong saat Anda menemukan file csv kosong.

doc impor csv ke lembar kerja 10

7. Lalu klik Finish tombol, dan setelah menyelesaikan penggabungan, Anda bisa menentukan nama file dan lokasi untuk buku kerja gabungan baru Anda. Lihat tangkapan layar:

doc impor csv ke lembar kerja 11

8. Lalu klik Save tombol, di kotak promt yang muncul, Anda dapat membuka klik file baru Yes, dan tutup dengan mengklik Tidak, lihat tangkapan layar:

doc impor csv ke lembar kerja 12

9. Dan kemudian Anda dapat menyimpan skenario ini atau tidak sesuka Anda. Lihat tangkapan layar:

doc impor csv ke lembar kerja 13

10. Akhirnya, file csv yang Anda pilih telah diimpor ke buku kerja baru dengan lembar kerja terpisah, lihat tangkapan layar:

doc impor csv ke lembar kerja 14

Unduh dan uji coba gratis Kutools untuk Excel Sekarang!


Kutools untuk Excel: dengan lebih dari 300 add-in Excel yang praktis, gratis untuk dicoba tanpa batasan dalam 30 hari. Unduh dan uji coba gratis Sekarang!

Dalam kasus tertentu, Anda mungkin ingin membagi buku kerja menjadi file csv terpisah, Kutools for Excel's Split Workbook utilitas dapat menyelesaikan pekerjaan ini dengan cepat dan mudah.

Setelah menginstal Kutools untuk Excel, lakukan seperti ini:

1. Klik Kutools Plus > Buku catatan > Pisahkan Buku Kerja, lihat tangkapan layar:

2. Dalam majalah Pisahkan Buku Kerja kotak dialog:

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

(2.) Dan periksa Tentukan penyimpananformat, lalu pilih format file yang ingin Anda simpan;

(3.) Kemudian klik Split tombol, dan tentukan folder untuk meletakkan file terpisah.

doc impor csv ke lembar kerja 3

3. Dan kemudian klik OK untuk mulai memisahkan, buku kerja akan dipecah menjadi file csv terpisah yang Anda butuhkan.

doc impor csv ke lembar kerja 4

Unduh dan uji coba gratis Kutools untuk Excel Sekarang!


Kutools untuk Excel: dengan lebih dari 300 add-in Excel yang praktis, gratis untuk dicoba tanpa batasan dalam 30 hari. Unduh dan uji coba gratis 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 (7)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
Terima kasih atas kode untuk menggabungkan file. Namun saya ingin memiliki banyak file dalam buku kerja yang sedang saya kerjakan, bukan untuk kode untuk membuat buku kerja baru. Bagaimana cara saya untuk mencapainya?
Komentar ini diminimalkan oleh moderator di situs
Terima kasih telah membagikan kode ini. Ini adalah persis apa yang saya cari. Sayangnya itu tidak bekerja sebaik yang saya harapkan. Saya menerima pesan kesalahan setiap kali kode dijalankan. KESALAHAN: "Nama sudah dipakai. Coba yang lain." Catatan: - Saya mencoba menggabungkan empat file csv - Semua file csv memiliki nama yang sama "nama_file.csv, nama_file(1).csv, dll..." Kode menggabungkan dua file csv pertama menjadi satu buku kerja dan file ketiga ke dalam buku kerjanya sendiri. File keempat tidak pernah memiliki kesempatan karena kesalahan. Jika ada yang memiliki pemikiran tentang bagaimana cara memperbaiki masalah ini, saya akan sangat menghargai umpan balik Anda. Terima kasih semua di muka untuk waktu Anda. Salam hangat, Andrew
Komentar ini diminimalkan oleh moderator di situs
Terima kasih! Kodenya sangat berguna
Komentar ini diminimalkan oleh moderator di situs
Terima kasih . Sangat berguna
Komentar ini diminimalkan oleh moderator di situs
Terima kasih. Kode berfungsi dengan baik
Komentar ini diminimalkan oleh moderator di situs
Halo makro vba ini bagus, tetapi saya ingin diluncurkan dengan mengklik tombol di buku kerja lain, bagaimana saya bisa melakukannya?
Komentar ini diminimalkan oleh moderator di situs
Hai!
Saya telah menggunakan kode ini untuk menggabungkan formulir evaluasi menjadi satu lembar excel. Namun, ia membaca tanggal dalam format AS MM/DD/YYYY alih-alih format Eropa yang saya gunakan, yaitu DD/MM/YYYY. Hasilnya adalah kolom yang terlihat seperti ini:

11-4-2021 17:13
22/10/2021 09:41:32 (Ini 22 Oktober, tapi tidak dikenali)
7-12-2022 14:55 (Ini salah dibaca sebagai 7 Desember, padahal seharusnya 12 Juli.)
27/10/2021 16:53:19
29/10/2021 09:44:26
11-1-2021 11:36
11-2-2021 14:11
17/08/2022 16:46:06
11-1-2021 10:49
8-10-2022 12:19
22/10/2021 14:54:58
17/11/2021 13:48:54
26/10/2021 20:13:37
22/10/2021 16:26:13

Bagaimana saya bisa mencegah hal ini terjadi? Saya melihat komentar di pos lain yang menyarankan meletakkan 'Local=True' di suatu tempat, tetapi saya tidak dapat menemukan di mana harus meletakkannya sehingga file CSV dimuat dengan benar. Bantuan apa pun dihargai!
Belum ada komentar yang diposting di sini
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan