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

Popular posts from this blog

wordpress - (T_ENDFOREACH) php error -

Export Excel workseet into txt file using vba - (text and numbers with formulas) -

Using django-mptt to get only the categories that have items -