读书人

vb怎么读取excel单元格的时间

发布时间: 2012-01-24 23:11:54 作者: rapoo

vb如何读取excel单元格的时间!
excel表中有一列设定的是时间类型,数据为
13:20
14:10
15:20
....

用vb读该单元格时,读出的数据被转换成了小数,如0.95666
如何解决呢?

[解决办法]
用text1.text=Range( "A1 ").text的形式就可以,用text1.text=Cells(1,1)就是小数,可能是Excel有潜在的规则吧
[解决办法]
日期时间类型实际上就是 Double 型数字,整数部分解释为日期,小数部分解释为时间。

?cdate(0.95666)
22:57:35

实际上也可以用小数乘以 86400 秒,再换算成时分秒。


[解决办法]
使用 Range 对象的 .Text 属性而非 .Value 属性来读取单元格的值即可:

Dim sText As String

sText = Selection.Text

'或者
sText = Cells(3, 3).Text

Debug.Print sText

读书人网 >VB

热点推荐