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 

✔ VBA Brazil®

✔ VBA Brazil®
brazilsalesforceeffectiveness@gmail.com
Related Posts Plugin for WordPress, Blogger...
diHITT - Notícias