excel vba - Copy VBA code from a Sheet in one workbook to another? -
i've been using lines below compy vba modules 1 workbook , don't know if there easier way, have been working fine:
set srcvba = srcwbk.vbproject set srcmodule = srcvba.vbcomponents(modulename) srcmodule.export (path) 'export source trgtvba.vbcomponents.remove vbcomponent:=trgtvba.vbcomponents.item(modulename) 'remove target trgtvba.vbcomponents.import (path) 'import target
however need copy vba code in sheet, not in module. above method doesn't work scenario.
what code can use copy vba code in sheet 1 workbook another?
you can't remove , re-import vbcomponent
, since logically delete whole worksheet. instead have use codemodule
manipulate text within component:
dim src codemodule, dest codemodule set src = thisworkbook.vbproject.vbcomponents("sheet1").codemodule set dest = workbooks("book3").vbproject.vbcomponents("thisworkbook") _ .codemodule dest.deletelines 1, dest.countoflines dest.addfromstring src.lines(1, src.countoflines)
Comments
Post a Comment