Code copy modul sang workbook mới (1 người xem)

[nguyenkhoadng]

Chào các anh!

Em đang dùng đoạn code bên dưới để khi tạo 1 file excel mới từ file gốc thì code sẽ copy Modul1 sang file excel mới mà em vừa tạo.
Nhưng giới hạn của đoạn code chỉ khi tạo file mới với tên "FileMoi.xls" thì mới copy modul1 được, còn nếu lưu file mới tạo với 1 tên khác thì sẽ không copy modul 1 được.

Nay em nhờ các anh giúp sao cho khi tạo file mới với bất kỳ tên gì thì đoạn code vẫn copy modul1 đến file mình mới vừa tạo.

Em cảm ơn!

Sub CopyModul()


Dim FName As String
WbN = ThisWorkbook.Name
With Workbooks(WbN)
FName = .Path & "code.txt"
.VBProject.VBComponents("Modul1").Export FName
End With
Workbooks("FileMoi.xls").VBProject.VBComponents.Import FName


End Sub

 

[Kiều Mạnh]

Chào các anh!

Em đang dùng đoạn code bên dưới để khi tạo 1 file excel mới từ file gốc thì code sẽ copy Modul1 sang file excel mới mà em vừa tạo.
Nhưng giới hạn của đoạn code chỉ khi tạo file mới với tên "FileMoi.xls" thì mới copy modul1 được, còn nếu lưu file mới tạo với 1 tên khác thì sẽ không copy modul 1 được.

Nay em nhờ các anh giúp sao cho khi tạo file mới với bất kỳ tên gì thì đoạn code vẫn copy modul1 đến file mình mới vừa tạo.

Em cảm ơn!

Sub CopyModul()


Dim FName As String
WbN = ThisWorkbook.Name
With Workbooks(WbN)
FName = .Path & "code.txt"
.VBProject.VBComponents("Modul1").Export FName
End With
Workbooks("FileMoi.xls").VBProject.VBComponents.Import FName


End Sub

Bạn Thử sửa lại tên này thành tên mới xem sao

("FileMoi.xls")

 

[huuthang_bd]

Bạn Thử sửa lại tên này thành tên mới xem sao

("FileMoi.xls")

Người ta muốn copy sang bất kỳ file nào mà. Đâu thể để cố định một tên như vậy được.

Chào các anh!

Em đang dùng đoạn code bên dưới để khi tạo 1 file excel mới từ file gốc thì code sẽ copy Modul1 sang file excel mới mà em vừa tạo.
Nhưng giới hạn của đoạn code chỉ khi tạo file mới với tên "FileMoi.xls" thì mới copy modul1 được, còn nếu lưu file mới tạo với 1 tên khác thì sẽ không copy modul 1 được.

Nay em nhờ các anh giúp sao cho khi tạo file mới với bất kỳ tên gì thì đoạn code vẫn copy modul1 đến file mình mới vừa tạo.

Em cảm ơn!

Sub CopyModul()


Dim FName As String
WbN = ThisWorkbook.Name
With Workbooks(WbN)
FName = .Path & "code.txt"
.VBProject.VBComponents("Modul1").Export FName
End With
Workbooks("FileMoi.xls").VBProject.VBComponents.Import FName


End Sub

Bạn thử file này xem.

 

[nguyenkhoadng]

Cảm ơn các anh đã hỗ trợ!
Em sửa như bên dưới và thấy có vẻ ổn.

Sub CopyModule()


Dim FName As String
Wb = ActiveWorkbook.Name
WbN = ThisWorkbook.Name
With Workbooks(WbN)
FName = .Path & "code.txt"
.VBProject.VBComponents("Module1").Export FName
End With
Workbooks(Wb).VBProject.VBComponents.Import FName
Kill FName
End Sub