asp导出access数据到excel时如何把原字母字段名改成中文的

发布网友发布时间：2023-07-12 17:07

共2个回答

热心网友时间：2024-11-19 14:28

经亲身实践，对楼上稍作一个单词修改，就OK了。以下是全部

原代码部分

-------------------------------------------

For each x in rstData.fields

strLine = strLine & x.name & chr(9)

next

------------------------------------------

替换为如下部分

-----------------------------------------

dim aa

for each x in rstData.Fields

aa=""

select case x.name

case "name"

aa="姓名"

case "date"

aa="日期"

case "备注"

aa="备注"

case "张三"

aa="章三"

......

end select

strLine = strLine &aa& chr(9)

next

----------------------------------------

注意：所有表的列名都必须重新定义

热心网友时间：2024-11-19 14:28

For each x in rstData.fields
strLine = strLine & x.name & chr(9)

x.name应该就是字段名,你应该在x.name赋值给strline之前进行判断并替换成中文字段名

追问能帮举个例子不？！！！拜谢
这段代码形成Excel文件为什么和前台下载的不同

追答dim aa
for each x in rstData.Fields
    aa=""
    select case x.value
           case "name"
              aa="姓名"
            case "date"
              aa="日期"
            ......
    end select
strLine = strLine &aa& chr(9)
next

大概如此吧,自己调试一下,还有检查语法的正确形式,ps:php用的比较多,asp很多语法记的不是很清楚了