Copy code vào file!

[ThuNghi]

Tôi có 1 file A có code taoBaoCao()
Tôi muốn đưa code này vào từng file trong cùng thư mục: file01, file02...
Thay vì phải mở từng file và import.
Xin cám ơn!

 

[sealand]

Bạn mở nhiều file vào VBA mà chép dán

 

[levanduyet]

Tôi có 1 file A có code taoBaoCao()
Tôi muốn đưa code này vào từng file trong cùng thư mục: file01, file02...
Thay vì phải mở từng file và import.
Xin cám ơn!

_ Mục đích của anh là gì? Nếu chỉ để sử dụng lại các đoạn code thì anh có thể reference đến file này.
_ Đây quả là yêu cầu hơi đặc biệt của anh, vậy chắc anh phải tự viết thôi!

Lê Văn Duyệt

 

[thehungqnu]

Theo mình nghỉ A Thu Nghi xuất code thành Add-Ins tiện hơn

 

[voda]

ThuNghi dùng thử đoạn code sau:

Sub CopyModule()
On Error Resume Next
Dim FolderName As String, wbName As String
FolderName = ActiveWorkbook.Path
wbName = Dir(FolderName & "\" & "*.xls")
Application.ScreenUpdating = False
      While wbName <> ""
            If wbName <> "Tonghop.xls" Then
                   ThisWorkbook.VBProject.VBComponents("Module1").Export "Module1.bas"
                   Workbooks.Open ActiveWorkbook.Path & "\" & wbName
            With Workbooks(wbName).VBProject
                        .VBComponents.Import "Module1.bas"
                        .VBComponents("Module1").Name = "MyModule"
            End With
        Application.DisplayAlerts = False
        Workbooks(wbName).Close SaveChanges:=True
            End If
            wbName = Dir
      Wend
Kill "Module1.bas"
Application.ScreenUpdating = True
End Sub