Board logo

標題: [發問] 如何將增益集的項目完全移除掉? [打印本頁]
作者: PKKO    時間: 2015-11-8 17:23     標題: 如何將增益集的項目完全移除掉?

[attach]22375[/attach]

要如何可以把program這個增益集,透過VBA的方式從清單內刪除,而不是取消打勾而已?


下列程式碼,我只會取消打勾,無法將增益集的項目完全移除掉
  1.     Dim myAddin As Excel.AddIn
  2.     Set myAddin = Application.AddIns.Add(path0 & "Program.xlam", True)
  3.     myAddin.Installed = False
複製代碼
目前問題:
若是增益集檔案的位置移動了,而檔案名稱沒有更改的時候,會無法啟動增益集
自己想的解決方式:
在每次開啟增益集之前先刪除原本的增益集,再加入目前位置的增益集才不會發生此問題,還是大大們有別的解決方式?
作者: GBKEE    時間: 2015-11-9 09:23

本帖最後由 GBKEE 於 2015-11-9 09:26 編輯

回復 1# PKKO


   
program這個增益集,透過VBA的方式從清單內刪除,而不是取消打勾而已

須將program這檔案移開 增益集的資料夾
或 將program這檔案 刪除
2003增益集的資料夾
  1. C:\Program Files\Microsoft Office\OFFICE11\Library\
複製代碼
  1. Sub Ex()
  2.     Dim ad As AddIn
  3.     For Each ad In Application.AddIns
  4.         MsgBox ad.Path '增益集的資料夾
  5.     Next
  6. End Sub
複製代碼
如何移動檔案 請用 vba  的 FileSystemObject 物件
可自行練習
作者: PKKO    時間: 2015-11-9 11:35

回復 2# GBKEE

感謝超版大大的回復

我嘗試過了超版大大的方法,我將增益集的檔案刪除之後

只要開啟excel它就會說找不到增益集,請確認檔案位置等等

我了解移除檔案之後,再用"人工"點選增益集,會出現找不到增益集xxx,您要將它從清單中移除嗎?
但使用者不會去點增益集裡面的這個地方

所以清單中的項目會仍然保留著

因此想請問一下,有沒有程式的方法可以移除掉增益集這個清單呢?

若只是刪除檔案,會變成每次打開都說找不到增益集= =
作者: GBKEE    時間: 2015-11-9 14:33

本帖最後由 GBKEE 於 2015-11-9 14:34 編輯

回復 3# PKKO

2003增益集清單存放的資料夾
  1. C:\Program Files\Microsoft Office\OFFICE11\Library
  2. C:\Program Files\Microsoft Office\OFFICE11\Library\SOLVER
  3. C:\Program Files\Microsoft Office\OFFICE11\LIBRARY\ANALYSIS
複製代碼
你的自訂增益集 需存放 在這些資料夾中.移除或刪除不要的自訂增益集.
請重啟excel 增益集的清單中 ,消除了不要的自訂增益集.
作者: PKKO    時間: 2015-11-9 16:34

回復 4# GBKEE


你的自訂增益集 需存放 在這些資料夾中.移除或刪除不要的自訂增益集.=>我已經將檔案放在增益集的應有位置,然後啟用增益集
因為我的灌在d曹,透過您的程式碼找到位置是:D:\Office\Office14\Library\Analysis

請重啟excel 增益集的清單中 ,消除了不要的自訂增益集.=>這句話不是很懂

我把增益集放在指定位置之後啟動她,然後關閉所有excel,將增益集檔案刪除,再次打開excel它會出現說明找不到增益集xxx,但我點選清單後發現,增益集的清單裡面還是有我自訂的增益集名稱耶
只是沒有勾選而已,但是並沒有被刪除掉
作者: GBKEE    時間: 2015-11-9 19:47

本帖最後由 GBKEE 於 2015-11-10 06:54 編輯

回復 5# PKKO
2003增益集
檔案另存新檔(檔案類型 addin)的資料夾
  1. C:\Documents and Settings\使用者(你電腦上的名稱)\Application Data\Microsoft\AddIns
複製代碼
2003 Excel 程式指定的資料夾
  1. C:\Program Files\Microsoft Office\OFFICE11\Library
  2. C:\Program Files\Microsoft Office\OFFICE11\Library\SOLVER
  3. C:\Program Files\Microsoft Office\OFFICE11\LIBRARY\ANALYSIS
複製代碼
program你的增益集  須存在上面的任一資料夾.中
執行程式後,再開啟Excel, program你的增益集已不在增益集的選單中
  1. Option Explicit
  2. Sub Ex()
  3.     Dim A As AddIn
  4.     For Each A In Application.AddIns
  5.       If LCase(A.Title) Like "*program*" Then
  6.         A.Installed = False   '取消 勾選
  7.         Kill A.FullName  '刪除這檔案
  8.       End If
  9.     Next
  10.     ThisWorkbook.Save
  11.     Application.Quit
  12. End Sub
複製代碼




歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)