Views

Histats

Vitrine

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.
Skype: inanyplace 

LinkWithinBrazilVBAExcelSpecialist

Related Posts Plugin for WordPress, Blogger...