- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助] 导入Excel 报表 日期列 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=97831)
-- 发布时间：2017/3/19 14:45:00
-- [求助] 导入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()
-- 发布时间：2017/3/19 14:50:00
--
表格的日期时间列格式设置为 DateLongTime ,在列属性 - 日期时间格式
-- 发布时间：2017/3/19 14:59:00
--
本来就设置的 datatime
那个表不修改列名导入还是没问题 格式是 datatime 格式 但是列名不修改不能引用。
此主题相关图片如下：qq图片20170303152148.png
-- 发布时间：2017/3/19 15:28:00
--
描述错误。Excel 的日期时间的值 2017-03-19 08:01 导入后成了2017-03-19 00:00 没有了时间，该如何处理？谢谢！
-- 发布时间：2017/3/20 8:51:00
--
2楼的回复是正解：
http://www.foxtable.com/webhelp/scr/0043.htm
http://www.foxtable.com/webhelp/scr/0044.htm
你用代码导入的，和列名没有关系，因为列名可以在代码指定
-- 发布时间：2017/3/20 10:57:00
--
如果读取不了时间，那就用vba读取
http://foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=65686&skin=0