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

Tags: Bernardes, MS, Microsoft, Office, Excel, copy, module, code, workbook

André Luiz Bernardes

A&A® - Work smart, not hard in any place.

bernardess@gmail.com

Skype: inanyplace 

LinkedIn
Plaxo