Bir çalışma kitabındaki tüm makroları başka bir çalışma kitabına nasıl aktarabilirim?

Birden fazla VBA makrosunu bir çalışma kitabından diğerine aktarmanız gerekiyorsa, bunları normalde tek tek kopyalayabilirsiniz; ancak bu işlem oldukça zaman alıcı olabilir. Bu makalede, tüm makroları bir çalışma kitabından diğerine hızlıca nasıl dışa aktaracağınızı ve aynı zamanda bu makro dosyalarını belirli bir klasöre nasıl kaydedeceğinizi öğreneceksiniz.

VBA kodu ile tüm makroları bir çalışma kitabından diğerine aktarma

---

VBA kodu ile tüm makroları bir çalışma kitabından diğerine aktarma

Bir Excel dosyasındaki tüm makro VBA kodlarını başka birine aktarmak için aşağıdaki adımları izleyin:

1. İlk olarak, makroları içeren ve makroların aktarılacağı hedef olan iki çalışma kitabını aynı anda açın. Ekran görüntüsüne bakın:

Office Tab – Tek bir sekmeli pencerede birden fazla Office belgesini açın, okuyun, düzenleyin ve yönetin Office Tab, Microsoft Office uygulamalarında sekmeli tarama, düzenleme ve yönetimi mümkün kılar. Birden fazla belgeyi veya dosyayı tek bir sekmeli pencerede açabilirsiniz—tıpkı Internet Explorer 8/9/10, Firefox ve Google Chrome tarayıcılarını kullanırken yaptığınız gibi.İndirmek ve ücretsiz denemek için tıklayın!

2. ALT + F11 tuşlarına basarak Microsoft Visual Basic for Applications penceresini açın.

3. Ekle > Modül’e tıklayın ve aşağıdaki makroyu Modül penceresine yapıştırın.

VBA kodu: Tüm makroları bir çalışma kitabından diğerine aktarma:

Sub ExportAndImportModule()
Dim xStrSWSName, xSreDWSName As String
Dim xSWS, xDWS As Workbook
xStrSWSName = "old-workbook"
xSreDWSName = "new-workbook"
Dim xFilePath As String
Dim xObjFD As FileDialog
Set xObjFD = Application.FileDialog(msoFileDialogFolderPicker)
 With xObjFD
        .AllowMultiSelect = False
        .Show
        If .SelectedItems.Count > 0 Then
            xFilePath = .SelectedItems.Item(1)
        Else
            Exit Sub
        End If
End With
On Error GoTo Err1
Set xSWS = Workbooks(xStrSWSName & ".xlsm")
Set xDWS = Workbooks(xSreDWSName & ".xlsm")
Set xvbap = xSWS.VBProject
Set xVBC = xvbap.VBComponents
For Each Module In xSWS.VBProject.VBComponents
If Module.Type = vbext_ct_StdModule Then
Module.Export (xFilePath & "\" & Module.Name & ".bas")
xDWS.VBProject.VBComponents.Import (xFilePath & "\" & Module.Name & ".bas")
End If
Next Module
Exit Sub
Err1:
    MsgBox "come to nothing!"
End Sub

Not: Yukarıdaki kodda “eski-çalışma-kitabı” makroları dışa aktarmak istediğiniz çalışma kitabının adıdır ve “yeni-çalışma-kitabı” ise makroları içe aktarmak istediğiniz çalışma kitabıdır. Bu adları kendi adlarınızla değiştirmelisiniz. Her iki çalışma kitabı da xlsmDosya türü olmalıdır.

4. Yukarıdaki kodu yapıştırdıktan sonra, bu kodu çalıştırmak için F5 tuşuna basın; ardından bir Gözat penceresi görüntülenecektir. Dışa aktarılan makro dosyalarını kaydetmek için bir klasör seçin. Ekran görüntüsüne bakın:

5. Ardından Tamam düğmesine tıklayın; böylece tüm makrolar belirttiğiniz çalışma kitabından başka bir Excel dosyasına aktarılmış ve makro dosyaları aynı zamanda ilgili klasöre de kaydedilmiştir. Ekran görüntüsüne bakın:

Not: Bu kod yalnızca normal Modül'deki makroları dışa aktarabilir.