1. Visual Basic Düzenleyicisini Açın: Geliştirici sekmesini etkinleştirin ve Visual Basic'i seçin 15.
2. Yeni Modül Ekleyin: Proje penceresinden mevcut çalışma kitabını bulun ve içine yeni bir modül ekleyin 1.
3. Kod Penceresine Gidin: Modülde, sahip olduğunuz kodu yapıştırmanız gereken bir kod penceresi açılacaktır 1.
4. Yol Değişkenini Ayarlayın: Birleştirmek istediğiniz tüm Excel dosyalarının bulunduğu klasör konumuyla yol değişkeninin değerini değiştirin 14.
5. Kodu Çalıştırın: Kodu çalıştırın ve çalışma kitabındaki tüm çalışma sayfalarını geçerli dosyada alın 1.

Dim Path As String, Filename As String, Sheet As Worksheet
Path = "C:UsersDellDesktopsample-data"
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
``` [1](https://exceladvisor.org/tr/calisma-kitaplarini-birlestir/).
Kopyala