Cần viết Code copy 2 cái Module của File A rồi paste lần lượt sang 2 File B và C (1 người xem)

[hung2412]

Xin chào các Anh chị và các bạn GPE!
Nhờ các Anh chị và các bạn giúp đỡ cho tôi vấn đề này với, cụ thể như sau:
Tôi có 3 File Excel là A, B và C.
Trong đó:
- File A có 2 Module tên là Tonghop1 và Tonghop2.
- File B và C không có Module nào cả.
Để Copy 2 cái Module tên là Tonghop1 và Tonghop2 của File A sang File B và C tôi làm thủ công như sau:
- B1: Tôi vào lần lượt từng File B và C rồi Insert 2 cái Module.
- B2: Đặt tên lần lượt 2 cái Module đó thành Tonghop1 và Tonghop2 ở cả 2 File B và C.
- B3: Sang File A rồi Copy lần lượt Code của 2 Module là Tonghop1 và Tonghop2 sang File B và C tương ứng.
=> Vấn đề được đặt ra ở đây là: Có Code nào tự động Copy 2 cái Module là Tonghop1 và Tonghop2 của File A rồi paste sang File B và C mà không phải làm thủ công không?
Note: 3 File A, B và C chỉ là tên File ví dụ minh họa.
Mong các Anh chị và các bạn GPE chỉ giáo!
Trân trọng cảm ơn!

 

[hung2412]

Chắc là đề tài này không thể thực hiện được.

 

[hung2412]

Có anh chị nào biết được cái này thì chỉ cho tôi với ạ.

 

[nmhung49]

Có anh chị nào biết được cái này thì chỉ cho tôi với ạ.

Vào mục này
Excel --> Option -->Trust Center-->Trust Center Setting-->Macro setting
check vào
Trust access to the VBA project model.
rồi chạy code này nằm ở file A cùng module của nó bạn tự đổi tên
[GPECODE=vb]
[/GPECODE][GPECODE=vb]Sub CopyModule()
ThisWorkbook.VBProject.VBComponents("Tonghop1").Export "Tonghop1.bas"
With Workbooks("B.xls").VBProject
.VBComponents.Import "Tonghop1.bas"
End With
Kill "Tonghop1.bas"
End Sub
[/GPECODE]