Íf you run the next code and look to the result.Is this what you want, I have just added a numeric field flage to your table creation code. After this code you could update flage with what you want to have. Could you run this and look to the effect?

set defa to e:\bills1\bills1 or ThisForm.Text1.Value = "e:\bills1\bills1\aar.xls"
thisform.text1.Value='aar'
LOCAL lcTableName
lcTableName = thisform.text2.value
CREATE TABLE (lcTableName) (flage N(10,0),a C(50), b C(70),c C(50),; 
d C(50),e C(70), f C(70),s C(70), l C(70),char9 c(70), char10 c(40),;
char11 C(10), char12 C(60),char13 C(50), char14 C(40),char15 C(10),;
char16 C(10),char17 C(10), char18 C(70),char19 C(10),;
char20 C(10),char21 C(10), char22 C(40),char23 C(10), char24 C(10),;
char25 C(10), char26 C(70),char27 C(10), char28 C(10) NOCPTRANS)
lcTableName = thisform.text1.value
APPEND FROM (lcTableName) TYPE XLS
*** USE (thisform.text2.value) exclusive ALIAS SomeAlias && Not necessary, this table is already selected
GO TOP
DELETE NEXT 6