Auto Install Addin Add-In ?

[koticphreak]

I've written an add-in and I want to distribute it to the office. Is there an easy way to have an installer place it in the "C:\Documents and Settings\CURRENTUSER\Application Data\Microsoft\AddIns" folder? I can see telling them all to copy it there being a pain (or for them to even figure out what their currentuser folder actually is...

[shg]

You can have them copy the add-in and the 'installer' to a local folder, and them have them open the installer.

The installer has an Open event that moves the add-in to Application.UserLibraryPath (using Name oldpathname As newpathname), installs the add-in, and quits.

[koticphreak]

You can have them copy the add-in and the 'installer' to a local folder, and them have them open the installer.

The installer has an Open event that moves the add-in to Application.UserLibraryPath (using Name oldpathname As newpathname), installs the add-in, and quits.

Not quite sure I understand 100%, and is there a particular installer i should use?

[shg]

No; that's why I put in in quotes. It's a couple of lines of code in the Open event for the workbook, which you could call Installer.xls.

[koticphreak]

No; that's why I put in in quotes. It's a couple of lines of code in the Open event for the workbook, which you could call Installer.xls.

any hint as to where I can find these couple lines of code?

[shg]

I thought the guy that wrote the add-in would have provided them ...

Private Sub Workbook_Open()
    Const sAddIn As String = "myAddIn.xla"

    On Error Resume Next
    Name ThisWorkbook.Path & "\" & sAddIn As _
         Application.UserLibraryPath & sAddIn
    If Err.Number Then
        MsgBox "Unable to copy add-in to library. Call 911!"
    Else
        Application.AddIns(Left(sAddIn, InStr(sAddIn, ".") - 1)).Installed = True
        If Err.Number = 0 Then
            MsgBox "Add-in installed."
        Else
            MsgBox "Add-in installation failed"
        End If
        ThisWorkbook.Close SaveChanges:=False
    End If
End Sub