Problems Copying a File into Excel using VBA

[pro13]

So I got this program from a co-worker that allows me to copy a file into Excel. The program works fine on his computer, however not on mine. The purpose of the program is to copy a range of data and to put it into the appropriate cell. The code is as follows...

ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;FilePath", _
Destination:=Range("$A$1"))
.Name = "LSC File"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 437
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = True
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = True
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False

Excel seems to have a problems with the last line which I don't know is because it ends a loop or because it is a "bad" line. Any comments would be appreciated

 

[pro13]

I'm hoping I can get some help. Probably didn't state the problem that well. The macro that a coworker gave works on his computer but not on any other. What the macro in excel is supposed to do is read txt files that have extensions 001. However, when we try to import the txt files we get the error message:

Run-time error'1004':
Excel cannot find the text file to refresh theis external data range.
Check to make srue the text file has not moved or renamed, then try refresh again.

Anyway, I'm hoping someone might be able to help us understand and fix what is wrong.

Thanks!