Kopirajte module iz enega delovnega zvezka v drugega z uporabo VBA v programu Microsoft Excel

Anonim

S spodnjim makrom lahko kopirate module iz enega delovnega zvezka v drugega:

Sub CopyModule (SourceWB kot delovni zvezek, strModuleName As String, _ TargetWB As Workbook) 'kopira modul iz enega delovnega zvezka v drugega' primer: 'CopyModule Workbooks ("Book1.xls"), "Module1", _ Workbooks ("Book2.xls ") Zatemni strFolder kot niz, strTempFile kot niz strFolder = SourceWB.Path Če je Len (strFolder) = 0 Potem strFolder = CurDir strFolder = strFolder &" \ "strTempFile = strFolder &" ~ tmpexport.bas "Napaka Nadaljuj Naslednji virWjectB.PB .VBComponents (strModuleName) .Export strTempFile TargetWB.VBProject.VBComponents.Import strTempFile Kill strTempFile On Error GoTo 0 End Sub