Kopējiet moduļus no vienas darbgrāmatas uz citu, izmantojot Microsoft Excel VBA

Anonim

Izmantojot zemāk esošo makro, varat kopēt moduļus no vienas darbgrāmatas uz citu:

Sub CopyModule (SourceWB kā darbgrāmata, strModuleName kā virkne, _ TargetWB kā darbgrāmata) 'kopē moduli no vienas darbgrāmatas uz citu' piemērs: 'CopyModule darbgrāmatas ("Book1.xls"), "Module1", _ darbgrāmatas ("Book2.xls ") Dim strFolder kā virkne, strTempFile kā virkne strFolder = SourceWB.Path Ja Len (strFolder) = 0 Tad strFolder = CurDir strFolder = strFolder &" \ "strTempFile = strFolder &" ~ tmpexport.bas "On Error Resume Next SourceWB.VBProject .VBComponents (strModuleName) .Export strTempFile TargetWB.VBProject.VBComponents.Import strTempFile Kill strTempFile On Error GoTo 0 End Sub