Có thể xóa một Module bằng Macro(VBA) không? (1 người xem)

[ontopoftheworld]

Mình có thể xóa một Module bằng Macro hay VBA được không các Bác.
Em thấy GPE có đề cập tới việc đóng cửa sổ VBE bằng VBA, thì chắc có thể xóa một Module mình muốn nhỉ???
Bác nào có thể giúp em dzụ này được không ạ??
Em cám ơn các Bác nhiều.

 

[LearnMore]

Bạn dùng cái này nè:

Sub DeleteThisModule()
Dim vbCom As Object
MsgBox "Xoa Module a nha! "
Set vbCom = Application.VBE.ActiveVBProject.VBComponents
vbCom.Remove VBComponent:= vbCom.Item("Module1")

End Sub

LM

 

[anhtuan1066]

Cái này chạy báo lổi tại dòng
Set vbCom = Application.VBE.ActiveVBProject.VBComponents
Tại sao vậy?
ANH TUẤN

 

[ontopoftheworld]

Em mới vào google kiếm thử cũng có, nhưng "ta về ta tắm ao ta, dù trong dù đục ao nhà vẫn hơn".hì, các bác cho em vài đoạn tham khảo đi.
Cám ơn các bác.

 

[SoiBien]

Cái này chạy báo lổi tại dòng
Set vbCom = Application.VBE.ActiveVBProject.VBComponents
Tại sao vậy?
ANH TUẤN

Tại menu Tools của VBA
Anh vào mục Reference

Anh check coi có bị dòng này Missing : Microsoft Visual Basic for Applications Extensibility x.x không?
Nếu có thì anh uncheck nó, rồi tìm cái tên tương tự trong list (khác Version)

 

[dat2007]

Nguyên văn bởi anhtuan1066
Cái này chạy báo lổi tại dòng
Set vbCom = Application.VBE.ActiveVBProject.VBComponents
Tại sao vậy?
ANH TUẤN

Bạn xử lý như sau:

Trong Excel vào Tools -> Macro -> Security -> Trusted Publishers rồi Check vào mục Trust Access to Visual basic Project

 

[ontopoftheworld]

Bạn xử lý như sau:

Trong Excel vào Tools -> Macro -> Security -> Trusted Publishers rồi Check vào mục Trust Access to Visual basic Project

Nhưng nó thông báo:

Object doesn't support this property or method

Phải xử lý ra sao ạ??

 

[nvson]

To ontopoftheword:
Bạn tìm kiếm trước khi post bài nhé. Chủ để này đã được thảo luận tại đây rồi!

 

[dat2007]

Bạn thử dùng đoạn Code này xem sao:

Sub RemoveModule()
With Application.ActiveWorkbook
.VBProject.VBComponents.Remove .VBProject.VBComponents("Module1")
.Save
End With
End Sub