a1=allt(thisform.text1.value) copy to d:\a1.xls type xl5
a1=allt(thisform.text1.value) copy to (a1)+".xls" type xl5
a1=allt(thisform.text1.value) copy to &a1 type xl5