File Pathname

[eckert1961]

Hello,

I'm running Microsoft Project 2003 and in my macro I'm setting the path to PERSONAL.XLSB using the following code.

Set xlBook = xlApp.Workbooks.Open("C:\Documents and Settings\Eckec\Application Data\Microsoft\Excel\XLSTART\PERSONAL.XLSA")

This works but if I want to distribute this to another user how would I need to alter the code so that no manual editing will be required?

Thanks,
Chris

 

[Derek Brown]

Not quite sure if this will work, but try something like:

Dim strPath As String
strPath = Environ("APPDATA")  & "\Microsoft\Excel\XLSTART\PERSONAL.XLSA"
Set xlbook = xlApp.Workbooks.Open(strPath)

 

[eckert1961]

Thanks Derek,

I'll test it out and report back.

Regards,
Chris