2011-06-16 90 views
1

什么是安装Excel插件的好方法?Excel插件的部署

我想轻松地推出Excel插件,它的依赖文件都可以存储在一个目录中。我希望用户根据要求获得一个永不停止的版本,或者我想将它推送到他们的PC上。

这是一家公司内部,我可以完全控制环境。

+1

...什么是XL?对于Excel来说,这是懒惰的吗? – cHao 2011-06-16 23:11:46

+0

是XL是Excel – Damian 2011-06-17 05:50:02

+0

拉尔斯,如果这解决了问题。请用复选标记接受它。 – lionz 2011-06-20 18:55:43

回答

1

假设您尝试部署您创建的插件解决方案。你可以在插件中选择你需要的一组excel宏,并将其保存到2007/2010的xlsm excel文件中,或者简单地作为2003的xls文件。从那里进入你的VBA项目窗口(Alt + F11)并单击一次如下所示的“ThisWorkBook”对象,并通过将IsAddin更改为True来将工作簿属性更改为excel插件。

As Shown Here

请记住,这会从视图中删除Excel工作表,因为它成为一个XLA或xlam扩展。不要惊慌,你只是把你的Excel工作簿加入到插件中。将它保存在左上角的保存图标中,并且已经创建了您的插件。您可以按照以下步骤将您的插件链接到其他工作簿。

之后,您必须知道您保存excel文件的位置,因为这会影响插件文件的位置(因为它们是相同的)。

现在,打开一个你想要这个插件连接到一个excel文件。

从那里再次进入vba项目窗口并转到工具和参考,然后选择您刚制作的excel插件。

0

我在公司使用的方法是将插件文件(以及任何其他依赖文件)存储在svn存储库中。用户将他们机器上的relavent文件夹检出到一个一致的位置(可能有点像放牧猫,让每个人都使用相同的文件夹结构)。
当更新可用时,建议用户更新他们的svn checkout文件夹。

2

就可以了“的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