Open openoffice 格式转换表格3.16E+048 怎么转换数字？

来源：蜘蛛抓取(WebSpider) 时间：2016-09-25 16:29 标签： openoffice多线程转换
查看: 2074|回复: 4
VBA从WORD表格中提取的数字如何转换为数值？
阅读权限30
在线时间 小时
本帖最后由 anijoe123 于
16:38 编辑
在EXCEL中，VBA从WORD表格中提取的数字如何转换为可计算的数值？
'word单元格内容里包括回车符，要用left-1删除回车
&&activesheet.Range(&e3&) = Left(word1.tables(1).cell(2, 6).Range.Text, Len(word1.tables(1).cell(2, 6).Range.Text) - 1)
QQ图片47.jpg (37.18 KB, 下载次数: 15)
16:26 上传
我删除了千分位的逗号也不行，数字没有空格，小数换成英文的也不行。
用VAL（）函数的话，51540.49会只等于515，用CLNG()等转换函数也不行
(301.47 KB, 下载次数: 25)
16:37 上传
点击文件名下载附件
阅读权限20
在线时间 小时
是你的“，”和“.”&&问题
阅读权限30
在线时间 小时
去掉逗号用val()是可以的：
Sub test()
For i = 3 To 4
Cells(i, &e&) = Val(Replace(Cells(i, &e&), &,&, &&))
阅读权限30
在线时间 小时
lzxdy 发表于
去掉逗号用val()是可以的：
Sub test()
For i = 3 To 4
谢谢楼上！代码嵌套成这样就行了
.Range(&d& & j) = CDate(Left(word1.tables(1).cell(2, 5).Range.Text, Len(word1.tables(1).cell(2, 5).Range.Text) - 1))
.Range(&g& & j) = Val(Replace(Left(word1.tables(1).cell(2, 8).Range.Text, Len(word1.tables(1).cell(2, 8).Range.Text) - 1), &,&, &&))
阅读权限95
在线时间 小时
学习一下。。。。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师急急！！电子表格中数字变成文本格式，如何转换成数值进行运算？_百度知道excel表格中文本如何转换为数字_百度知道如何解决excel中输入数字变成E+_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
如何解决excel中输入数字变成E+
上传于||暂无简介
阅读已结束，如果下载本文需要使用0下载券
想免费下载更多文档？
定制HR最喜欢的简历
下载文档到电脑，查找使用更方便
还剩2页未读，继续阅读
定制HR最喜欢的简历
你可能喜欢excel怎么打上去的数字会变？_百度知道

我要回帖

更多关于 openoffice多线程转换 的文章

 

随机推荐