Ide awal saya adalah menggunakan metode cloneSheet dari XSSFWorkbook untuk melakukan trik, saya berhasil menyalin Relasi dan Gambar namun gagal menyalin data itu sendiri. Mengapa? Show
Jawaban asli untuk pertanyaan ini telah diposting di Cara menyalin lembar antara buku kerja Excel di Jawa Namun, persyaratan proyek saya berbeda, jadi saya mengimprovisasi jawabannya Saya menambahkan metode yang disebut menggabungkan yang menerima buku kerja target, dan buku kerja sumber Metode mengulang semua lembar kerja di buku kerja sumber dan menambahkannya ke buku kerja target. Jawaban aslinya tidak memiliki penyalinan relasi dan gambar Juga buku kerja yang harus saya salin dari Footer yang kurang, membutuhkan Gridlines untuk dimatikan, dan muat ke halaman. Jadi inilah solusi saya Saya mendapat telepon dari seorang teman yang ingin menggabungkan beberapa file Excel menjadi satu buku kerja Excel. Dia memiliki banyak file dalam satu folder dan dia ingin mendapatkan semua lembar kerja dari semua buku kerja menjadi satu buku kerja tunggal Meskipun ini dapat dilakukan secara manual, ini akan memakan waktu dan rawan kesalahan Namun, kode VBA sederhana dapat melakukannya dalam beberapa detik Gabungkan Beberapa File Excel menjadi Satu FileBerikut adalah kode yang dapat menggabungkan beberapa buku kerja Excel dalam folder tertentu menjadi satu buku kerja Excel Sub ConslidateWorkbooks() 'Created by Sumit Bansal from https://trumpexcel.com Dim FolderPath As String Dim Filename As String Dim Sheet As Worksheet Application.ScreenUpdating = False FolderPath = Environ("userprofile") & "DesktopTest" Filename = Dir(FolderPath & "*.xls*") Do While Filename <> "" Workbooks.Open Filename:=FolderPath & Filename, ReadOnly:=True For Each Sheet In ActiveWorkbook.Sheets Sheet.Copy After:=ThisWorkbook.Sheets(1) Next Sheet Workbooks(Filename).Close Filename = Dir() Loop Application.ScreenUpdating = True End Sub Bagaimana Cara Menggunakan Kode ini?Berikut adalah langkah-langkah untuk menggunakan kode ini
Ini akan menjalankan kode dan semua lembar kerja dari semua file Excel di folder akan dikonsolidasikan menjadi satu buku kerja Bagaimana Kode Ini Bekerja?
Berikut penjelasan tentang fungsi DIR pada library MSDN Dir mengembalikan nama file pertama yang cocok dengan pathname. Untuk mendapatkan nama file tambahan yang cocok dengan pathname, panggil Dir lagi tanpa argumen. Ketika tidak ada lagi nama file yang cocok, Dir mengembalikan string dengan panjang nol (“”) Pernahkah Anda mencoba hal semacam ini menggunakan VBA? Hemat Banyak Waktu Menggunakan VBA. Lihat KURSUS VBA Excel Anda Mungkin Juga Menyukai Tutorial Excel Berikut
BUKU EXCEL GRATIS Dapatkan 51 Ebook Tips Excel untuk meningkatkan produktivitas Anda dan menyelesaikan pekerjaan lebih cepat
Nama Surel YA - KIRIM SAYA EBOOK 98 pemikiran tentang “Cara Menggabungkan Beberapa File Excel Menjadi Satu Buku Kerja Excel”
|