主题:请教如何导出为EXCEL后,将字段改为中文名?
useasd
[专家分:0] 发布于 2010-04-22 09:51:00
我想把数据表导出为EXCEL的时候,将英文的字段名改为中文表头,具体的对应关系在自由表1里的字段“英文”和“中文”里,请问如何实现?
COPY to nj xls
[em18][em18][em18][em18][em18][em18][em18][em18][em18][em18][em18][em18][em18][em18]
回复列表 (共15个回复)
11 楼
useasd [专家分:0] 发布于 2010-04-26 10:40:00
试过了不行,导出来还是英文的字段头
12 楼
hw2007name [专家分:4790] 发布于 2010-04-26 11:51:00
[quote]Select 英文字段名 As 中文字段名 ... From ... Into Cursor "临时表名"
copy to ...
这个怎么用啊??
比如表一字段为NJ,CZ,ZJ
表二字段为中文,英文
记录为:南京,NJ
常州,CZ
镇江,ZJ
希望将表一输出为1.EXCEL,表头为南京,常州,镇江。[/quote]
select NJ as 南京,CZ as 常州,ZJ as 镇江 From "数据表" into cursor "临时表名"
select "临时表名"
copy to "1.xls" xl5
use in "临时表名"
13 楼
dbfox [专家分:490] 发布于 2010-04-26 19:50:00
[quote][quote]Select 英文字段名 As 中文字段名 ... From ... Into Cursor "临时表名"
copy to ...
这个怎么用啊??
比如表一字段为NJ,CZ,ZJ
表二字段为中文,英文
记录为:南京,NJ
常州,CZ
镇江,ZJ
希望将表一输出为1.EXCEL,表头为南京,常州,镇江。[/quote]
select NJ as 南京,CZ as 常州,ZJ as 镇江 From "数据表" into cursor "临时表名"
select "临时表名"
copy to "1.xls" xl5
use in "临时表名"[/quote]
m.cfields = ''
select 表二 &&假如表二已打开
scan
m.cfields =iif(empt(m.cfields),m.cfields,m.cfields+',')
m.cfields = m.cfields+英文+' as '+中文
endscan
select &cfields from 表一 into cursor bb1 &&假设表一也已经打开
copyt to bb1.xls xl5
上列代码对于任意个字段的表一适用,但必须保证表二中没有空记录,两个字段不能有空值,且表二中所有记录都是表一的英文字段各相应的中文字段名称.
当然,如果上述保证不能保证的话,还可以增加一定的代码来解决之.虽然复杂些,但仍可实现.只要满足最低保证,即表二中必须有表一中所有字段的英中文字段记录.
注意到楼主没有给回贴评分,其实很简单的,在每个回贴最下一行的"10","20","30"三个分值的任意一个上用鼠标轻轻一点,自已一分钱不破费,就能向回贴人传递一个信息,就是对他回贴是否满意,是否得到了您想要的答案.
14 楼
sywzs [专家分:5650] 发布于 2010-04-27 11:46:00
[quote]试过了不行,导出来还是英文的字段头[/quote]
能不能把你的两个表传过来,分析一下表结构及数据是否存在问题。
10楼的代码是根据搂主的意思建的表并运行通过。
15 楼
乱云飞渡 [专家分:0] 发布于 2010-05-02 12:31:00
看贴回贴
我来回复