Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]读取Excel变成科学计数法问题


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

主题：[求助]读取Excel变成科学计数法问题
帅哥哟，离线，有人找我吗？
不可思议的虫
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：32 积分：589 威望：0 精华：0 注册：2014/6/20 14:51:00 		[求助]读取Excel变成科学计数法问题  发帖心情 Post By：2016/3/25 13:25:00 [只看该作者]

前提是没有办法修改Excel的单元格格式，只能进行内容的读取，比较怪的是在Excel中查看时并不是科学计数法显示的。

Dim Book As New XLS.Book(File)
Dim Sheet As XLS.Sheet

Dim sCell As String

sCell=Sheet(iR,iC).Text.Trim
或
sCell=Sheet(iR,iC).Value.Trim

读出的结果均为
4.98784671382852E+15

如何能读出正常的字符串？
 回到顶部
帅哥哟，离线，有人找我吗？
wyz20130512
 小大  2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1249 积分：9474 威望：0 精华：0 注册：2013/5/12 9:22:00 		回复：（不可思议的虫）[求助]读取Excel变成科学计数法...  发帖心情 Post By：2016/3/25 13:50:00 [只看该作者]

这并不会带来什么影响,若将4.98784671382852E+15复制到高精度列是会正常显示的:4987846713828520

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


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/3/25 15:13:00 [只看该作者]

不影响使用吧？

 

Dim d As Decimal= "4.98784671382852E+15"
msgbox(d)
 回到顶部
帅哥哟，离线，有人找我吗？
不可思议的虫
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：32 积分：589 威望：0 精华：0 注册：2014/6/20 14:51:00 		  发帖心情 Post By：2016/3/25 15:27:00 [只看该作者]

感谢支持！使用Decimal可以实现目的了，不过如果有封装好的函数处理一下更好，不然在转成Decimal时还是担心会有非数字出现，还得进行判断处理。

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


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/3/25 15:35:00 [只看该作者]

需要判断一下的

 

try
    Dim d As Decimal = "alksdjfk"
catch ex As exception
    msgbox("不是数值")
End try
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 4 次数据查询