Problem with textfileplatform
 

My following code works fine for me and others at one site. But one o
my group member tried to run the same macro from other site and he i
getting error in file import part at textfileplatform which i
highlighted.

I read help regarding the same, but did not understand much. What doe
437 value indicates. What are the dependancies. Why I am not able t
run the same macro from other site even though I am logged on to loca
machine.

MdlNm = Sheets("form").Range("H6").Value
CfgNm = Sheets("form").Range("H8").Value
PathNm = Sheets("form").Range("H10").Value
ridNm = Sheets("form").Range("N6").Value
rptNm = Sheets("form").Range("N7").Value
Sheets("form").Range("H15").Value = PathNm & "\" & ridNm & "\"
MdlNm & "\" & CfgNm & "\" & rptNm
FileNm = Sheets("form").Range("H15").Value
Sheets("data").Select
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;" & FileNm _
, Destination:=Range("A1"))
.Name = "rpt_chg"
.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 = False
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = True
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, _
1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End Wit

--
halarikeyu
-----------------------------------------------------------------------
halarikeyur's Profile: http://www.excelforum.com/member.php...fo&userid=1575
View this thread: http://www.excelforum.com/showthread.php?threadid=27537