Marcro to open text file

I need help updating a Macro that opens a txt file, copies information from the txt file, and then pastes information into the excel spreadsheet that is open. The macro works fine now because I know where the txt file is located. The problem I have is that about 100 users will be using the excel file and will need to access a txt file that is exported to their own personal desktop on a daily basis. Is there anything I can do with the code that opens the file.

If the txt file is on "mike's desktop" the code to open is "C:\Documents and Settings\Mike\Desktop\trade_summary.txt"

If the txt file is on "Mary's desktop" the code to open is "C:\Documents and Settings\Mary\Desktop\trade_summary.txt",

In other words, the code would need to change as it relates to each user's desktop.

Sub import()
'
' import Macro

    Workbooks.OpenText Filename:= _
        "C:\Documents and Settings\Mike\Desktop\trade_summary.txt", Origin:=437, _
        StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
        ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False _
        , Space:=False, Other:=True, OtherChar:="|", FieldInfo:=Array(Array(1, 1 _
        ), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), _
        Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1), Array(14, 1), Array(15 _
        , 1), Array(16, 1), Array(17, 1), Array(18, 1), Array(19, 1), Array(20, 1), Array(21, 1), _
        Array(22, 1), Array(23, 1), Array(24, 1), Array(25, 1), Array(26, 1), Array(27, 1), Array( _
        28, 1), Array(29, 1), Array(30, 1), Array(31, 1), Array(32, 1), Array(33, 1), Array(34, 1), _
        Array(35, 1), Array(36, 1), Array(37, 1), Array(38, 1), Array(39, 1), Array(40, 1), Array( _
        41, 1), Array(42, 1), Array(43, 1), Array(44, 1), Array(45, 1), Array(46, 1), Array(47, 1)) _
        , TrailingMinusNumbers:=True
    Range("A1:AU62").Select
    Selection.Copy
    Windows("import_marcro_test.xls").Activate
    Range("A1").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Windows("trade_summary.txt").Activate
    ActiveWindow.Close
End Sub

How about,

    Dim s As String
    s = "C:\Documents and Settings\" & _
        Environ("username") & _
        "\Desktop\trade_summary.txt"

You can make use of the

mid(application.DefaultFilePath, 27,instr(27,application.DefaultFilePath,"\")-27)

to deduce which user is using the macro and then use this to construct the string for the path.

Thanks for the response. I am not sure why I need to use the Dim s As String?

Dim s As String
    s = "C:\Documents and Settings\" & _
        Environ("username") & _
        "\Desktop\trade_summary.txt"

Can't I just use:

"C:\Documents and Settings\" & _
        Environ("username") & _
        "\Desktop\trade_summary.txt"

The marco works without the Dim s as String. Any comments as to if I really need this. The reason I did not use it is because I can't figure out how to embed it into the macro I have.

try

CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\trade_summary.txt"

The macro works without the Dim s as String. Any comments as to if I really need this.

If you put Option Explicit at the top of all your modules, as you should, you must declare all your variables for your code to compile.

If you don't, you will sooner or later be posting here to ask someone to explain some apparently anomalous behavior that is a consequence of not doing so.