Makro untuk mengimpor data dari beberapa file excel

Apakah Anda perlu menggabungkan beberapa file Excel? . Mungkin Anda ingin satu master spreadsheet mereferensikan beberapa yang lain. Mungkin Anda membagikan salinan file Excel dengan tim Anda, yang memperbarui sebagiannya, dan Anda ingin menggabungkannya kembali ke dalam file master

Ada banyak metode untuk menggabungkan file Excel. Setiap metode dapat berguna dengan caranya sendiri, tergantung pada kasus penggunaan Anda. Jadi tanpa basa-basi lagi, mari kita lihat beberapa metode paling populer untuk menggabungkan file Excel

Jika Anda ingin menggabungkan data dari beberapa Google Sheets, Anda dapat melakukannya dengan mudah menggunakan Layer. Layer adalah add-on gratis yang memungkinkan Anda berbagi lembar atau rentang spreadsheet utama Anda dengan orang yang berbeda. Selain itu, Anda dapat memantau dan menyetujui pengeditan dan perubahan yang dibuat pada file bersama sebelum digabungkan kembali ke file master, memberi Anda kontrol lebih besar atas data Anda

Instal Add-On Layer Google Sheets hari ini dan Dapatkan Akses Gratis ke semua fitur berbayar, sehingga Anda dapat mulai mengelola, mengotomatiskan, dan menskalakan proses Anda di atas Google Sheets

Mulailah Dengan Lapisan Sekarang

Bagikan bagian Google Spreadsheet Anda, pantau, tinjau, dan setujui perubahan, serta sinkronkan data dari berbagai sumber – semuanya dalam hitungan detik

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 File

Berikut 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

• Masukkan semua file Excel yang ingin Anda gabungkan ke dalam satu folder. Untuk keperluan tutorial ini, saya telah membuat sebuah folder bernama Test dan memiliki enam file di dalamnya (masing-masing 4 buku kerja Excel dan 1 Power Point dan Word)
• Buka buku kerja Excel baru
• Tekan ALT + F11 (atau pergi ke Pengembang -> Kode -> Visual Basic). Ini akan membuka Editor Visual Basic
• Di Editor VB, di Editor Proyek, klik kanan salah satu objek untuk buku kerja dan buka Sisipkan -> Modul. Ini akan memasukkan modul untuk buku kerja
• Klik dua kali pada modul. Ini akan membuka jendela kode di sebelah kanan
• Salin dan tempel kode di atas ke jendela kode
• Dalam kode, Anda perlu mengubah baris kode berikut.

  FolderPath = Environ("userprofile") & "DesktopTest"

  _

  Di baris ini, ubah bagian dalam tanda kutip ganda (disorot dengan warna oranye) dengan lokasi folder di mana Anda memiliki file yang ingin Anda gabungkan. Pada kode yang digunakan di atas, folder tersebut ada di Desktop. Jika Anda memilikinya di lokasi lain, tentukan jalur itu di sini

• Tempatkan kursor di mana saja dalam kode dan klik tombol putar berwarna hijau di opsi Toolbar (atau tekan tombol F5)

Ini akan menjalankan kode dan semua lembar kerja dari semua file Excel di folder akan dikonsolidasikan menjadi satu buku kerja

Bagaimana Kode Ini Bekerja?

• Kode menggunakan fungsi DIR untuk mendapatkan nama file dari folder yang ditentukan
• Baris berikut memberikan nama file excel pertama ke variabel 'Filename'
  Nama file = Dir(FolderPath & “*. xls*”)
• Kemudian loop Do While digunakan untuk mengecek apakah semua file sudah tertutup
• Dalam loop 'Lakukan Sementara', loop 'Untuk Setiap' digunakan untuk menyalin semua lembar kerja ke buku kerja tempat kami menjalankan kode
• Di akhir Do Loop, baris kode berikut digunakan. Nama Berkas = Dir(). Menetapkan nama file Excel berikutnya ke variabel Filename dan perulangan dimulai lagi.
• Saat semua file tercakup, fungsi DIR mengembalikan string kosong, yaitu saat loop berakhir

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

• Cara Menggabungkan Data dari Beberapa Buku Kerja menjadi Satu Tabel Excel (menggunakan Power Query)
• Membuat Lembar Kerja Ringkasan dengan Cepat dengan Hyperlink di Excel
• Cara Membuat dan Menggunakan Add-in Excel
• Cara Menjalankan Makro
• 20 Contoh Makro Excel yang Berguna

98 pemikiran tentang “Cara Menggabungkan Beberapa File Excel Menjadi Satu Buku Kerja Excel”

1. Yakobus

   Terima kasih yang luar biasa

2. Lee Warren

   Sangat membuat frustrasi - tidak bisa membuat benda sialan itu bekerja…

   • Yakobus

     Saya mengalami masalah ini juga tetapi memperbaikinya sebagai berikut,

     1. Simpan dokumen sebagai. xlxm
     2. Pastikan Anda memiliki "/" di akhir jalur direktori Anda

     • Yakobus

       maaf. xlsm

3. rampok

   Kode berfungsi tetapi string jalur file memerlukan semua "" di jalur file lengkap. Sebagai contoh. C. UsersUser1DesktopExcelfiles*. xls*. Cara terbaik untuk menyelesaikan ini adalah

   Saat Anda memodifikasi FolderPath = Environ(“userprofile”) & “DesktopTest” pastikan Anda menyertakan pre dan post forward slash “” ke jalur folder yang berisi lembar excel yang akan diimpor

   Saat Anda melakukan debug, klik kanan pada variabel Folderpath dan Filename dan setel ke Daftar Pantauan dengan kotak Istirahat saat nilai berubah dicentang. Saat Anda menjalankan program, Anda dapat memverifikasi bahwa kedua variabel tersebut diperbarui dengan benar

4. DM

   Terima kasih banyak, bekerja dengan sempurna

5. Siva

   Tidak berfungsi, Ini menunjukkan debugg di Filename = Dir(FolderPath & “*. xlsx*”)
   Bisakah Anda memberikan perbaikan

6. William

   Agar kode ini berfungsi, beberapa dari Anda mungkin memerlukan lebih dari jalur file yang disarankan

   FolderPath = Environ(“userprofile”) & “DesktopTest”

   Environ(“userprofile”) hanya akan memberikan bagian pertama dari filepath. Dalam kasus saya itu. C. PenggunaWF. Ada beberapa subfolder "di sepanjang jalur" sebelum masuk ke folder yang saya gunakan untuk menggabungkan file. Gunakan contoh ini sebagai jalur ke folder yang benar

   folderpath = “C. UsersWFDocumentsFolder1Folder2Folder3FolderWithFiles

   Untuk cara mudah mendapatkan jalur yang benar, gunakan kode ini untuk menempatkan jalur di lembar kerja. Kemudian salin/tempel ke sub prosedur

   Sub Path_FileName()
   Redupkan strPath Sebagai String
   strPath = Buku Kerja Aktif. Nama lengkap
   Sel aktif. Nilai = strPath
   Akhir Sub

   Lakukan penyesuaian ini jika perlu. Ini adalah beberapa kode yang sangat berguna

7. Philip

   Saya mendapatkan kesalahan 52 juga

   "UJI DESKTOP" = LOKASI FILE

   Saya mengubah string kode ini (memindahkan tanda kurung) dari bawah dan berhasil

   BERUBAH DARI
   FolderPath = Environ(“userprofile”) & “DesktopTest”

   DIUBAH KE
   FolderPath = Environ(“userprofile” & “DesktopTest”)

8. Bruce P

   Terima kasih banyak. Saya telah menemukan berbagai versi lain dari kode ini, tetapi ini adalah yang pertama yang berfungsi untuk versi Excel saya. Diperlukan untuk menggabungkan lebih dari 30 spreadsheet dan menghemat banyak waktu saya

9. Sumitha

   Saya mendapatkan kesalahan 52 saat menjalankan kode

10. bilal husain

    Terima kasih banyak. Itu sangat membantu. Saya seorang pedagang opsi membutuhkannya untuk menguji ulang hal-hal tersebut. Jadi terima kasih lagi. Beri tahu saya bagaimana saya bisa mengembalikannya kepada Anda

11. Carolyn

    Terima kasih banyak untuk ini. Empat puluh spreadsheet … menjadi satu tanpa menyalin/menempel setiap lembar. Fiuh

12. Peggy

    bagaimana saya bisa menambahkan header di lembar kerja aktif sebelum saya menjalankan kode ini?

13. Nitin Singla

    Saya telah mengikuti instruksi dengan hati-hati tetapi saya mendapatkan kesalahan Nama file buruk 52

14. Michael T

    Kode hebat dan berfungsi. Satu hal yang mungkin membuat orang tersandung. String Filename juga merupakan bagian dari Buku Kerja. Buka Nama File. = perintah. Siapa pun yang memiliki masalah dengan variabel Filename harus mencoba mengganti nama string menjadi sesuatu yang lain untuk menghindari masalah. Setidaknya apa yang harus saya lakukan agar ini berfungsi dengan baik untuk saya

    • Sumitha

      Saya mengalami masalah nama file

15. Aditi Jain

    sangat menyenangkan. bekerja luar biasa

16. ahmed

    Nama file = Dir(FolderPath & “*. xls*”)

17. ahmed

    Maaf tidak bekerja untuk saya, beri saya kesalahan pada file dir

18. RS

    Tidak dapat menggabungkan beberapa file… tidak ada kesalahan yang ditampilkan, dapatkah kami mengirimkan file sampel kepada Anda-silakan bagikan id email Anda

19. Raphael

    Bekerja untuk saya. Terima kasih banyak. menghemat banyak waktu saya untuk proyek kerja. Terima kasih banyak telah mengunggah

20. Simon akan

    Seperti banyak orang di utas ini, ini tidak berhasil untuk saya – sarankan ini dihapus sebagai pemborosan waktu yang berharga

21. Jackie

    Itu bekerja luar biasa. Terima kasih terima kasih terima kasih

22. GG

    Banyak terima kasih bekerja dengan sempurna. Anda menghemat waktu saya

23. Nadia

    Hai, bagaimana cara menggabungkan lembar kerja pertama dari beberapa buku kerja Excel dalam folder tertentu ke dalam satu buku kerja Excel?

24. Tracy

    Saya telah menggunakan kode ini tetapi membuat banyak tab untuk lembar dengan nama yang sama seperti Nama (1);

    Solusi apa pun

25. Mujaz

    Saya mendapatkan Run-time error Bad file name or number
    Saya telah menggunakan jalur “H. Seprai”
    Mohon saran

    • Mya

      Hapus

26. rj

    itu tidak berhasil, ini kembali sebagai kesalahan
    Nama file = Dir(FolderPath & “*. xls*”)

    • HO CHI WAI

      sudahkah anda memecahkan kasus ini?

    • Aditi Jain

      coba letakkan "" di ujung jalur folder (perhatikan bahwa di dos, antara nama file dan direktori harus ada tanda ""

27. Ingin tahu

    Saya ingin menggabungkan lembar waktu individual menjadi satu file master, tetapi t/s dilindungi. Apakah saya masih bisa memasukkan data dan menyimpannya?

28. Varun

    Saya mendapatkan debug dalam nama file. Tolong bantu aku

    • Soham

      Hapus Lingkungan ("profil pengguna") & dari kode Anda. Ini hanya memberi tahu VBA untuk pergi ke folder di bawah pengguna Anda. Tetapi jika Anda sudah memiliki sesuatu seperti “C. UsersVarunDocuments” di jalur folder, ini akan membuang kesalahan yang Anda dapatkan

29. Saud khan

    Bagus sekali

    Apakah mungkin memberi nama sheet sesuai dengan nama filenya?

    • Varun

      Hai, saya mendapatkan debug di Filename
      Bisakah kamu membantuku ?

30. Hritik

    Hai, saya punya banyak buku kerja dan saya ingin menggabungkan setiap lembar kedua dari buku kerja menjadi satu

31. krunal

    Terima kasih atas tip ini Sumi…………

    Tapi itu membuat banyak sub lembar dari banyak file .. apa yang harus dilakukan jika kita membutuhkan semua banyak file menjadi hanya satu sub lembar dan saya juga ingin salinan data harus berurutan

32. Priti

    Tidak bekerja untuk saya. Saya mengikuti semua langkah yang disebutkan di atas

    • shri

      hanya kantor WPS

    • shri

      maaf saya cuma mau bilang. Gunakan Kantor WPS

33. Aron

    kesalahan 1004
    metode 'salinan' objek '_lembar kerja' gagal

    Debug =

    Lembaran. Salin Setelah. = Buku Kerja Ini. Lembar(1)

    • Jahan

      Masalah yang sama dengan saya

34. Raza

    tidak bekerja pengkodean ini,
    kesalahan pada
    Nama file = Dir(FolderPath & “*. xls*”)
    tolong selesaikan masalah ini

    • Varun

      Saya mendapatkan kesalahan yang sama

    • Konark Desai

      Saya menggunakan " " dan memasuki jalur folder tempat file tersebut berada di dalam kutipan dan itu berhasil untuk saya

35. Rohiet Kumar

    Hai, saya butuh bantuan dalam mengembangkan alat kepunahan. Dimana 80 Persen bisa dilakukan melalui rumus. Sedikit saya butuh bantuan untuk hal-hal yang tersisa. Akan menghargai bantuan Anda

36. Yaniv

    tidak bekerja 🙂
    membutuhkan dukungan yang cerdas

    • Rohiet Kumar

      Saya membuat alat estimasi. Metode pertama berhasil, tetapi itu tidak dinamis
      Saya ingin daftar disegarkan jika file baru ditambahkan ke folder

37. lina

    Terima kasih banyak. Menghemat banyak waktu

38. tom

    Super
    Menghemat banyak waktu

39. Tarun

    hai, bisakah saya memperbarui lembar log harian / lembar penggunaan bahan, lembar gudang, dan menggabungkannya menjadi 1 untuk KPI?

40. NADER HAERI

    Halo Sumut
    Itu tidak bekerja untuk saya setelah memeriksa F5 saya mendapat ERE "NAMA FILE BURUK"
    Seperti yang saya lihat, jumlah orang di sini memiliki ERE yang sama, tolong jelaskan alasannya

41. Chams

    Bagaimana dengan menyalin lembar berbeda dari file excel berbeda ke satu lembar dengan menambahkan data baru ke yang lama?

42. Tammy Davis

    Terima kasih banyak untuk kode VBA ini. Penghemat waktu yang luar biasa

43. Prabhjeet Singh

    Hai, saya harus menyalin 4 lembar dari file excel yang berbeda dalam satu excel
    Nama Excel di mana saya harus menyalin data saya = Ringkasan

    Salinan data dari excel yang tercantum di bawah ini
    Excel 1= Pencadangan Log Pekerjaan CCAP ASE Los Angeles 15-11-18
    Excel 2= Pencadangan Log Pekerjaan Anaheim CCAP ASE 15-11-18
    Excel 3= Pencadangan Log Pekerjaan BAY-CCAP ASE Utara 15-11-18
    Excel 4= Pencadangan Log Pekerjaan CCAP ASE San Diego 15-11-18

    Sekarang dari setiap file, saya harus menyalin hanya 1 lembar. nama lembar disebutkan di bawah ini
    Excel 1 nama lembar = LA
    Excel 2 nama lembar = Anaheim
    Excel 1 nama lembar = SD
    Excel 1 nama lembar = BayNorth

    Tolong bantu saya harus mengirimkan laporan ke manajer saya

44. Keith

    Saya memiliki lebih dari 2000 file untuk digabungkan. Saya melakukan uji coba 100 dan hasilnya adalah sampah

    • Alberto C

      Apakah Anda pernah menemukan solusi?

45. prerna

    cara menggabungkan tiga workbook dalam satu workbook dengan mudah dan cepat

46. Kaushik

    Saya mendapatkan error menyebutkan Run time error 52. Nama atau nomor file salah. Untuk informasi Anda, saya telah menyimpan file di Desktop saya dengan nama folder sebagai Test. Tolong sarankan

47. Sneha

    Saya mendapatkan kesalahan sebagai nama file yang buruk, dapatkah seseorang membantu saya dengan kesalahan ini, akan sangat berterima kasih

48. Lisa

    Itu tidak berfungsi untuk saya, saya memiliki "nama atau nomor file yang buruk". apakah Anda tahu cara memperbaikinya?

49. umar gillani

    bermanfaat

50. Resi Raj Gautam

    sangat bermanfaat, saya sangat menyukainya

51. sheetz

    Ketika saya menekan f5, tidak ada yang terjadi -. adakah yang bisa membantu?

52. Aly June

    Mencoba dengan file CSV. =) akan memberi tahu Anda

53. Malam ini saya suarez

    Saya punya pertanyaan. Misalkan saya harus menggabungkan 652 buku kerja menjadi satu. Nama filenya adalah 1. xlsx ke 652. xlsx dan saya ingin menggabungkannya dalam urutan menaik dari nama file mereka saja. Apakah kode ini akan menggabungkannya sesuai dengan nama yang diurutkan di folder atau tidak ??

54. sid kumar

    Hai Sumit, butuh bantuan Anda dengan makro di atas

    Ini berfungsi baik jika Anda ingin menggabungkan beberapa lembar dalam 1 buku kerja

    Saya butuh solusi di mana langkah-langkah berikut perlu dilakukan

    1. Ada sekitar 4000 karyawan dan buku kerja akan sesuai dengan kode masing-masing karyawan
    2. Ada 18 folder berisi buku kerja dengan 1 lembar kerja untuk setiap karyawan. ada kemungkinan bagi seorang karyawan salah satu buku kerja tidak akan ada
    3. Makro harus membuat buku kerja dengan kode emp kemudian di 18 folder harus memeriksa apakah buku kerja tersedia untuk ID karyawan dan jika ya
    4. Salin dan tempel di buku kerja yang dibuat dan simpan
    5. Selain itu ada 3 buku kerja secara default yang perlu ditambahkan untuk semua karyawan

    Apa yang saya tidak tahu untuk mengedit makro di atas adalah

    1. Bagaimana cara membuat loop For untuk daftar karyawan
    2. Jika tidak ada buku kerja excel khusus di salah satu folder maka seharusnya tidak ada kesalahan

    Tolong bantu. Saya juga dapat berkomunikasi dengan id email resmi Anda dan akan senang jika Anda dapat memberikan solusi secepatnya meskipun dikenakan biaya

    Salam

55. Jon Standing

    Terima kasih banyak. Akan lebih baik lagi jika itu menamai lembaran dengan nama file asli

    • Saud

      Ya

56. PailHorse

    Masih bisa digunakan. Anda perlu menempatkan "/" setelah jalur Anda jika Anda menyalinnya

    • Ka

      Terima kasih, ini bekerja bersama dengan menghapus Environ ("userprofile") & segmen kode untuk FolderPath di mana saya dapat menggabungkan 13 file Excel satu lembar yang saya tempatkan di folder uji pada drive jaringan yang dipetakan (contoh. FolderPath = “Z. 20198 – Tes Peserta Pertemuan AUG/”

57. Steve

    Kode ini benar-benar berfungsi untuk saya gunakan di Excel 2016 setelah beberapa percobaan
    Beberapa tips untuk mereka yang kesulitan mendapatkan pesan kesalahan
    1) Kode berfungsi untuk xls dan xlsx, tidak perlu mengubahnya
    2) Kode HANYA berfungsi untuk lembar kerja, coba pindahkan bagan, Anda akan mendapatkan kesalahan. (ada yang tahu bagaimana untuk bergerak bersama-sama?)
    3) Coba 1 atau 2 buku kerja terlebih dahulu untuk melihat apakah itu cocok untuk Anda atau tidak

    Semoga ini membantu Anda semua 🙂

58. Ghulam

    Wow yang pertama benar-benar berhasil. )

59. Jiggs Casey

    Ini tidak berhasil. Ya itu menggabungkan 2 buku kerja, tetapi itu menghancurkan fungsionalitas rumus dalam prosesnya. Sekarang, ini bisa jadi saya membuat beberapa pilihan buruk saat diminta saat makro sedang berjalan. Idk. Contoh. saat makro sedang berjalan, saya mendapatkan beberapa "nama 'daftar penggunaan' sudah ada. Yes to keep no to rename it something else” pesan (sub ‘gunakan daftar’ dengan berbagai nama lain). Dan mengenai formula lain yang dihancurkan, misalnya. ='TAB' sederhana. A1&” “&’TAB’. Jenis rumus A2 sekarang membengkak dengan info direktori file. Jadi terbaca seperti
    =’C. UserEtcpathTAB’. A1&” “&’C. UserEtcpathTAB’. A2
    Yang terakhir bisa saya perbaiki dengan menghapus info direktori file bodoh, formula demi formula. Adapun keseluruhan ya atau tidak untuk mengganti nama hal-hal yang sudah ada… saya bingung

    TL;DR Saya tidak tahu VBA & rumus ini tidak berfungsi dalam skenario saya

60. Slamat Ale

    Sumit Bansal Anda Rock <3

61. J2

    Terima kasih telah memposting ini. Saya mendapatkan "Run-time error '52'. Nama atau nomor file buruk” – ada yang tahu bagaimana saya bisa mengatasinya?

    • pon

      mengubah. xls ke. xl
      Saya menghapus "lingkungan" juga

62. Akbar Mahfuz alam

    Perlu banyak file menjadi satu lembar tunggal

63. Benyamin Leung

    Hai, saya bisa membuat skrip di atas berfungsi

    Bagaimana saya bisa memodifikasi skrip ini untuk menggabungkan Lembar dengan nama "Sheet1" dari banyak file menjadi satu file

    • Maria Angelova

      jadi bagaimana Anda akhirnya membuatnya bekerja ???

64. Jordan Christopherson

    Apa yang saya lewatkan? . Nama file = Dir(FolderPath & “*. xlsm*”). Saya mengubahnya menjadi. xlsm untuk Excel 2013 untuk makro

    • Maria Angelova

      Aduh… aku juga

65. Pam

    juga, bisakah saya hanya menggabungkan halaman 1 dari buku kerja untuk digabungkan menjadi satu buku kerja?

66. Pam

    Jika file saya ada di drive jaringan, apakah saya menghapus bagian "Environ" dari FolderPath?

67. CA Rahul Agrawal

    Itu tidak berhasil untuk saya. Saat saya menekan F5…tidak ada kombinasi lembaran. >

68. Lazarus

    Terima kasih atas tipnya
    Saya punya pertanyaan terkait penanganan file dengan makro (*. xlsm) karena kode akan mengambil file-file ini juga selama dijalankan. Sepertinya makro tidak akan disalin bersama dengan lembar kerja dan oleh karena itu beberapa rumus mungkin tidak berfungsi di buku kerja baru

    • Sumut Bansal

      Terima kasih telah berkomentar Lazarus. Kamu benar. Ini tidak akan mengambil makro saat menyalin lembaran

      • Vinay

        apakah ada cara jika beberapa file dapat dikonsolidasikan menjadi satu tab, bukan beberapa tab?

      • Parmendra Nirwal

        Hai Sumit,
        Juga tidak berfungsi untuk saya untuk file "xlsx". Itu menunjukkan debugg di Filename = Dir(FolderPath & “*. xlsx*”). Mohon solusinya. terima kasih

        • Maria Angelova

          Saya mendapatkan kesalahan yang sama…

          • manoj

            Di Sini Ketika Path Di Folder Disalin Itu Harus Mulai Dari "Desktop" & Bukan Sebagai "C. ”

            Jika Perbaiki Ini Maka Secara Otomatis Bekerja Saat menekan "F5"

        • manoj

          Di Sini Ketika Path Di Folder Disalin Itu Harus Mulai Dari "Desktop" & Bukan Sebagai "C. ”
          Jika Perbaiki Ini Maka Secara Otomatis Bekerja Saat menekan F5

69. Anand Kumar

    Terima kasih atas tip ini Sumi…………

    Tapi itu membuat banyak sub lembar dari banyak file… apa yang harus dilakukan jika kita membutuhkan semua banyak file menjadi hanya satu sub lembar…………

    Tolong. Tolong

    • Sumut Bansal

      Halo Anand, Menurut yang saya pahami, Anda ingin menggabungkan semua lembar dari semua buku kerja menjadi satu lembar. Ini mungkin dibatasi oleh jumlah baris dalam lembar kerja. Akan sangat membantu jika Anda dapat membagikan file sampel

      Bagaimana cara menarik data dari beberapa file Excel?

      Gunakan perintah Gabungkan File .

      Pilih Data > Dapatkan Data > Dari File > Dari Folder. .

      Temukan folder yang berisi file yang ingin Anda gabungkan, lalu pilih Buka

      A list of all the files in the folder and subfolders appears in the dialog box. .. .

      Pilih Transform Data di bagian bawah

      Bagaimana cara menarik data dari beberapa lembar kerja di Excel menggunakan makro?

      Re. Cara Menarik Data dari Beberapa Lembar Kerja di Excel . click the button in cell D2 to run the macro. Masukkan nomor baris sel di A1 dan nomor kolom di B1. Misalnya jika Anda ingin mengembalikan entri sel B7, masukkan 7 (untuk baris 7) di A1 dan 2 (untuk kolom B) di B1.

      Bagaimana cara mendapatkan data dari beberapa file Excel menjadi satu menggunakan VBA?

      Buka file Excel tempat Anda ingin menggabungkan lembar dari buku kerja lain dan lakukan hal berikut. .

      Tekan Alt + F8 untuk membuka dialog Makro

      Di bawah nama Makro, pilih MergeExcelFiles dan klik Jalankan

      Jendela penjelajah standar akan terbuka, Anda memilih satu atau lebih buku kerja yang ingin Anda gabungkan, dan klik Buka

      Bagaimana cara menyalin data dari beberapa buku kerja Excel ke yang lain menggunakan makro?

      Menyalin Data dari satu Lembar Kerja ke Lembar Kerja Lain di Excel VBA – Sebuah Contoh .

      Buka buku kerja excel

      Masukkan beberapa data di Sheet1 di A1. B10

      Tekan Alt+F11 untuk membuka Editor VBA

      Sisipkan Modul untuk Sisipkan Menu

      Salin kode di atas dan Tempel di jendela kode

      Simpan file sebagai buku kerja berkemampuan makro

      Tekan F5 untuk menjalankannya