返回列表 上一主題 發帖

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

[發問] 如何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

回復 2# GBKEE
Dear GBKEE,

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

   

TOP

        靜思自在 : 多做多得。少做多失。
返回列表 上一主題