PERSONAL.XLSB에서 새 통합 문서로 시트 코드 모듈 복사

Question

코드 모듈과 userforms를 PERSONAL.XLSB에서 새 통합 문서로 복사하려고 시도하는 코드를 작성하고 있습니다. 코드를 PERSONAL.XLSB! Sheet1에서 새 통합 문서 Book1.xlsx! Sheet1로 복사해야합니다. 코드는 오류없이 실행되지만 코드는 복사하지 않습니다. Book1.xlsx! Sheet1은 여전히 ​​비어 있습니다. 어떤 도움이라도 대단히 감사합니다.

Private Sub Workbook_FollowHyperlink(ByVal Target As Hyperlink) 

    If Target.TextToDisplay = "Click to Run Hello World" Then 
     Run HelloWorld 
    End If 

End Sub 

코드 복사 PERSONAL.XLSB으로 Module1의 매크로 : 작업 주위의

Sub CodeCopy() 

'Macro to copy the macro module from PERSONAL.XLBS!Sheet1 to Test.xls!Sheet1. 

Dim i   As Integer 
Dim NewSh  As Worksheet 
Dim SrcCmod As VBIDE.CodeModule 
Dim DstCmod As VBIDE.CodeModule 

Set SrcCmod = Workbooks("PERSONAL.XLSB").VBProject.VBComponents("Sheet1").CodeModule 
Set DstCmod = Workbooks("Book1.xlsx").VBProject.VBComponents("Sheet1").CodeModule 

For i = 1 To SrcCmod.CountOfLines 
    DstCmod.InsertLines i, SrcCmod.Lines(i, 1) 
Next i 

End Sub 

Answer 1

생각 - 새 통합 문서에 단순히 복사 PERSONAL.XLSB Sheet1에!를!. 포함 된 코드도 복사됩니다.

Sub CopySheetCode() 

    Dim CurrentSheet As Worksheet 

    Windows("PERSONAL.XLSB").Activate 
    Worksheets("Sheet1").Copy Before:=Workbooks("Book1.xlsx").Sheets(1) 

End Sub