Code vba xóa file có đuôi .xla

Chào các anh trên VBA!
Nhờ các anh giúp em 1 đoạn code vba cho chức năng xóa file add-ins. ở đây em muốn tìm đến vị trí add-ins đó và xóa chứ không phải chỉ xóa trên thanh menu.
Em cảm ơn!
Chúc các anh chủ nhật may mắn!

Coi chừng code xóa sạch mấy cái addin của bạn nha.
Xây thì khó, chứ phá thì nhanh lắm.

Sub FindAddInToKill()
On Error Resume Next
Dim fs As Object
Dim Addin As Object, Str As String
Set fs = CreateObject("scripting.filesystemobject")
For Each Addin In Application.AddIns
If fs.GetExtensionName(Addin.Name) = "xla" Then
Str = fs.getbasename(Addin.FullName)
Application.AddIns(Str).Installed = 0
Kill Addin.FullName
End If
Next
End Sub

www.giaiphapexcel.com/diendan/threads/code-vba-x%C3%B3a-file-c%C3%B3-%C4%91u%C3%B4i-xla.100029/

Em cảm ơn anh đã giúp!
Để tránh trường hợp code xóa hết tất cả add-ins, ở đây có thể đưa tên add-ins cụ thể để code tìm xóa được không anh?
Ví dụ như em có 1 add-ins tên vidu.xla đã được add vào MS-excel. giờ muốn code tự tìm tên add-ins vidu.xla và xóa nó đi thì phải thay đổi trong code như thế nào anh?
em cảm ơn anh!

Thử sửa dòng này
If fs.GetExtensionName(Addin.Name) = "xla" Then
Thành
If Addin.Name = "vidu.xla" Then

Nếu đã biết tên addin thì xóa tay cho nhanh.

Khóa học SprinGO phù hợp

Học Nhân sự Tổng hợp – Trở thành chiến binh nhân sự vững nghiệp vụ

Con người là một trong những yếu tố quan trọng của công ty, là tài sản quý giá của doanh nghiệp. Chính vì thế,...

Xem khóa học