Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Installing .XLA on file open
Using John Walkenbachs book I used the following code; Dim InstalledProperly As Boolean Private Sub Workbook_AddinInstall() InstalledProperly = True End Sub Private Sub Workbook_Open() If Not ThisWorkbook.IsAddin Then Exit Sub If Not InstalledProperly Then ' Add it to the AddIns collection If Not *InAddInCollection*(ThisWorkbook) Then _ AddIns.Add Filename:=ThisWorkbook.FullName ' Install it AddInTitle = GetTitle(ThisWorkbook) Application.EnableEvents = False AddIns(AddInTitle).Installed = True Application.EnableEvents = True ' Inform user Msg = ThisWorkbook.Name & _ "has been installed as an add-in." Msg = Msg & _ "Use the Tools Add-Ins command to uninstall it." MsgBox Msg, vbInformation, AddInTitle Call CreateMenu End If End Sub When it runs I get "Compile Error: Sub or Function not defined and it highlights the "InAddInCollection I have bolded above. I want this to install properly no matter if the user double clicks or file opens the file. Any thoughts? -- eklarsen ------------------------------------------------------------------------ eklarsen's Profile: http://www.excelforum.com/member.php...fo&userid=9001 View this thread: http://www.excelforum.com/showthread...hreadid=486737 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Installing .XLA on file open
Thats because you have to define InAddInCollection().
Try this: Function InAddInCollection(wb) As Boolean For Each Item In AddIns If Item.Name = wb.Name Then InAddInCollection = True End If Next Item End Function good luck. /m http://www.aminaahmed.com |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Installing .XLA on file open
Thanks, that worked with a little manapulation -- eklarse ----------------------------------------------------------------------- eklarsen's Profile: http://www.excelforum.com/member.php...nfo&userid=900 View this thread: http://www.excelforum.com/showthread.php?threadid=48673 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Each time I open Exel says installing Excel features | Excel Discussion (Misc queries) | |||
Unable to open files after installing Office 2007 refresh !!! | Excel Discussion (Misc queries) | |||
How do I stop Word from installing every time I go to open it? | Excel Discussion (Misc queries) | |||
Need sberet.msi file after installing SP-3. | Excel Discussion (Misc queries) | |||
Installing a CAB file | Excel Programming |