標題: [發問] 如何double click .xls(增益集)會自動加載 [打印本頁]

---

作者: jarodz    時間: 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    時間: 2012-1-5 12:04

回復 1# jarodz

1. Private Sub Workbook_Open()
   
2.         Me.IsAddin = True
   
3. End Sub

複製代碼

---

作者: jarodz    時間: 2012-1-5 15:31

回復 2# GBKEE
Dear GBKEE,

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

    [attach]9081[/attach]

---

作者: GBKEE    時間: 2012-1-5 16:09

回復 3# jarodz
請將你檔案的副檔名改為 增益集的副檔名 試試看

---

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