Get current user path in VBA

[bharned3]

I am using this code to import excel files into one workbook..I have the path hard coded. Is there a way to get this automatically so if another person is running on there machine it will work..

OR

can you define the path in like cell A1 and have it pull from there?




Sub GetSheets()
Path = "C:\Users\wharned\Downloads\"


Filename = Dir(Path & "*.xls")
Do While Filename <> ""
Workbooks.Open Filename:=Path & Filename, ReadOnly:=True
For Each Sheet In ActiveWorkbook.Sheets
Sheet.Copy After:=ThisWorkbook.Sheets(1)
Next Sheet
Workbooks(Filename).Close
Filename = Dir()
Loop
End Sub

 

[shg]

Maybe

    Path = "C:\Users\" & environ("username") & "\Downloads\"

 

[bharned3]

Worked perfect thanks!!

 

[shg]

You're welcome.

 

[pstraton]

A little simpler:

Path = Environ("USERPROFILE") & "\Downloads\"