主题：如何把导入的Excel第一行自动变为字段名
qingfeng666
[专家分：0] 发布于 2010-09-19 09:31:00
在把一个excel文件导入到VFP的自由表中时，用一个IMPORT命令就可以了，但是字段名为A、B、C等，如何让用程序实现表的第一行自动变为字段名呢？谢谢!
回复列表 （共3个回复）
沙发
qjbzjp [专家分：8830] 发布于 2010-09-19 12:26:00
my_file=GETFILE("xls")
IMPORT FROM "&my_file" type XL5
my_dbf=JUSTSTEM(my_file)
SELECT (my_dbf)
FOR iii=1 to FCOUNT(my_dbf)
mzd=SUBSTR("ABCDEFGHIJKLMNOPQRSTUVWSYZ",iii,1)
mfilename=FIELD(mzd)
m_ren="ALTER TABLE "+ "&my_dbf rename column "+ mzd+" to "+ CHRTRAN(&mfilename," ","")
&m_ren
NEXT
GO 1
DELETE
PACK
BROWSE
论坛里有比这功能更强的帖子，楼主有兴趣可以查找一下。
板凳
C易特联盟 [专家分：60] 发布于 2010-10-03 22:57:00
最新互助式项目。
这是一个互助的模式。
不推广人也有钱赚的。分A B两个网。
不推广的人在A网。推广的人 在B网。
B网推广的人帮助A网。
A网赚取6000元出局。
B网就多了。
详情了解加QQ919169870
http://blog.sina.com.cn/s/blog_6b19ec920100liv6.html
C易特奖励制度
http://blog.sina.com.cn/cyite6
C易特更多资料博客
3 楼
C易特联盟 [专家分：60] 发布于 2010-10-03 22:57:00
最新互助式项目。
这是一个互助的模式。
不推广人也有钱赚的。分A B两个网。
不推广的人在A网。推广的人 在B网。
B网推广的人帮助A网。
A网赚取6000元出局。
B网就多了。
详情了解加QQ919169870
http://blog.sina.com.cn/s/blog_6b19ec920100liv6.html
C易特奖励制度
http://blog.sina.com.cn/cyite6
C易特更多资料博客
我来回复
您所在位置：社区首页 — Visual Foxpro讨论区 — 如何把导入的Excel第一行自动变为字段名