Code vba xóa file có đuôi .xla (2 người xem)

[nguyenkhoadng]

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!

 

[Quang_Hải]

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

 

[nguyenkhoadng]

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

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!

 

[Quang_Hải]

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.

 

[nguyenkhoadng]

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.

Cảm ơn anh!

code anh giúp em xóa được menu add-ins trên thanh menu nhưng không xóa được file gốc có đuôi .xla tại nơi lưu file anh ah.
nhờ anh xem lại giúp em với.
em cảm ơn!

 

[Quang_Hải]

Cảm ơn anh!

code anh giúp em xóa được menu add-ins trên thanh menu nhưng không xóa được file gốc có đuôi .xla tại nơi lưu file anh ah.
nhờ anh xem lại giúp em với.
em cảm ơn!

Anh em nào test thử xem code có xóa mất cái addin gốc không. Trên máy mình thì nó xóa mất tiêu.

 

[Kiều Mạnh]

Anh em nào test thử xem code có xóa mất cái addin gốc không. Trên máy mình thì nó xóa mất tiêu.

xoá tốt...ngoài ra còn dùng để cài đạt Add-ins đó vào hay thoát rất hay...Add-ins dấu một nơi nào đó thì nó cũng Installed = 1 vào mới hay chứ
hình như nó hiểu mặc định cái Add-ins đó hay sao ý

 

[nguyenkhoadng]

Cảm ơn các anh!
Lúc đầu em đặt code trong add-ins nên ko xóa đc. giờ thì đã ổn.
Một lần nữa cảm ơn anh quanghai1969 đã giúp em đoạn code này.
Chúc các anh trên GPE một mùa giáng sinh thật ấm áp!