hi
What is the purpose of this code?

many companys send excel sheet monthly have many fileds , i must make many operations one of them insert new fields have spical data to complate this work.

thank you

>What is the purpose of this code?
>
>>hi all,
>>
>>i try this code before it works, i try it again i get error message syntax error
>>
>>

>>thisform.text11.Value=GETFILE('xls')
>>
>>IMPORT FROM (thisform.text11.value) TYPE xls
>>
>>use JUSTSTEM(thisform.text11.value)
>>tt=JUSTSTEM(thisform.text11.value)
>>USE (tt) excl
>>
>>
>>ALTER TABLE (TT) ADD COLUMN TXPNO C(19)
>>ALTER TABLE (TT) ADD COLUMN YEARe C(6)
>>ALTER TABLE (TT) ADD COLUMN INFTYPE C(2)
>>ALTER TABLE (TT) ADD COLUMN INFDATE C(12)
>>ALTER TABLE (TT) ADD COLUMN OFFCODE C(6)
>>ALTER TABLE (TT) ADD COLUMN ENTRYID C(15)
>>ALTER TABLE (TT) ADD COLUMN ENTDATE C(12)
>>ALTER TABLE (TT) ADD COLUMN CONFFLAG C(3)
>>ALTER TABLE (TT) ADD COLUMN CONFID C(12)
>>ALTER TABLE (TT) ADD COLUMN CONFDATE C(12)
>>
>>replace TXPNO WITH THISFORM.TEXT1.Value
>>replace YEARe WITH THISFORM.TEXT2.Value
>>replace INFTYPE WITH THISFORM.TEXT3.Value
>>replace INFDATE WITH THISFORM.TEXT4.Value
>>replace OFFCODE WITH THISFORM.TEXT5.Value
>>replace ENTRYID WITH THISFORM.TEXT6.Value
>>replace ENTDATE WITH THISFORM.TEXT7.Value
>>replace CONFFLAG WITH THISFORM.TEXT8.Value
>>replace CONFID WITH THISFORM.TEXT9.Value
>>replace CONFDATE WITH THISFORM.TEXT10.Value
>>
>>USE (tt) excl
>>
>>FOR gnCount = 1 TO FCOUNT( )
>>   m.OldName =  FIELD(gnCount)
>>   m.NewName = ALLTRIM(EVALUATE(FIELD(gnCount)))
>>
>>   *******************************************************
>>   ALTER TABLE (tt) RENAME COLUMN (m.OldName) TO (m.NewName)&& syntax error
>>next
>>

>>
>>thank you
>>
>>thanks