Loading add ins at startup referencing the current workbook

[dpaton05]

I am trying to use the date picker here, Excel Date Picker — Sam Radakovitz, and with it, you need to load an add in at startup. I want the add in to load automatically so I am going to enter the folder name where it is located here:

The only problem is that I am still developing my spreadsheet but the folder structure will be the same when I go live so I will copy the folder I am developing onto my network drive. I want to reference the current folder in my version while I am testing on my personal drive, but seeing as though the live version will have the same file structure, it will still work and be able to find the add in.



For instance, I do not want
C:\Program Files (x86)\Microsoft Office\ [version] \xlstart
entered in the box.

What I want is
%someway to reference the current folder%\addins

 

[NdNoviceHlp]

You can trial this code. This part will give U info about your com addins not in the XL start menu....

Dim FolDir As Object, FileNm As Object, Fso As Object
Set Fso = CreateObject("scripting.filesystemobject")
Set FolDir = Fso.GetFolder(Application.UserLibraryPath)
For Each FileNm In FolDir.Files
MsgBox FileNm.Name
Next FileNm
Set FolDir = Nothing
Set Fso = Nothing

I think this maybe what you're after for installing the addin...

Dim Fso As Object, SrcFolderStr As String, DestFolderStr As String
Set Fso = CreateObject("scripting.filesystemobject")
SrcFolderStr = "C:\YourFolderName\AddinTestName.xlsm"
DestFolderStr = Application.UserLibraryPath & "AddinTestName.xlam"
Fso.CopyFile SrcFolderStr, DestFolderStr, True  'source,destination,save
Set Fso = Nothing

So this should always reference the add in path...

Application.UserLibraryPath & "AddinTestName.xlam"

I've been wrong before? HTH. Dave