ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Formula Creation via Add-in problem (https://www.excelbanter.com/excel-programming/352920-formula-creation-via-add-problem.html)

Bill Schanks

Formula Creation via Add-in problem
 
I have this formula that gets created via a subroutine in an Add-in:

=CSSB_NbrOfItems(Sheet1!AB2:AB918,1)

When I create the workbook, and then reopen it it looks just like
above. But if other users open the workbook, the cell looks like this:

='D:\Documents and Settings\wjschan\Application
Data\Microsoft\AddIns\CSSB Delimited
File.xla'!CSSB_NbrOfItems(Sheet1!AB2:AB918,1)

Excel asks if the user want's update links, but it doesn't work as they
don't have access to files on my computer.

Each user needing to open file has the add-in installed, so the UDF is
available.

Is there a way to not put 'D:\Documents and
Settings\wjschan\Application Data\Microsoft\AddIns\CSSB Delimited
File.xla'! in the formula?


Bill Schanks

Formula Creation via Add-in problem
 
For anyone interested, I have found that the only way to solve this is
to have the Add-in installed in a common place on the PC for all users.

Rather than %USERPROFILE%\Application Data\Microsoft\AddIns.

What a pain, since I don't have installer creation utilities.

Here is what I did:

Private Sub Workbook_AddinInstall()

On Error GoTo Workbook_AddinInstall_ErrHandle

Dim fso As New FileSystemObject

'Add-in must be installed in the same place for UDF's to work for all
users
'Since I don't have access to an install builder (VBA, C#, Etc...) This
is the best we can do
If Not (AddIns("CSSB Delim File Opener").Path & "\" = conInstallPath)
Then

Call MsgBox("Addin Must be installed in this path: " & vbCrLf _
& conInstallPath & vbCrLf & vbCrLf _
& "A copy of the add-in had been copied there. " _
& "Please go back into the add-in manager and browse " _
& "to this location.", vbCritical + vbOKOnly, conAppName)

If Not fso.FolderExists(conInstallPath) Then fso.CreateFolder
(conInstallPath)
fso.CopyFile AddIns("CSSB Delim File Opener").FullName,
conInstallPath & _
AddIns("CSSB Delim File Opener").Name, True
AddIns("CSSB Delim File Opener").Installed = False
Application.Dialogs(xlDialogAddinManager).Show
GoTo Workbook_AddinInstall_Exit

End If

.... Remaining code snipped.



All times are GMT +1. The time now is 03:57 AM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com