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

jarodz

下面是我寫的程式，會發生入下的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

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

jarodz

回復 2# GBKEE
Dear GBKEE,

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

   

下載 (22.89 KB)

2012-1-5 15:31

GBKEE

回復 1# jarodz

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

複製代碼