File Path

[Max2073]

Help needed.

I had developed a macro that was only used by myself, however this macro
will now also be used by others.

In the macro I was using the full file path, however this is now causing
some problems.

Is there anyway that I can change the macro to open the required files based
on the following path: -

c:\documents and settings\"username - logged on officer"\help.xls

The files that need to be opened are automatically named when exported from
the corporate database - the files will be named the same for each officer -
the only difference is the username.

 

[Gary''s Student]

Perhaps:

Sub officer()
Dim s1 As String, s2 As String, s3 As String
s1 = "C:\Documents and Settings\"
s2 = Environ("Username")
s3 = "\help.xls"
Workbooks.Open Filename:=s1 & s2 & s3
End Sub

 

[Rob van Gelder]

Hi.

Sub test()
Dim strPath As String

strPath = CreateObject("WScript.Shell").SpecialFolders("MyDocuments")
Debug.Print strPath
End Sub

Cheers,
Rob