Microsoft Excel'de VBA kullanarak modülleri bir çalışma kitabından diğerine kopyalayın

Anonim

Aşağıdaki makro ile modülleri bir çalışma kitabından diğerine kopyalayabilirsiniz:

Sub CopyModule(SourceWB As Workbook, strModuleName As String, _ TargetWB As Workbook) ' bir modülü bir çalışma kitabından diğerine kopyalar ' örnek: ' CopyModule Workbooks("Book1.xls"), "Module1", _ Workbooks("Book2.xls ") Dim strFolder As String, strTempFile As String strFolder = SourceWB.Path Eğer Len(strFolder) = 0 O zaman strFolder = CurDir strFolder = strFolder & "\" strTempFile = strFolder & "~tmpexport.bas" Sonraki Kaynak Hata.VB .VBComponents(strModuleName).Export strTempFile TargetWB.VBProject.VBComponents.Import strTempFile Hatada strTempFile Kill GoTo 0 End Sub