返回列表 上一主題 發帖

[發問] 如何將增益集的項目完全移除掉?

PKKO
　暱稱: PKKO

高中生Rank: 3Rank: 3

帖子
549 
主題
152 
精華
0 
積分
691 
點名
0  
作業系統
WIN7 
軟體版本
OFFICE 2010 
閱讀權限
50 
性別
男 
註冊時間
2013-8-10 
最後登錄
2022-9-7 

論壇榮譽勳章論壇贊助勳章
1# 跳轉到 » 正序看帖
打印
tT
發表於 2015-11-8 17:23 | 只看該作者

[發問] 如何將增益集的項目完全移除掉?



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


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

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
6#
發表於 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
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

PKKO
　暱稱: PKKO

高中生Rank: 3Rank: 3

帖子
549 
主題
152 
精華
0 
積分
691 
點名
0  
作業系統
WIN7 
軟體版本
OFFICE 2010 
閱讀權限
50 
性別
男 
註冊時間
2013-8-10 
最後登錄
2022-9-7 

論壇榮譽勳章論壇贊助勳章
5#
發表於 2015-11-9 16:34 | 只看該作者
回復 4# GBKEE


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

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

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

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
4#
發表於 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 增益集的清單中 ,消除了不要的自訂增益集.
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

PKKO
　暱稱: PKKO

高中生Rank: 3Rank: 3

帖子
549 
主題
152 
精華
0 
積分
691 
點名
0  
作業系統
WIN7 
軟體版本
OFFICE 2010 
閱讀權限
50 
性別
男 
註冊時間
2013-8-10 
最後登錄
2022-9-7 

論壇榮譽勳章論壇贊助勳章
3#
發表於 2015-11-9 11:35 | 只看該作者
回復 2# GBKEE

感謝超版大大的回復

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

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

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

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

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

若只是刪除檔案,會變成每次打開都說找不到增益集= =
PKKO

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 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 物件
可自行練習
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

        靜思自在 : 滴水成河。粒米成蘿，勿輕己靈，勿以善小而不為。
返回列表 上一主題