Skopírujte moduly z jedného zošita do druhého pomocou jazyka VBA v programe Microsoft Excel

Anonim

V nižšie uvedenom makre môžete kopírovať moduly z jedného zošita do iného:

Sub CopyModule (SourceWB As Workbook, strModuleName As String, _ TargetWB As Workbook) 'kopíruje modul z jedného zošita do druhého' príklad: 'zošity CopyModule ("Book1.xls"), "Module1", _ zošity ("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 "On Error Resume Next SourceWB.VBProject .VBComponents (strModuleName). Export strTempFile TargetWB.VBProject.VBComponents.Import strTempFile Zabiť strTempFile pri chybe GoTo 0 End Sub