>Cetin,
>
>Thanks for the reply.
>My text file is delimited with ';'.But I just need to create the .xls from .txt file, do not want to open it at the same time, User will open it later on.

---

Then slightly change code to use ";" instead of ",", save as xls and exit.

#Define xlExcel5  39
#Define xlExcel7  39
#Define xlExcel9795  43
lcTxtName = sys(5)+curdir()+"mytext"
oExcel = createobject("Excel.application")
With oExcel
  .Workbooks.open(lcTxtName+".txt", , , 6, , , , , ";")
  With .ActiveWorkbook
    .SaveAs(lcTxtName+".xls",xlExcel5)
    .Saved = .t.
  Endwith
  .Quit
Endwith

Cetin