导出日期字段到excel里面出错的问题

Question

我的SQL SERVER数据库中有一个字段birthday，类型是datetime类型的现在我把它导到excel里面，语句是这样的exlapp.Sheets(1).Cells(rows, 7) = rst3.Fields("birthday")可是导过去之后发现，出来的不是日期，而是一串数字比如，本来数据库里面birthday的内容是2004-01-01
到excel里面一看变成了129321,这么一串数字请问这个问题该怎么解决啊，谢谢了

Answer 1

建议你尝试用FORMAT 函数，将这个值重新格式化一下，行不行

Answer 2

exlapp.Sheets(1).Range("G" & rows ).NumberFormatLocal = "yyyy-m-d"
exlapp.Sheets(1).Cells(rows, 7) = rst3.Fields("birthday")

Answer 3

这个是因为Excel的单元格的格式为文本格式，你写入数据前，把它改为对应的日期格式就行了：
设置第7列的格式为日期格式：
exlapp.Sheets(1).("G" & rows).NumberFormatLocal= "yyyy""-""m""-""d""-"""
exlapp.Sheets(1).Cells(rows, 7) = rst3.Fields("birthday")