以文本方式查看主题

-  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
~



图片点击可在新窗口打开查看此主题相关图片如下:snipaste_2020-10-10_14-35-27.png
图片点击可在新窗口打开查看


--  作者:有点蓝
--  发布时间: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)