单纯就楼主的问题，并用楼主上传的表，写了如下代码，测试能过。

USE bb
SCATTER TO arraynames&&将第一行数据读入数组
iii=1
FOR EACH new IN arraynames
    old=SUBSTR("ABCDEFGHIJKLMNOPQRSTUVWSYZ",iii,1)
    ALTER TABLE bb RENAME &old TO &new  &&改变字段名
    iii=iii+1
ENDFOR
BROWSE

[ 本帖最后由 月沐庭轩 于 2012-12-10 20:46 编辑 ]

核心代码如下：

SELECT * FROM BB WHERE RECNO()=1 INTO ARRAY 字段
SELECT BB
COPY TO BB2  &&备份一下
FOR AB=1 TO FCOUNT()
   原字段名=FIELD(AB)
   现字段名=字段(1,AB)
   ALTER TABLE BB RENAME &原字段名 TO &现字段名
NEXT
DELETE FROM BB WHERE RECNO()=1  &&对本应是标题的假记录打上删除标记
PACK   &&彻底删除假记录

另外，楼主以后在FoxPro中导入Excel工作表的时候用向导，然后把开始导入的记录改成第2行即可。


[ 本帖最后由 taifu945 于 2012-12-10 20:56 编辑 ]

谢谢尧的故乡、谢谢蝙蝠侠！
我非常感谢你们，在百忙之中给予回复！

感谢月沐庭轩、感谢taifu945，感谢所有的朋友！