什麼是安裝Excel插件的好方法?Excel插件的部署
我想輕鬆地推出Excel插件,它的依賴文件都可以存儲在一個目錄中。我希望用戶根據要求獲得一個永不停止的版本,或者我想將它推送到他們的PC上。
這是一家公司內部,我可以完全控制環境。
什麼是安裝Excel插件的好方法?Excel插件的部署
我想輕鬆地推出Excel插件,它的依賴文件都可以存儲在一個目錄中。我希望用戶根據要求獲得一個永不停止的版本,或者我想將它推送到他們的PC上。
這是一家公司內部,我可以完全控制環境。
假設您嘗試部署您創建的插件解決方案。你可以在插件中選擇你需要的一組excel宏,並將其保存到2007/2010的xlsm excel文件中,或者簡單地作爲2003的xls文件。從那裏進入你的VBA項目窗口(Alt + F11)並單擊一次如下所示的「ThisWorkBook」對象,並通過將IsAddin更改爲True來將工作簿屬性更改爲excel插件。
請記住,這會從視圖中刪除Excel工作表,因爲它成爲一個XLA或xlam擴展。不要驚慌,你只是把你的Excel工作簿加入到插件中。將它保存在左上角的保存圖標中,並且已經創建了您的插件。您可以按照以下步驟將您的插件鏈接到其他工作簿。
之後,您必須知道您保存excel文件的位置,因爲這會影響插件文件的位置(因爲它們是相同的)。
現在,打開一個你想要這個插件連接到一個excel文件。
從那裏再次進入vba項目窗口並轉到工具和參考,然後選擇您剛製作的excel插件。
我在公司使用的方法是將插件文件(以及任何其他依賴文件)存儲在svn存儲庫中。用戶將他們機器上的relavent文件夾檢出到一個一致的位置(可能有點像放牧貓,讓每個人都使用相同的文件夾結構)。
當更新可用時,建議用戶更新他們的svn checkout文件夾。
就可以了「的ThisWorkbook」模塊 這段代碼安裝在插入您的* .xlam這個代碼,並激活當前加載項
Private Sub Workbook_Open()
Dim oXL As Object, oAddin As Object
URL = Me.Path & "\"
normalUrl = Application.UserLibraryPath ' Environ("AppData") & "\Microsoft\AddIns"
AddinTitle = Mid(Me.Name, 1, Len(Me.Name) - 5)
If URL <> normalUrl Then
If MsgBox("Can you Install AddIns ?", vbYesNo) = vbYes Then
Set oXL = Application ' CreateObject("Excel.Application")
oXL.Workbooks.Add
Me.SaveCopyAs normalUrl & Me.Name
Set oAddin = oXL.AddIns.Add(normalUrl & Me.Name, True)
oAddin.Installed = True
oXL.Quit
Set oXL = Nothing
End If
End If
End Sub
...什麼是XL?對於Excel來說,這是懶惰的嗎? – cHao 2011-06-16 23:11:46
是XL是Excel – Damian 2011-06-17 05:50:02
拉爾斯,如果這解決了問題。請用複選標記接受它。 – lionz 2011-06-20 18:55:43