✔ Programação GLOBAL®: VBA Excel - Copiando o conteúdo de um módulo para outro Workbook - Copy modules from one workbook to another

Então,

Quanto mais códigos e soluções desenvolvemos, maior vai se tornando a nossa biblioteca de funções, procedimentos e classes. Isso é muito bom, pois nos impede de gastarmos muito tempo em questões que já superamos em experiências anteriores.

Como posso copiar o conteúdo de um módulo para outro em outra planilha?

Sub CopyMod (SourceWB As Workbook, strModuleName As String, TargetWB As Workbook)

   ' CopyMod Workbooks("BernardesPlan01.xls"), "mdl_Functions", Workbooks(" BernardesPlan02

.xls")

   Dim strFolder As String, strTempFile As String

   Let strFolder = SourceWB.Path



   If Len(strFolder) = 0 Then strFolder = CurDir



   Let strFolder = strFolder & "\"

   Let 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