以文本方式查看主题 - 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=157274) |
-- 作者:foxyuan -- 发布时间:2020/10/10 14:40:00 -- excel导入日期列的问题 excel单元格数据为20201006这类的,代码导入会是空值: ~ Else If dt.DataCols(m).IsDate Then Dim d As Date If Date.TryParse(Sheet(l,nms(m)).Value, d) ndr (m) = d End If end if ~ |
-- 作者:有点蓝 -- 发布时间:2020/10/10 14:48:00 -- Dim s As String = "20201006" s = s.Insert(6,"-").Insert(4,"-") msgbox(s)
|
-- 作者:foxyuan -- 发布时间:2020/10/10 14:54:00 -- 蓝老师,针对一个表导入这列用这方法我明白了,我是想通过自定义函数来导入excel数据,导入前先判断这列是不是日期列,就是我上面的那段代码,然后再转换。 难道exce表格里日期列一定要是日期的固定格式吗?从银行里导出来的流水的日期就是8个数字。
|
-- 作者:foxyuan -- 发布时间:2020/10/10 14:56:00 -- Dim d As Date Date.TryParse(2020-10-06,d) output.show(d) 出来的也是00:00:00
|
-- 作者:foxyuan -- 发布时间:2020/10/10 15:01:00 -- 还有自定义函数导进表中的数据是不是不会引起DataColChanged公式。谢谢了。 |
-- 作者:有点蓝 -- 发布时间:2020/10/10 15:01:00 -- Dim d As Date Date.TryParse("2020-10-06",d) output.show(d)
|