Cách thêm một module hoặc đoạn code vào một file excel chưa có code (1 người xem)

[vba_gpe]

Gửi anh chị trong diễn đàn
Em có một file Excel trắng trơn (Nghĩa là trong file đó không có đoạn code nào cũng như module nào). Nếu muốn đưa code vào trong file thì phải vào cửa sổ VB -Editor để thêm code vào. (Cách thủ công)

Bây giờ mình có cách nào để mình đưa code (thêm một module) vào file đó mà không cần phải vào cửa sổ Visual basic Editor không? Chỉ cần click hay làm gì đó thì tự động file đó có thêm module với code theo yêu cầu của mình. Em thấy khi mình tiến hành record Macro nó tự động sinh ra một module mới.

Nhờ mọi người đóng góp giúp .
Trân trọng cảm ơn.
Mong nhận được hồi đáp sớm.

 

[vba_gpe]

Chào mọi người.
Trong lúc chờ mọi người giúp đỡ - Em có tìm được một cách để thêm một module vào một file bất kỳ.

Sub CopyOneModule()
Dim FName As String
With Workbooks("Test.xls")
FName = .Path & "\code.txt"
.VBProject.VBComponents("Module1").Export FName
End With
Workbooks("Test1.xls").VBProject.VBComponents.Import FName
End Sub

Với Test.xls : Là workbook source chứa module source
Với Test1.xls : Là workbook đích cần add thêm module
Code.txt chính là code mình add vào.

Em nhờ mọi người đóng góp thêm:
Bây giờ mình muốn thay vì thêm vào module thì ta thêm 1 đoạn code vào workbook (Ví dụ thêm vào đoạn code của sự kiện Workbook Open cho sheet1 của file Test1.xls) thì có làm được không?

Trân trọng cảm ơn mọi người
Nhờ mọi người đóng góp