Kopeerige moodulid ühest töövihikust teise, kasutades Microsoft Excelis VBA -d

Anonim

Alloleva makro abil saate mooduleid ühest töövihikust teise kopeerida:

Sub CopyModule (SourceWB kui töövihik, strModuleName nagu string, _ TargetWB kui töövihik) 'kopeerib mooduli ühest töövihikust teise' näide: 'CopyModule'i töövihikud ("Book1.xls"), "Module1", _ Töövihikud ("Book2.xls ") Dim strFolder stringina, strTempFile Stringina strFolder = SourceWB.Path Kui Len (strFolder) = 0 Siis strFolder = CurDir strFolder = strFolder &" \ "strTempFile = strFolder &" ~ tmpexport.bas "Viga Jätka järgmine allikasWB.VBProject .VBComponents (strModuleName) .Export strTempFile TargetWB.VBProject.VBComponents.Import strTempFile Kill strTempFile On Error GoTo 0 End Sub