Menggabungkan beberapa file excel menjadi satu buku kerja vba

Jika Anda memiliki sesuatu untuk dikerjakan dengan beberapa file excel. Lebih dari 150 file excel yang dihasilkan oleh aplikasi berbasis web harus digabungkan menjadi satu file, lalu dibuat ringkasannya. Cara sederhana untuk menggabungkan atau menggabungkan beberapa file excel, dengan makro di Excel.

Jika Anda tidak terbiasa dengan makro kantor, jangan khawatir Anda dapat menggunakannya dengan mudah hanya dengan menulis kode penggabungan file xls sederhana pada editor vb, mengubah jalur folder kerja dan nama referensi starter sel di dalam kode agar sesuai dengan referensi Anda, dan . Semua file excel (xls atau xlsx) di dalam folder kerja akan digabungkan ke lembar kerja saat ini

Unduh file di sini. MergeWorkBooks_ExampleFile. xls

Baca juga Cara Membuka Proteksi Lembar Excel Tanpa Kata Sandi

Untuk detail lebih lanjut, berikut adalah intro langkah demi langkah

• Kumpulkan semua file xls atau xlsx yang ingin Anda gabungkan ke dalam folder. Ingatlah bahwa makro penggabungan ini hanya akan mengambil lembar kerja pertama pada file spreadsheet. Jadi pastikan semua konten ada di lembar kerja pertama sebelum melanjutkan

• Tutup semua file excel yang berfungsi sehingga Anda hanya dapat fokus pada penggabungan file
• Di MS Excel, buat spreadsheet baru hanya dengan menekan CTRL+N
• Dan buka editor Microsoft Visual Basic dengan menekan ALT+F11, Anda akan melihat editor teks kosong
• Sekarang buka dengan mengklik dua kali Buku Kerja Ini pada menu lembar kiri
• Tempel kode makro berikut

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25

Sub simpleXlsMerger()
Dim bookList As Workbook
Dim mergeObj As Object, dirObj As Object, filesObj As Object, everyObj As Object
Application.ScreenUpdating = False
Set mergeObj = CreateObject("Scripting.FileSystemObject")
 
'change folder path of excel files here
Set dirObj = mergeObj.Getfolder("D:changetoexcelfilespathhere")
Set filesObj = dirObj.Files
For Each everyObj In filesObj
Set bookList = Workbooks.Open(everyObj)
 
'change "A2" with cell reference of start point for every files here
'for example "B3:IV" to merge all files start from columns B and rows 3 
'If you're files using more than IV column, change it to the latest column
'Also change "A" column on "A65536" to the same column as start point
Range("A2:IV" & Range("A65536").End(xlUp).Row).Copy
ThisWorkbook.Worksheets(1).Activate
 
'Do not change the following column. It's not the same column as above
Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial
Application.CutCopyMode = False
bookList.Close
Next
End Sub

• Ubah folder seperti yang disebutkan pada komentar pada kode makro
• Ubah juga referensi awal kolom sesuai kebutuhan Anda (biasanya baris pertama digunakan oleh tajuk kolom, jadi saya menggunakan A2 sebagai titik awal)
• Misalnya untuk mulai menggabungkan semua file dari kolom “B” baris “1”
• Ubah "IV" hanya jika Anda memiliki file menggunakan kolom lebih lebar dari kolom "IV". Pada dasarnya, ini akan mencoba menyalin nilai pada semua kolom yang tersedia. Jika Anda melihat kolom terbaru pada lembar kerja baru adalah "IV", itu adalah kolom default yang tersedia hingga kolom Anda tumbuh lebih dari itu

Range("B1:IV" & Range("B65536").End(xlUp).Row).Copy

• Jika semuanya sudah dikonfigurasi, tekan "F5" atau klik ikon putar untuk menjalankan kode (RunSub). Anda akan melihat progres pengerjaan di menu lembar kiri
• Jika semua sudah selesai, kini Anda dapat beralih ke lembar kerja untuk melihat hasilnya

Jika Anda mengatur folder baru di dalam kode, lalu tekan “F5″ atau tekan tombol SubRun, hasilnya akan ditambahkan ke lembar kerja saat ini di bawah data sebelumnya. Itu berarti itu tidak akan menimpa hasil terakhir tetapi sebagai penggabungan lain ke data gabungan sebelumnya. Sebagai kesimpulan, Anda dapat melakukan spam mengubah jalur folder dan menekan F5 untuk menjalankan kode untuk menggabungkan semua file di folder yang disediakan ke dalam lembar kerja saat ini. Jika Anda ingin memulai penggabungan baru untuk beberapa file xls atau xlsx, Anda harus menghapus lembar kerja saat ini, atau membuat file baru untuk digabungkan. Saya harap ada juga cara untuk menggabungkan spreadsheet mirip dengan ini tetapi untuk LibreOffice , karena saya juga mengerjakan beberapa file ods.

Baca juga

• Gabungkan Data dari Beberapa Lembar Kerja menjadi Lembar Kerja Utama di Excel menggunakan VBA
• 5 makro Excel yang harus diketahui untuk tugas-tugas umum
• Memahami Variabel, Kondisi, dan Loop di Excel VBA

Terima kasih . oaultimate. com

Bagikan ini

• Facebook
• Twitter
• LinkedIn
• Surel
• Telegram

Terkait

Bagaimana cara menggabungkan beberapa file Excel menjadi satu buku kerja?

Bagaimana cara menggabungkan beberapa lembar kerja menjadi satu di VBA?

Bagaimana cara menggabungkan beberapa file Excel menjadi satu lembar kerja menggunakan Power Query?