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

Eğer bir çalışma kitabından diğerine birden fazla makro VBA kodu aktarmak istiyorsanız, bunları normalde tek tek kopyalayabilirsiniz. Ancak bu zaman alıcı olacaktır. Bu makalede, bir çalışma kitabından tüm makroları hızlıca başka bir çalışma kitabına nasıl aktaracağınızı ve makro dosyalarını belirli bir klasöre kaydedeceğinizi anlatacağım.

VBA kodu ile bir çalışma kitabından tüm makroları başka bir çalışma kitabına aktarma

---

VBA kodu ile bir çalışma kitabından tüm makroları başka bir çalışma kitabına aktarma

Bir Excel dosyasından tüm makro VBA kodlarını başka bir dosyaya aktarmak için lütfen aşağıdaki adımları izleyin:

1. İlk olarak, aynı anda iki çalışma kitabını da açmalısınız; birinde makrolar bulunurken, diğeri ise makroları aktarmak istediğiniz çalışma kitabıdır, aşağıdaki ekran görüntüsüne bakın:

Office Tab - Birden fazla Office belgesini tek bir sekmeli pencerede açın, okuyun, düzenleyin ve yönetin Office Tab, Microsoft Office uygulamalarında sekmeli gezinme, düzenleme ve yönetim sağlar. Birden fazla belgeyi / dosyayı tek bir sekmeli pencerede açabilirsiniz, tıpkı IE 8/9/10, Firefox ve Google Chrome gibi tarayıcıları kullanır gibi. Şimdi tıklayın ve ücretsiz deneme sürümünü indirin!

2. Microsoft Visual Basic for Applications penceresini açmak için ALT + F11 tuşlarına basın.

3. Ekle > Modül seçeneğine tıklayın ve aşağıdaki makroyu Modül Penceresine yapıştırın.

VBA Kodu: Bir çalışma kitabından tüm makroları başka bir çalışma kitabına aktarın:

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, “old-workbook” aktarmak istediğiniz makroların bulunduğu çalışma kitabının adıdır ve “new-workbook” ise makroları içe aktarmak istediğiniz çalışma kitabıdır. İsimleri kendi isimlerinizle değiştirmelisiniz. İki çalışma kitabı da xlsm dosya formatında olmalıdır.

4. Yukarıdaki kodu yapıştırdıktan sonra, kodu çalıştırmak için F5 tuşuna basın ve bir Gözat penceresi açılacaktır, lütfen dışa aktarılan makro dosyalarını koymak için bir klasör seçin, aşağıdaki ekran görüntüsüne bakın:

5. Ardından Tamam düğmesine tıklayın ve tüm makrolar belirtilen çalışma kitabınızdan başka bir Excel dosyasına aktarılacak ve makro dosyaları ayrıca belirli bir klasöre kaydedilecektir. Aşağıdaki ekran görüntüsüne bakın:

Not: Bu kod yalnızca normal Modülden makroları aktarabilir.