DataTtable.GetCellData(1,2) 取回的值为什么不能转换成Int，Double？

hergules

set aa = Browser("首页").Page("资金管理").WebTable("保证金")
a1 = aa.GetCellData(1,2)
a2 = "9"

msgbox vartype(a1) '类型值8
msgbox vartype(a2) '类型值8

msgbox vartype(CInt(a2))  '返回值2,是Int型
msgbox vartype(CInt(a1))  '报错，CInt类型不正确

cellule

换成Clng 长整型 看看

hergules

换成Clng 长整型 看看
cellule 发表于 2012-6-1 15:47

类型不匹配 'CLong'

cellule

先取出值看看是不是有别的字符类型或者符号。。。。

hergules

先取出值看看是不是有别的字符类型或者符号。。。。
cellule 发表于 2012-6-1 17:41

确实是：数据中是“14000.00元”，多了个元，楞是没看出来，还瞎忙活了一天。

现在解决了：

    a1 = aa.GetCellData(3,2)


msgbox vartype(a1) '类型值8


msgbox a1

a3 = split(a1,"元")     
                                                         
a4 = a3(0)

msgbox a4

msgbox CDbl(a4) '报错，CInt类型不正确