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

Bagaimana cara menggabungkan beberapa buku kerja menjadi satu buku kerja utama di Excel?

Pernahkah Anda mengalami kebuntuan saat harus menggabungkan beberapa workbook menjadi workbook master di Excel? Hal yang paling mengerikan adalah buku kerja yang perlu Anda gabungkan berisi beberapa lembar kerja. Dan bagaimana cara menggabungkan hanya lembar kerja yang ditentukan dari beberapa buku kerja menjadi satu buku kerja? Tutorial ini mendemonstrasikan beberapa metode yang berguna untuk membantu Anda menyelesaikan masalah langkah demi langkah.


Gabungkan beberapa buku kerja menjadi satu buku kerja dengan fungsi Pindahkan atau Salin

Jika hanya ada beberapa buku kerja yang perlu digabungkan, Anda bisa menggunakan perintah Pindahkan atau Salin untuk memindahkan atau menyalin lembar kerja secara manual dari buku kerja asli ke buku kerja master.

1. Buka workbook yang akan Anda gabungkan menjadi workbook master.

2. Pilih lembar kerja di buku kerja asli yang akan Anda pindahkan atau salin ke buku kerja master.

Catatan:

1). Anda dapat memilih beberapa lembar kerja yang tidak berdekatan dengan menahan Ctrl kunci dan mengklik tab lembar satu per satu.

2). Untuk memilih beberapa lembar kerja yang berdekatan, silakan klik pada tab lembar pertama, tahan perubahan kunci, lalu klik tab lembar terakhir untuk memilih semuanya.

3). Anda dapat mengklik kanan pada tab lembar mana saja, klik Pilih Semua Lembar dari menu konteks untuk memilih semua lembar kerja di buku kerja secara bersamaan.

3. Setelah memilih lembar kerja yang diperlukan, klik kanan tab lembar, lalu klik Pindahkan atau Salin dari menu konteks. Lihat tangkapan layar:

4. Kemudian Pindahkan atau Salin dialog muncul, di Untuk memesan drop-down, pilih buku kerja master tempat Anda akan memindahkan atau menyalin lembar kerja. Pilih pindah untuk mengakhiri Sebelum lembar kotak, centang Buat salinan kotak, dan terakhir klik OK .

Kemudian Anda bisa melihat lembar kerja di dua buku kerja yang digabungkan menjadi satu. Silakan ulangi langkah-langkah di atas untuk memindahkan lembar kerja dari buku kerja lain ke dalam buku kerja master.


Gabungkan beberapa buku kerja atau lembar buku kerja tertentu ke buku kerja master dengan VBA

Jika ada beberapa buku kerja yang perlu digabungkan menjadi satu, Anda bisa menerapkan kode VBA berikut untuk mencapainya dengan cepat. Silakan lakukan sebagai berikut.

1. Letakkan semua workbook yang ingin Anda gabungkan menjadi satu di bawah direktori yang sama.

2. Luncurkan file Excel (buku kerja ini akan menjadi buku kerja utama).

3. tekan lain + F11 kunci untuk membuka Microsoft Visual Basic untuk aplikasi jendela. Dalam Microsoft Visual Basic untuk aplikasi window, klik Menyisipkan > Modul, lalu salin kode VBA di bawah ini ke jendela Modul.

Kode VBA 1: Gabungkan beberapa buku kerja Excel menjadi satu

Sub GetSheets()
'Updated by Extendoffice 2019/2/20
Path = "C:\Users\dt\Desktop\dt kte\"
Filename = Dir(Path & "*.xlsx")
  Do While Filename <> ""
  Workbooks.Open Filename:=Path & Filename, ReadOnly:=True
     For Each Sheet In ActiveWorkbook.Sheets
     Sheet.Copy After:=ThisWorkbook.Sheets(1)
  Next Sheet
     Workbooks(Filename).Close
     Filename = Dir()
  Loop
End Sub
	

Catatan:

1. Kode VBA di atas akan menyimpan nama sheet dari workbook asli setelah penggabungan.

2. Jika Anda ingin membedakan worksheet mana dalam master workbook yang berasal dari mana setelah penggabungan, harap terapkan kode VBA 2 di bawah ini.

3. Jika Anda hanya ingin menggabungkan lembar kerja tertentu dari buku kerja ke dalam buku kerja utama, kode VBA 3 di bawah ini dapat membantu.

Dalam kode VBA, "C: \ Users \ DT168 \ Desktop \ KTE \”Adalah jalur folder. Di kode VBA 3, "Lembar1, Lembar3"adalah lembar kerja tertentu dari buku kerja yang akan Anda gabungkan ke buku kerja master. Anda dapat mengubahnya berdasarkan kebutuhan Anda.

Kode VBA 2: Gabungkan Buku Kerja menjadi satu (setiap lembar kerja akan diberi nama dengan awalan dari nama file aslinya):

Sub MergeWorkbooks()
'Updated by Extendoffice 2019/2/20
Dim xStrPath As String
Dim xStrFName As String
Dim xWS As Worksheet
Dim xMWS As Worksheet
Dim xTWB As Workbook
Dim xStrAWBName As String
On Error Resume Next
xStrPath = "C:\Users\DT168\Desktop\KTE\"
xStrFName = Dir(xStrPath & "*.xlsx")
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xTWB = ThisWorkbook
Do While Len(xStrFName) > 0
    Workbooks.Open Filename:=xStrPath & xStrFName, ReadOnly:=True
    xStrAWBName = ActiveWorkbook.Name
    For Each xWS In ActiveWorkbook.Sheets
    xWS.Copy After:=xTWB.Sheets(xTWB.Sheets.Count)
    Set xMWS = xTWB.Sheets(xTWB.Sheets.Count)
    xMWS.Name = xStrAWBName & "(" & xMWS.Name & ")"
    Next xWS
    Workbooks(xStrAWBName).Close
    xStrFName = Dir()
Loop
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

Kode VBA 3: Gabungkan lembar kerja tertentu dari buku kerja ke dalam buku kerja master:

Sub MergeSheets2()
'Updated by Extendoffice 2019/2/20
Dim xStrPath As String
Dim xStrFName As String
Dim xWS As Worksheet
Dim xMWS As Worksheet
Dim xTWB As Workbook
Dim xStrAWBName As String
Dim xI As Integer
On Error Resume Next

xStrPath = " C:\Users\DT168\Desktop\KTE\"
xStrName = "Sheet1,Sheet3"

xArr = Split(xStrName, ",")

Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xTWB = ThisWorkbook
xStrFName = Dir(xStrPath & "*.xlsx")
Do While Len(xStrFName) > 0
Workbooks.Open Filename:=xStrPath & xStrFName, ReadOnly:=True
xStrAWBName = ActiveWorkbook.Name
For Each xWS In ActiveWorkbook.Sheets
For xI = 0 To UBound(xArr)
If xWS.Name = xArr(xI) Then
xWS.Copy After:=xTWB.Sheets(xTWB.Sheets.count)
Set xMWS = xTWB.Sheets(xTWB.Sheets.count)
xMWS.Name = xStrAWBName & "(" & xArr(xI) & ")"
Exit For
End If
Next xI
Next xWS
Workbooks(xStrAWBName).Close
xStrFName = Dir()
Loop
Application.ScreenUpdating = True
Application.DisplayAlerts = True

End Sub

4. tekan F5 kunci untuk menjalankan kode. Kemudian semua lembar kerja atau lembar kerja tertentu dari buku kerja di folder tertentu digabungkan ke buku kerja master sekaligus.


Gabungkan beberapa buku kerja atau lembar buku kerja tertentu dengan mudah ke satu buku kerja

Untungnya, Menggabungkan utilitas buku kerja Kutools untuk Excel membuatnya lebih mudah untuk menggabungkan beberapa buku kerja menjadi satu. Mari kita lihat bagaimana membuat fungsi ini berfungsi dalam menggabungkan beberapa workbook.

Sebelum melamar Kutools untuk Excel, Mohon unduh dan instal terlebih dahulu.

1. Buat buku kerja baru dan klik Kutools Plus > Menggabungkan. Kemudian sebuah dialog muncul untuk mengingatkan Anda bahwa semua buku kerja gabungan harus disimpan dan fitur tersebut tidak dapat diterapkan ke buku kerja yang diproteksi, silakan klik OK .

2. Dalam Gabungkan Lembar Kerja wizard, pilih Gabungkan beberapa lembar kerja dari buku kerja menjadi satu buku kerja opsi, dan kemudian klik Next tombol. Lihat tangkapan layar:

3. Dalam Gabungkan Lembar Kerja - Langkah 2 dari 3 kotak dialog, klik Add > File or Map untuk menambahkan file Excel yang akan Anda gabungkan menjadi satu. Setelah menambahkan file Excel, klik Finish tombol dan pilih folder untuk menyimpan buku kerja master. Lihat tangkapan layar:

Sekarang semua workbook digabungkan menjadi satu.

Dibandingkan dengan dua metode di atas, Kutools untuk Excel memiliki keuntungan sebagai berikut:

  • 1) Semua buku kerja dan lembar kerja dicantumkan di kotak dialog;
  • 2) Untuk lembar kerja yang ingin Anda kecualikan dari penggabungan, hapus centang saja;
  • 3) Lembar kerja kosong dikecualikan secara otomatis;
  • 4) Nama file asli akan ditambahkan sebagai awalan ke nama sheet setelah penggabungan;
  • Untuk lebih banyak fungsi dari fitur ini, silahkan kunjungi disini.

  Jika Anda ingin memiliki uji coba gratis (

30
-day) dari utilitas ini, silahkan klik untuk mendownloadnya, lalu lanjutkan untuk menerapkan operasi sesuai langkah di atas.

Kutools untuk Excel - Membantu Anda Selalu Menyelesaikan Pekerjaan Sebelumnya, Memiliki Lebih Banyak Waktu untuk Menikmati Hidup
Apakah Anda sering mengejar ketinggalan dengan pekerjaan, kurangnya waktu untuk diri sendiri dan keluarga?  Kutools untuk Excel dapat membantu Anda untuk menangani
80%
Teka-teki Excel dan tingkatkan
80%
efisiensi kerja, memberi Anda lebih banyak waktu untuk mengurus keluarga dan menikmati hidup.
300
alat canggih untuk
1500
skenario kerja, membuat pekerjaan Anda jauh lebih mudah dari sebelumnya.

Tidak perlu lagi menghafal rumus dan kode VBA, istirahatkan otak Anda mulai sekarang.
Operasi yang rumit dan berulang dapat dilakukan pemrosesan satu kali dalam hitungan detik.
Kurangi ribuan operasi keyboard & mouse setiap hari, ucapkan selamat tinggal pada penyakit akibat kerja sekarang.
Menjadi ahli Excel dalam 3 menit, membantu Anda dengan cepat dikenali dan promosi kenaikan gaji.
110,000 orang yang sangat efektif dan pilihan 300+ perusahaan terkenal di dunia.
Buat $ 39.0 Anda bernilai lebih dari $ 4000.0 dengan pelatihan orang lain.
Uji coba gratis fitur lengkap
30
-hari. Jaminan Uang Kembali 60 Hari tanpa alasan.

Urutkan komentar berdasarkan
komentar (146)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
Hai Tolong bantu saya untuk kondisi di bawah ini. Saya memiliki buku kerja berbeda yang masing-masing memiliki lebih dari 5 lembar kerja di jalur yang berbeda. Saya perlu menggabungkan semua lembar kerja dari buku kerja yang berbeda menjadi satu buku kerja. Adakah yang bisa membantu saya menyelesaikan dengan macro.TIA!
Komentar ini diminimalkan oleh moderator di situs
[quote]Hai Tolong bantu saya untuk kondisi di bawah ini. Saya memiliki buku kerja berbeda yang masing-masing memiliki lebih dari 5 lembar kerja di jalur yang berbeda. Saya perlu menggabungkan semua lembar kerja dari buku kerja yang berbeda menjadi satu buku kerja. Adakah yang bisa membantu saya menyelesaikan dengan macro.TIA!Oleh A. Karthi[/quote] Silakan unduh dan instal Kutools for Excel, Anda dapat menyelesaikannya dengan cepat. Tetapi jika Anda ingin menggunakan VBA, mungkin terlalu rumit. Untuk informasi lebih lanjut tentang cara menyelesaikannya, silakan kunjungi:http://www.extendoffice.com/product/kutools-for-excel/excel-combine-worksheets-into-one.html
Komentar ini diminimalkan oleh moderator di situs
KUTOOLS Solusi yang luar biasa. Saya butuh satu bantuan lagi ketika saya membuat buku kerja master kemudian warna sel lembar kerja diubah dari lembar kerja asli. Bagaimana saya bisa menyimpannya seperti lembar kerja asli.
Komentar ini diminimalkan oleh moderator di situs
Kantor kami memiliki duplikasi data, (yaitu nama, alamat, kota, jumlah, tanggal ditandatangani) dari beberapa excel asli dan mencoba menggabungkan data akan menjadi pekerjaan yang sedang berjalan. Bagaimana hal itu dapat dilakukan untuk menghilangkan pekerjaan ganda dan entri informasi ganda?
Komentar ini diminimalkan oleh moderator di situs
Saya mendapatkan 'runtime error 1004', Metode Penyalinan kelas Lembar Kerja gagal pada baris yang berbunyi: Sheet.Copy After:=ThisWorkbook.Sheets(1). Saya menggunakan Excel 2010. Bisakah Anda membantu? Terima kasih, - Susie
Komentar ini diminimalkan oleh moderator di situs
Hei Susie, saya sendiri telah mengerjakan masalah ini untuk sementara waktu, mendapatkan kesalahan yang sama. Periksa untuk melihat apakah modul dibuat di bawah PERSONAL alih-alih buku kerja aktif Anda. Setelah saya membuat modul di bawah pohon yang benar, kode di bawah ini berfungsi dengan baik. Sub GetSheets_xls() Dim Sheet As Worksheet Path = "C:\Users\yournamehere\Desktop\Testingfolder\" Filename = Dir(Path & "*.xls") Do While Filename "" Workbooks.Open Filename:=Path & Filename, ReadOnly:=False Set Sheet = ActiveWorkbook.Sheets(1) Sheet.Copy After:=ThisWorkbook.Sheets(1) 'Next Sheet Workbooks(Filename).Close Filename = Dir() Loop End Sub Semoga ini membantu!
Komentar ini diminimalkan oleh moderator di situs
Terima kasih banyak. Kode Anda bekerja dengan baik.
Komentar ini diminimalkan oleh moderator di situs
[quote]Saya mendapatkan 'runtime error 1004', Metode Penyalinan kelas Lembar Kerja gagal pada baris yang berbunyi: Sheet.Copy After:=ThisWorkbook.Sheets(1). Saya menggunakan Excel 2010. Bisakah Anda membantu? Terima kasih, - SusieOleh Susie[/quote] Punya masalah yang sama, ini berfungsi ketika saya pergi untuk melihat dan memperlihatkan "PERSONAL", tampaknya mengalami kesulitan mengakses makro ini dengan master disembunyikan.
Komentar ini diminimalkan oleh moderator di situs
Buka dan perlihatkan "PERSONAL" - tampaknya ada masalah dalam mengeksekusi seluruh kode saat master disembunyikan. Anda dapat membuat makro asli ke buku kerja itu, tetapi Anda harus membuat ulang semuanya setiap kali Anda ingin menggunakannya
Komentar ini diminimalkan oleh moderator di situs
Hai! Terima kasih banyak untuk file ini............. :roll: Salam Hormat
Komentar ini diminimalkan oleh moderator di situs
Hei tip yang bagus. Telah melakukan hampir semua yang aku inginkan. Di woorkbook gabungan, saya ingin nama lembar kerja memuat nama woorkbook asli, jadi saya tahu dari buku woorkbook mana data itu berasal. Data yang saya gabungkan, berasal dari arsip yang berbeda. Saya harus mencari entri, tetapi tidak tahu di arsip mana. Jadi dengan menggabungkan semua data dalam satu file, saya dapat mencari semua arsip sekaligus. Tapi saya masih perlu tahu, di arsip mana entri itu berada. Henrik
Komentar ini diminimalkan oleh moderator di situs
Untuk kode untuk memasukkan nama file lakukan saja ini. Sub GetSheets() Dim temp As String Path = "C:\Users\....\Desktop\Excel combine\" Filename = Dir(Path & "*.xlsx") Do While Filename "" Workbooks.Open Filename:= Jalur & Nama File, ReadOnly:=True temp = ActiveWorkbook.Name ActiveSheet.Name = temp ActiveWorkbook.Sheets(temp).Copy After:=ThisWorkbook.Sheets(1) Workbooks(Filename).Tutup Nama File = Dir() Loop End Sub Catatan : ini hanya menyalin lembar pertama, bisa di-tweek untuk mengerjakan semua lembar
Komentar ini diminimalkan oleh moderator di situs
Bagaimana Anda memasukkan lebih banyak lembar dan bagaimana Anda menentukan file master yang berbeda untuk menempelkan semua lembar.
Komentar ini diminimalkan oleh moderator di situs
Ini benar-benar solusi yang bagus. terima kasih. Satu Masalah, ketika saya menjalankannya seperti ini, excel akan menanyakan apakah saya ingin menyimpan perubahan sebelum menutup (Karena namanya diubah), dan saya tidak ingin melakukannya untuk setiap file (sekitar 32 per eksekusi). Apakah ada cara untuk menyelesaikan ini?
Komentar ini diminimalkan oleh moderator di situs
Ini luar biasa :lol: sangat membantu saya....
Komentar ini diminimalkan oleh moderator di situs
Terima kasih sobat, Anda membuat hari saya dari situs web yang sangat membantu ini ... Sebenarnya saya juga ingin menggabungkan data header yang sama dari lembar yang berbeda menjadi 1 lembar kerja master, KUTOOL for Excel sangat membantu saya .... Terima kasih sekali lagi .... :)
Komentar ini diminimalkan oleh moderator di situs
Terima kasih banyak atas informasi berharganya. Ini benar-benar bekerja. Langkah-langkah yang tercantum dalam artikel ini benar-benar membuat pekerjaan saya lebih mudah. Terima kasih, Dinesh
Komentar ini diminimalkan oleh moderator di situs
terima kasih sudah berbagi ilmunya
Komentar ini diminimalkan oleh moderator di situs
Bagaimana Anda mendapatkannya untuk memperbarui perubahan dari buku kerja asli? Saya mencoba mendapatkan ringkasan nasional yang akan membuat setiap wilayah memasukkan data mereka ke dalam buku kerja mereka sendiri dan kemudian memiliki ringkasan nasional yang diperbarui dari ini? Saya ingin mengatur ini selama setahun penuh di awal dan tidak bekerja secara retrospektif.
Komentar ini diminimalkan oleh moderator di situs
Setelah menggabungkan lembar kerja dalam satu Buku Kerja, bagaimana Anda menyimpannya Saya tidak bisa menyimpannya bernama Book1 dan saya mengklik simpan atau simpan sebagai tetapi tidak berfungsi. ada saran?
Komentar ini diminimalkan oleh moderator di situs
Saya mengikuti langkah-langkah di "Gabungkan beberapa buku kerja ke satu buku kerja dengan VBA" dan klik "jalankan", tidak ada yang terjadi. Saya tidak mengetahui kesalahan dan tidak yakin bagaimana memperbaikinya. Maukah Anda membantu saya? berikut kode yang saya masukan di workbook baru. Terima kasih Sub GetSheets() Path = "p:\download\macro\" Filename = Dir(Path & "*.xls") Do While Filename "" Workbooks.Open Filename:=Path & Filename, ReadOnly:=True For Every Sheet In ActiveWorkbook.Sheets Sheet.Copy Setelah:=ThisWorkbook.Sheets(1) Buku Kerja Lembar Berikutnya(Nama File).Tutup Nama File = Dir() Loop End Sub
Komentar ini diminimalkan oleh moderator di situs
Dear Sir/Madam: Saya mengikuti langkah-langkah "Menggabungkan beberapa buku kerja menjadi satu buku kerja dengan VBA" untuk menyiapkan modul berikut, tetapi tidak ada yang terjadi. Maukah Anda membantu saya menemukan masalahnya? terima kasih Sub GetSheets() Path = "p:\download\macro\" Filename = Dir(Path & "*.xls") Do While Filename "" Workbooks.Open Filename:=Path & Filename, ReadOnly:=True For Each Lembar Di ActiveWorkbook.Sheets Sheet.Copy Setelah:=ThisWorkbook.Sheets(1) Lembar Kerja Selanjutnya(Nama File).Tutup Nama File = Dir() Loop End Sub
Komentar ini diminimalkan oleh moderator di situs
untuk versi excel yang lebih baru, coba ini. Saya menyimpan buku kerja saya yang terbuka sebagai katalog, dan semua file ada di c:\temp. Sub GetSheets() Path = "c:\temp\" Filename = Dir(Path & "*.xls") Do While Filename "" Workbooks.Open Filename:=Path & Filename, ReadOnly:=True Untuk Setiap Lembar Di ActiveWorkbook. Sheets Sheet.Copy After:=Workbooks("catalog.xlsx").Sheets(1) Next Sheet Workbooks(Filename).Tutup Filename = Dir() Loop End Sub
Komentar ini diminimalkan oleh moderator di situs
Coba ini untuk versi excel yang lebih baru. Saya menyimpan buku kerja saya sebagai katalog, semua file ada di c:\temp. Sub GetSheets() Path = "c:\temp\" Filename = Dir(Path & "*.xls") Do While Filename "" Workbooks.Open Filename:=Path & Filename, ReadOnly:=True Untuk Setiap Lembar Di ActiveWorkbook. Sheets Sheet.Copy After:=Workbooks("catalog.xlsx").Sheets(1) Lembar Kerja Selanjutnya(Nama File).Tutup Nama File = Dir() Loop End Sub
Komentar ini diminimalkan oleh moderator di situs
[quote]Coba ini untuk versi excel yang lebih baru. Saya menyimpan buku kerja saya sebagai katalog, semua file ada di c:\temp. Sub GetSheets() Path = "c:\temp\" Filename = Dir(Path & "*.xls") Do While Filename "" Workbooks.Open Filename:=Path & Filename, ReadOnly:=True Untuk Setiap Lembar Di ActiveWorkbook. Sheets Sheet.Copy After:=Workbooks("catalog.xlsx").Sheets(1) Lembar Kerja Selanjutnya(Nama File).Tutup Nama File = Dir() Loop End SubOleh Dave[/quote] Saya terus mendapatkan "can't assign to read-only property" mengenai path... Ada ide?
Komentar ini diminimalkan oleh moderator di situs
Saya juga punya masalah. Apakah Anda mengetahuinya?
Komentar ini diminimalkan oleh moderator di situs
Belum ada... Belum menemukan solusi atau ada yang menyarankan perbaikan. Maaf...
Komentar ini diminimalkan oleh moderator di situs
Gerakan mengungkap kekerasan seksual demi menghapuskannya. Ini berfungsi 6 bulan yang lalu, terakhir kali saya harus menjalankannya. Ada yang sudah menemukan solusinya belum? Jika Anda sudah menjalankannya sebelumnya dan sekarang tidak berfungsi, mungkinkah itu ada hubungannya dengan pembaruan oleh Microsoft? Ini adalah alat yang sangat berguna untuk tugas saya dan menghemat banyak waktu. Apa yang bisa berubah yang menyebabkan Excel mulai menampilkan pesan ini secara tiba-tiba? Menjadi cukup baru di VBA, saya tidak tahu harus mulai dari mana menganalisis logika. Salam hormat, Greg. Glasgow, Skotlandia.
Komentar ini diminimalkan oleh moderator di situs
Tampaknya "Path" sekarang sudah dicadangkan jadi gunakan sembarang nama lain dan ganti "Path", misalnya "Mypath".
Komentar ini diminimalkan oleh moderator di situs
Mungkin Anda harus mengubah ReadOnly:=True menjadi ReadOnly:=False, saya telah melakukannya dan itu membantu
Komentar ini diminimalkan oleh moderator di situs
Saya sedang mencari sesuatu di sepanjang baris ini tetapi ingin berkomentar. Bukankah Do While Filename "" harus sesuatu selain ""? atau saya yang salah baca? Mungkin Do While NOT filename = "" Hanya sebuah pemikiran...
Komentar ini diminimalkan oleh moderator di situs
Saya ingin menggabungkan semua lembar menjadi satu lembar di mana judulnya sama... mohon bantuannya
Komentar ini diminimalkan oleh moderator di situs
Hai, saya mencoba menggunakan makro di atas untuk menyusun beberapa file, sayangnya tidak ada hasil... dapatkah seseorang membantu saya menyingkirkan kumpulan file secara manual.
Komentar ini diminimalkan oleh moderator di situs
saya memiliki 112 lembar excel yang ingin saya masukkan ke dalam satu lembar tanpa salin dan tempel. Tolong bantu saya.
Komentar ini diminimalkan oleh moderator di situs
Saya memiliki buku kerja yang berisi sekitar 250 Lembar. Saya perlu Cobain dalam satu lembar. tolong beri saya solusi
Komentar ini diminimalkan oleh moderator di situs
Coba ini...Saya mendapatkan ini dari situs lain tetapi sayangnya saya tidak dapat mengingat nama wanita itu, jadi saya minta maaf karena tidak menyebutkannya, saya buruk" Gabungkan beberapa WB di Excel: INGAT UNTUK MENGUBAH MyPath = ! Sub Merge2MultiSheets( ) Redupkan wbDst Sebagai Buku Kerja Redupkan wbSrc Sebagai Buku Kerja Redupkan wsSrc Sebagai Worksheet Redupkan MyPath Sebagai String Redupkan strFilename As String Application.DisplayAlerts = False Application.EnableEvents = False Application.ScreenUpdating = False MyPath = "\\MyPath\etc\etc..." Set wbDst = Workbooks.Add(xlWBATWorksheet) strFilename = Dir(MyPath & "\*.xls", vbNormal) Jika Len(strFilename) = 0 Kemudian Keluar Sub Lakukan Hingga strFilename = "" Set wbSrc = Workbooks.Open(Filename:= MyPath & "\" & strFilename) Setel wsSrc = wbSrc.Worksheets(1) wsSrc.Copy After:=wbDst.Worksheets(wbDst.Worksheets.Count) wbSrc.Close False strFilename = Dir() Loop wbDst.Worksheets(1). Hapus Application.DisplayAlerts = True Application.EnableEvents = True Application.ScreenUpdating = True End Sub
Komentar ini diminimalkan oleh moderator di situs
Hai, saya menambahkan kode ke dalam modul. Bernama buku Excel Masterfile. Di mana dalam kode saya menambahkan. terima kasih
Komentar ini diminimalkan oleh moderator di situs
Tidak satu pun dari ini yang berhasil untuk saya, saya akhirnya membuat yang ini berfungsi. FYI Saya menggunakan 2010 'Deskripsi: Menggabungkan semua file dalam folder ke file master. Sub MergeFiles() Redupkan path As String, ThisWB As String, lngFilecounter As Long Dim wbDest As Workbook, shtDest As Worksheet, ws As Worksheet Redupkan Filename As String, Wkb As Workbook Redupkan CopyRng As Range, Dest As Range Redup RowofCopySheet As Integer RowofCopySheet = 2 ' Baris untuk memulai di lembar yang Anda salin dari ThisWB = ActiveWorkbook.Name path = "mypath....." ' Jangan lupa untuk mengubah Application.EnableEvents ini = False Application.ScreenUpdating = False Set shtDest = ActiveWorkbook .Sheets(1) Filename = Dir(path & "\*.xls", vbNormal) If Len(Filename) = 0 Kemudian Keluar Sub Lakukan Hingga Filename = vbNullString Jika Tidak Filename = ThisWB Kemudian Set Wkb = Workbooks.Open(Filename: =path & "\" & Filename) Atur CopyRng = Wkb.Sheets(1).Range(Cells(RowofCopySheet, 1), Cells(ActiveSheet.UsedRange.Rows.Count, ActiveSheet.UsedRange.Columns.Count)) Atur Tujuan = shtDest.Range("A" & shtDest.UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1) CopyRng.Copy Dest Wkb.Close False End If Filename = Dir() Loop Rang e("A1").Pilih Application.EnableEvents = True Application.ScreenUpdating = True MsgBox "Selesai!" Akhir Sub
Komentar ini diminimalkan oleh moderator di situs
Bagaimana cara mengedit ini sehingga data yang ditarik selalu dimulai di baris atas? Jika saya menjalankan kode ini dua kali, itu menambahkan data ke akhir data saya sebelumnya (dari pertama kali menjalankan makro).
Komentar ini diminimalkan oleh moderator di situs
Ubah baris ini: RowofCopySheet = 2 menjadi RowofCopySheet = 1
Komentar ini diminimalkan oleh moderator di situs
HI, Saya memiliki beberapa File Excel (satu lembar) folder berbeda dengan perlindungan kata sandi. saya ingin akhir hari menggabungkan semua data ke satu file Master. Setiap kali saya harus memasukkan kata sandi dan membuka file dan menyalin tempel ke file master.. Mohon bantu saya dengan kode VBA untuk ini.
Belum ada komentar yang diposting di sini
Muat Lebih
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan

Ikuti kami

Hak Cipta © 2009 - www.extendoffice.com. | Seluruh hak cipta. Dipersembahkan oleh ExtendOffice. | Peta Situs
Microsoft dan logo Office adalah merek dagang atau merek dagang terdaftar dari Microsoft Corporation di Amerika Serikat dan / atau negara lain.
Dilindungi oleh Sectigo SSL