Select file available on user's desktop in macro

[Samadhan Gaikwad]

Hi,

I am importing data as text from C:\Users\a3rgcw\Desktop\PR Data - Display Files.htm this path.
I wanted to replace the "a3rgcw" with local user name.

With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:\Users\a3rgcw\Desktop\PR Data - Display Files.htm", Destination:= _
Range("$A$1"))

Any help?

Thanks,
Samadhan

 

[Chihiro]

Try something like...

Dim fpath As String

fpath = "TEXT;C:\Users\" & Environ("UserName") & "\Desktop\PR Data - Display Files.htm"
With ActiveSheet.QueryTables.Add(Connection:=fpath, Destination:=Range("$A$1"))