string ls_pathname, ls_filename
integer li_value
GetFileOpenName("Select File", ls_pathname, ls_filename, "XLS", "Microsoft Excel Files (*.xls),*.xls")
OLEOBJECT myoleobject
myoleobject=CREATE OLEOBJECT
myoleobject.ConnectToObject(ls_pathname)
myoleobject.application.workbooks(1).saveas('c:/aa.txt', -4158, false)
destroy myoleobject