cara impor sheet dari file Excel lainnya ke dalam satu file Excel

Cara impor sheet dari file Excel lainnya ke dalam satu file Excel

Cara impor sheet dari file Excel lainnya ke dalam satu file Excel

Di bawah ini kita akan melihat program di Excel VBA, Cara impor sheet dari file Excel lainnya ke dalam satu file Excel.

Download Book4.xlsx, Book5.xlsx dan tambahkan ke “C: \ tes \” dan nisi data sembarang

Situasi:

Impor Lembar menggunakan Excel VBA

Tambahkan baris kode berikut ke tombol perintah:

1. Pertama, kita mendeklarasikan dua variabel tipe String, objek Worksheet dan satu variabel tipe Integer.

Dim directory As String, fileName As String, sheet As Worksheet, total As Integer

2. Matikan pembaruan layar dan menampilkan peringatan.

Application.ScreenUpdating = False
Application.DisplayAlerts = False

3. Inisialisasi direktori variabel. Kami menggunakan fungsi Dir untuk menemukan yang pertama * .xl ?? file yang disimpan dalam direktori ini.

directory = “c:\test\”
fileName = Dir(directory & “*.xl??”)

Catatan: Fungsi Dir mendukung penggunaan beberapa karakter (*) dan karakter tunggal (?) Wildcard untuk mencari semua tipe file Excel yang berbeda.

4. Variabel fileName sekarang menampung nama file Excel pertama yang ditemukan dalam direktori. Tambahkan Do While Loop .

Do While fileName <> “”

Loop

Tambahkan baris kode berikut (pada 5, 6, 7 dan 8) ke loop.

5. Tidak ada cara sederhana untuk menyalin lembar kerja dari file Excel yang ditutup. Oleh karena itu kami membuka file Excel.

Workbooks.Open (directory & fileName)

6. Impor lembar dari file Excel ke import-sheet.xlsm.

For Each sheet In Workbooks(fileName).Worksheets
total = Workbooks(“import-sheets.xlsm”).Worksheets.count
Workbooks(fileName).Worksheets(sheet.Name).Copy _
after:=Workbooks(“import-sheets.xlsm”).Worksheets(total)
Next sheet

Penjelasan: total variabel melacak jumlah total lembar kerja import-sheet.xlsm. Kami menggunakan metode Salin objek Lembar Kerja untuk menyalin setiap lembar kerja dan menempelkannya setelah lembar kerja terakhir import-sheets.xlsm.

7. Tutup file Excel.

Workbooks(fileName).Close

8. Fungsi Dir adalah fungsi khusus. Untuk mendapatkan file Excel lainnya, Anda bisa menggunakan fungsi Dir lagi tanpa argumen.

fileName = Dir ()

Baca Juga  Belajar Microsoft Excel: Macro Untuk Menyaksikan Dan Menyembunyikan Comment Excel

Catatan: Jika tidak ada lagi nama file yang cocok, fungsi Dir mengembalikan string panjang-nol (“”). Akibatnya, Excel VBA akan meninggalkan loop Do While.

9. Hidupkan pembaruan layar dan tampilkan lagi peringatan (di luar loop).

Application.ScreenUpdating = Benar
Application.DisplayAlerts = Benar

10. Uji program.

Hasil:

Impor Hasil Lembar

 

Tinggalkan Komentar

Alamat email Anda tidak akan dipublikasikan. Ruas yang wajib ditandai *

Need Help? Chat with us