Bagaimana cara mengekspor semua makro dari satu buku kerja ke buku kerja lain?

Jika Anda perlu mengekspor beberapa kode vba makro dari satu buku kerja ke yang lain, Anda bisa menyalinnya satu per satu secara normal. Tetapi ini akan memakan waktu, artikel ini, saya akan berbicara tentang cara cepat mengekspor semua makro dari satu buku kerja ke yang lain dan menyimpan file makro ke folder tertentu juga.

Ekspor semua makro dari satu buku kerja ke yang lain dengan kode VBA

---

Ekspor semua makro dari satu buku kerja ke yang lain dengan kode VBA

Untuk mengekspor semua kode vba makro dari satu file Excel ke file Excel lainnya, lakukan dengan langkah-langkah berikut:

1. Pertama, Anda harus membuka dua buku kerja pada saat yang sama, satu berisi makro, yang lain adalah yang ingin Anda ekspor makro, lihat tangkapan layar:

Tab Office-Buka, baca, edit, dan kelola beberapa dokumen Office dalam satu jendela tab Tab Office memungkinkan penjelajahan, pengeditan, dan pengelolaan aplikasi Microsoft Office dengan tab. Anda dapat membuka banyak dokumen / file dalam satu jendela tab, seperti menggunakan browser IE 8/9/10, Firefox, dan Google Chrome. Klik untuk mengunduh dan uji coba gratis sekarang!

2. Tahan ALT + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.

3. Klik Menyisipkan > Modul, dan tempel makro berikut di file Modul Jendela.

Kode VBA: Ekspor semua makro dari satu buku kerja ke yang lain:

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

Note: Pada kode di atas, “buku kerja lama"Adalah nama buku kerja tempat Anda ingin mengekspor makro, dan"buku kerja baru”Adalah buku kerja yang ingin Anda impor makro. Anda harus mengubah nama menjadi milik Anda sendiri. Kedua workbook harus xlsm format file.

4. Setelah paste kode diatas, lalu tekan F5 kunci untuk menjalankan kode ini, dan a Browse jendela ditampilkan, pilih folder untuk meletakkan file makro yang diekspor, lihat tangkapan layar:

5. Lalu klik OK tombol, dan semua makro telah diekspor dari buku kerja yang Anda tentukan ke file Excel lain, dan file makro telah disimpan ke dalam folder tertentu juga. Lihat tangkapan layar:

Note: Kode ini hanya dapat mengekspor makro dari Modul normal.