返回列表 上一主題 發帖

[發問] 如何double click .xls(增益集)會自動加載

jarodz

帖子
32 
主題
7 
精華
0 
積分
50 
點名
0  
作業系統
win7 
軟體版本
2011 
閱讀權限
20 
性別
男 
註冊時間
2011-12-13 
最後登錄
2014-7-8 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-1-5 11:51 | 只看該作者

[發問] 如何double click .xls(增益集)會自動加載

下面是我寫的程式，會發生入下的error message

Run-time error '1004':
Unable to get the Add property of the Addins class
  1. Private Sub Workbook_Open()
  2.         Dim fn_jzcfgreg As String
  3.         Dim h_addin As AddIn
  4.         fn_jzcfgreg = ThisWorkbook.FullName
  5.         Set h_addin = AddIns.Add(fn_jzcfgreg, False)
  6.         h_addin.Installed = True
  7. End Sub
複製代碼
這要如何解決，謝謝。

BR,
Jarod
收藏 分享

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 2012-1-5 12:04 | 只看該作者
回復 1# jarodz
  1. Private Sub Workbook_Open()
  2.         Me.IsAddin = True
  3. End Sub
複製代碼

TOP

jarodz

帖子
32 
主題
7 
精華
0 
積分
50 
點名
0  
作業系統
win7 
軟體版本
2011 
閱讀權限
20 
性別
男 
註冊時間
2011-12-13 
最後登錄
2014-7-8 
3#
發表於 2012-1-5 15:31 | 只看該作者
回復 2# GBKEE
Dear GBKEE,

此xls已經設為增益集了，
想做的事，其他人double click打開這個檔案後，
會自動把這個自動載入excel增益集管理中並打勾(installed)

   

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#
發表於 2012-1-5 16:09 | 只看該作者
回復 3# jarodz
請將你檔案的副檔名改為 增益集的副檔名 試試看

TOP

        靜思自在 : 要比誰更受誰．不要比誰更怕誰。
返回列表 上一主題