Antes de continuar, um pequeno parênteses, deixe seus comentários para este post.
Bem, introdução à parte, o código abaixo permite que migre todo o conteúdo de um workbook para outro. Siga a sintaxe:CopyModule Workbooks ("Bernardes_Plan01.xlsb"), "mdl_Navigation_Functions", Workbooks ("Bernardes_Plan0.xlsb")
Sub CopyModule (SourceWB As Workbook, strModuleName As String, _TargetWB As Workbook)Dim strFolder As String, strTempFile As String
Let strFolder = SourceWB.PathIf Len(strFolder) = 0 Then Let strFolder = CurDirLet strFolder = strFolder & "\"Let strTempFile = strFolder & "~tmpexport.bas"On Error Resume NextSourceWB.VBProject.VBComponents(strModuleName).Export strTempFileTargetWB.VBProject.VBComponents.Import strTempFileKill strTempFileOn Error GoTo 0End Sub
Nenhum comentário:
Postar um comentário