#DEFINE xlText - 4158 
LOCAL lcPath, laFiles( 1 ), loXL, ln1, loWB
lcPath = "C:\Documents and Settings\Igor\My Documents\"
IF ADIR(laFiles, m.lcPath + "*.xls") =  0 
  MESSAGEBOX("Нечего конвертировать!")
  RETURN .F.
ENDIF
loXL = CREATEOBJECT("Excel.Application")
FOR ln1 =  1  TO ALEN(laFiles,  1 )
  loWB = m.loXL.Workbooks.Open(m.lcPath + m.laFiles(m.ln1,  1 ))
  m.loWB.SaveAs(m.lcPath + FORCEEXT(m.laFiles(m.ln1,  1 ), "txt"), xlText)
  m.loWB.Close(.F.)
ENDFOR
m.loXL.Quit()