回 帖 发 新 帖 刷新版面

主题:请教如何导出为EXCEL后,将字段改为中文名?

我想把数据表导出为EXCEL的时候,将英文的字段名改为中文表头,具体的对应关系在自由表1里的字段“英文”和“中文”里,请问如何实现?
COPY to nj xls


[em18][em18][em18][em18][em18][em18][em18][em18][em18][em18][em18][em18][em18][em18]

回复列表 (共15个回复)

11 楼

试过了不行,导出来还是英文的字段头

12 楼

[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 楼

[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 楼

[quote]试过了不行,导出来还是英文的字段头[/quote]
能不能把你的两个表传过来,分析一下表结构及数据是否存在问题。
10楼的代码是根据搂主的意思建的表并运行通过。

15 楼

看贴回贴

我来回复

您尚未登录,请登录后再回复。点此登录或注册