记录集导入Excel表格后,日期型字段显示的的却不是日期???????

Question

我的查询生成的记录集里有两个日期型的字段,导入Excel表格后,对应的字段却不是相应的日期值???
比如
2005-07-02 成了 38535
2005-07-31 成了 38564这是怎么会事啊?????
望高手指点!!!!!!我是用
    sheetExcel.Cells.CopyFromRecordset rs
导入Excel表格的

Answer 1

把Excel与该日期对应的单元格格式设为日期型的吧

Answer 2

Excel的显示问题!Excel太自作多情了!

Answer 3

wangdeshui(阿水) 
在vb代码里该怎么设置单元格格式????

Answer 4

转换到EXCEL后，再将响应列设置成日期类型

Answer 5

jxgzay(jxgzay) 
能不能详细点啊兄弟！！！！！

Answer 6

还有我用如下代码到入excel表格时：
    Dim appExcel As Excel.Application   '定义Excel程序对象
    Dim bookExcel As Excel.Workbook     'Excel文件对象
    Dim sheetExcel As Excel.Worksheet   '工作表对象    Set appExcel = New Excel.Application              '创建excel对象
    Set bookExcel = appExcel.Workbooks.Add             '添加工作簿
    Set sheetExcel = bookExcel.Worksheets.Add           '添加工作表    appExcel.Visible = True
    
    Dim icol As Integer                 '列数，用于保存字段个数
    Dim ijlts As Long                   '记录条数
    Dim yesorno As Long                 '确认或是取消的标志
   
    '添加列名
    For icol = 0 To rs.Fields.Count - 1
        If IsNull(rs.Fields(icol).Name) Then
           IsNull (sheetExcel.Cells(1, icol + 1).Value)
        Else
           sheetExcel.Cells(1, icol + 1).Value = rs.Fields(icol).Name
        End If
    Next
    '逐添加记录
    rs.MoveFirst
    For ijlts = 1 To rs.RecordCount - 1
        For icol = 0 To rs.Fields.Count - 1
                sheetExcel.Cells(ijlts, icol).Value = rs.Fields(icol).Value
        Next
    Next
执行到  sheetExcel.Cells(ijlts, icol).Value = rs.Fields(icol).Value 时
警告：应用程序定义错误或对象定义错误
前面的循环已经把列名加入Excel表格
谁能告诉我怎么办啊？？？？？

Answer 7

你选中,execl日期的那一列,右件-设置单元格格式,选择日期型就出来了,execl傻,不会自己转化

Answer 8

仍用 sheetExcel.Cells.CopyFromRecordset rsrs.Open "Select Format(mData, 'yyyy-mm-dd') As 日期, ...... From tablename ......",......

Answer 9

.NumberFormatLocal = "yyyy""年""m""月""d""日"""