- 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=168900)
-- 发布时间：2021/5/26 14:42:00
-- Excel导入时间
我想从Excel中导入时间到ft表格中，出错了，可否指导下？
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:导入时间.rar |
-- 发布时间：2021/5/26 15:07:00
--
这种要使用vba导参考：http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=65686&skin=0
-- 发布时间：2021/5/26 17:17:00
--
我试了，如果Excel上设置为日期格式是可以的，但是如果是时间格式或者是自定义格式还是有报错？这样还是无法实现hh:MM:ss格式的导入，只能到hh:MM
[此贴子已经被作者于2021/5/26 20:47:57编辑过]
-- 发布时间：2021/5/27 8:47:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:导入时间.zip |
-- 发布时间：2021/5/27 17:09:00
--
很奇怪，蓝版你改过的实例，我第一次是成功的，但后面试的时候又报错，我把Excel放到实例里了，可否再帮我看下？
-- 发布时间：2021/5/27 17:29:00
--
execl文件数据问题，时间列复制进去的是字符数据，不是日期格式。双击一下单元格就看到了，双击后时间前面的0会自动消失。
改改代码
For i As Integer = 0 To nms.Length - 1
If nms(i) = "时间" Then
try
Dim d As DateTime = DateTime.FromOADate( ary(n,i+1)) \'把Double值转换为日期
r(nms(i)) = d
catch
r(nms(i)) = ary(n,i+1)
End try
Else
r(nms(i)) = ary(n,i+1)
End If
Next
-- 发布时间：2021/5/28 9:26:00
--
实例里用的内部表，测试可以的，但是如果是设计为窗口，用SQLTable，时间列显示为：“1899-12-30”，应该如何改进？
-- 发布时间：2021/5/28 9:31:00
--
设置为短时间格式：http://www.foxtable.com/webhelp/topics/1611.htm