主题：[求助] 导入Excel 报表 日期列

老师，下面的代码能将数据导入，但是 Excel 的日期时间的值 2017-03-19 08:01 导入后成了2017-03-19 没有了时间，该如何处理？谢谢！

 

Dim Book As New XLS.Book("D:\Program Files (x86)\ZKTeco\考勤记录.xls")
Dim Sheet As XLS.Sheet = Book.Sheets(0)

Tables("考勤记录").StopRedraw()
'注意以下数组中列名称的顺序,必须和Excel表中的列顺序一致
Dim nms() As String = {"部门","姓名","考勤号码","日期时间","机器号","编号","比对方式","卡号"}'
For n As Integer = 1 To Sheet.Rows.Count -1
    Dim r As Row = Tables("考勤记录").AddNew()
    For m As Integer = 0 To nms.Length - 1
         r(nms(m)) = Sheet(n,m).Value
    Next
Next
Tables("考勤记录").ResumeRedraw()

本来就设置的 datatime

那个表不修改列名导入还是没问题 格式是 datatime 格式 但是列名不修改不能引用。

此主题相关图片如下：qq图片20170303152148.png

描述错误。Excel 的日期时间的值 2017-03-19 08:01 导入后成了2017-03-19 00:00 没有了时间，该如何处理？谢谢！