RE: TextToColumns issue (Posted by Cetin Basoz) - www.foxite.com

Subhankar,
I am amazed with your understanding. Given the code needed to fill arrFieldInfo I thought you could apply to your case (though I prefer OpenText). Anyway here is the sample with TextToColumns:

#Define xlDelimited	1
#Define xlFixedWidth	2
#Define xlDoubleQuote 1

#Define xlGeneralFormat	1
#Define xlTextFormat	2
#Define xlMDYFormat	3
#Define xlDMYFormat	4
#Define xlYMDFormat	5
#Define xlMYDFormat	6
#Define xlDYMFormat	7
#Define xlYDMFormat	8
#Define xlSkipColumn	9
#Define xlEMDFormat	10

TEXT TO myText noshow
"0001","VFP7",01/01/2002,"skipme",30/01/2003,001
"0002","VFP8",01/31/2003,"skipme",29/02/2000,002
"0002","C#",01/31/2003,"skipme",29/02/2000,002
ENDTEXT

Dimension arrFldInfo[6,2]
For ix=1 To 6
  arrFldInfo[m.ix,1]=m.ix
Endfor
arrFldInfo[1,2]=xlTextFormat
arrFldInfo[2,2]=xlTextFormat
arrFldInfo[3,2]=xlMDYFormat
arrFldInfo[4,2]=xlSkipColumn
arrFldInfo[5,2]=xlDMYFormat
arrFldInfo[6,2]=xlTextFormat

ox = Createobject('Excel.Application')
ox.Workbooks.Add()
ox.Visible = .T.
With ox.ActiveWorkbook.ActiveSheet
  _Cliptext = m.myText
  .PasteSpecial(.Range('A1'))
  .Application.Selection.TextToColumns(.Range('A1'), xlDelimited, ;
    xlDoubleQuote, ,,,.T.,,,, @arrFldInfo)
Endwith