Kopiuj moduły z jednego skoroszytu do drugiego za pomocą VBA w programie Microsoft Excel

Anonim

Za pomocą poniższego makra możesz kopiować moduły z jednego skoroszytu do drugiego:

Sub CopyModule(SourceWB As Workbook, strModuleName As String, _ TargetWB As Workbook) ' kopiuje moduł z jednego skoroszytu do drugiego ' przykład: ' CopyModule Workbooks("Book1.xls"), "Module1", _ Workbooks("Book2.xls ") Dim strFolder As String, strTempFile As String strFolder = SourceWB.Path If Len(strFolder) = 0 Then strFolder = CurDir strFolder = strFolder & "\" strTempFile = strFolder & "~tmpexport.bas" W przypadku błędu Wznów następny SourceWB.VBProject .VBComponents(strModuleName).Export strTempFile TargetWB.VBProject.VBComponents.Import strTempFile Kill strTempFile On Error GoTo 0 End Sub