VFP 怎样把字段名改为对应的某一条记录

SQL语句是不能修改字段的名称的，只能在字段名不变的情况下修改该字段的其他域。我采用的方法是根据导入的Excel文件的原有表结构，自动生成用第一条记录的内容作为字段名的新表，然后将原表中的记录从第2条开始逐条添加到新表，程序如下。希望你能找到另外的思路，比这更简单的方法。:)
xlsfile=getfile("xls","","",0,"导入Excel文件")
if !empty(xlsfile)
import from (xlsfile) type xls
tmpdbf=dbf()
scatter to fieldarr
for i=1 to alen(fieldarr)
fieldarr(i)=left(fieldarr(i),10)
endfor
copy structure extended to temp
use temp
for i=1 to alen(fieldarr)
replace field_name with fieldarr(i) record i
endfor
create NewTableName from temp
use (tmpdbf) in 0 alias olddbf
select olddbf
2
do while !eof()
scatter to valuearr
select NewTableName
append from array valuearr
select olddbf
skip
endd
select NewTableName
browse
endif

使用导入向导！里面有选择第几行为字段名的

我准备说的办法不是好办法，不过实在不行可以用
EXCL 文件导入以前EXCEL 工作表的第一个行插入一个行，A