Copy Module/Sub sang 1 tập tin khác bằng vba?

One Response

1. hands says:

   18/01/2023 at 12:31 pm

   Xin chào huuthang_bd,
   Cảm ơn anh đã giúp đỡ, Oanh Thơ test thử với một tập tin có một module thì OK rồi anh ạ, nhưng nếu tập tin có 2 module thì muốn copy module nào đó sang tập tin khác thì gặp vấn đề, Oanh Thơ đã loay hoay nhưng chưa xử lý được.

   Nhờ anh và các bạn khác xem giúp ạ.

   Copy module. Cái module trong file khác mới module bình thường nhé.

   Xin chào huuthang_bd,
   Tập tin anh gửi OK rồi ạ.
   ——–

   Oanh Thơ cũng đã tạo thêm 1 "module 3" và tạo thêm 1 CommandButton3 trên UserForm1
   Trong UserForm1 oanh Thơ cũng đã thêm 1 đoạn code :

   Private Sub CommandButton3_Click()
   'On Error Resume Next
   Dim WB As Workbook
   Set WB = Workbooks(Me.ComboBox1.Value)
   If Not WB Is Nothing Then
       Sheets("Module3").Copy WB.Sheets(1)
   End If
   Unload Me
   End Sub

   Khi chạy đoạn code này code vẫn báo lỗi.
   Oanh Thơ cũng có để ý "Cái module trong file khác mới module bình thường nhé" nhưng chưa hiểu ạ.
   Nhờ anh có thể giải thích thêm điểm khác biệt này được không ạ.

   Cảm ơn anh rất nhiều.

   Đơn giản, ngắn gọn thế này nhé:
   Sub Test()
   ThisWorkbook.VBProject.VBComponents("module2").Export "NguyenHoangOanhTho"
   Workbooks("Book1.xlsm").VBProject.VBComponents.Import "NguyenHoangOanhTho"
   End Sub
   Chỗ màu đỏ: Tên Module cần copy
   Chỗ màu xanh: Tên Workbook nơi copy đến
   Từ cái đơn giản này, hãy tùy biến thêm, chẳng hạn có thể tạo luôn thành 1 function hay sub có đối số truyền vào để gọi code cho nhanh
   —————————–

   Nhân tiện bạn tự suy nghĩ thêm tại sao lại có chỗ màu xanh lá kia? (tên bạn viết vào code chạy được luôn?)

   Module đó không giống như các module thông thường. Nó có một số thuộc tính như một sheet, trong code bạn cũng thấy copy bằng lệnh Sheets(…).Copy. Và nó được tạo bằng code sau:
   Sub CreateModuleSheet()
   ActiveWorkbook.Modules.Add.Name = "ModuleSheet"
   End Sub
   Vì nó như một sheet nên khi copy không gặp các rắc rối như khi thao tác với code VBA như "Trust access to the VBA…", VBA bị khóa,…

   Reply