Kopirajte module iz jedne radne knjige u drugu pomoću VBA u programu Microsoft Excel

Anonim

Pomoću dolje navedene makronaredbe možete kopirati module iz jedne radne knjige u drugu:

Sub CopyModule (SourceWB kao radna knjiga, strModuleName kao niz, _ TargetWB kao radna knjiga) 'kopira modul iz jedne radne knjige u drugu' primjer: 'CopyModule Workbooks ("Book1.xls"), "Module1", _ Workbooks ("Book2.xls ") Zatamni strFolder kao niz, strTempFile kao niz strFolder = SourceWB.Path Ako je Len (strFolder) = 0 Tada je strFolder = CurDir strFolder = strFolder &" \ "strTempFile = strFolder &" ~ tmpexport.bas "Uključeno Pogreška Nastavi sljedeći izvorWroctB.P .VBComponents (strModuleName) .Export strTempFile TargetWB.VBProject.VBComponents.Import strTempFile Ubijanje strTempFile pri pogrešci Idi na 0 Kraj Sub