Foxtable(狐表) → 用户栏目 → 专家坐堂 → Excel导入时间


  共有3629人关注过本帖树形打印复制链接

主题：Excel导入时间
帅哥哟，离线，有人找我吗？
有点蓝
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/5/26 15:07:00 [显示全部帖子]

这种要使用vba导参考：http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=65686&skin=0

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/5/27 8:47:00 [显示全部帖子]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:导入时间.zip
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：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
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/5/28 9:31:00 [显示全部帖子]


 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 6 次数据查询