[求助]VB获取Excel数据的问题

Excel表内有一内容为01.00，通过VB进行读取，但独到的数值为1，VB使用字符型对Excel读到的数据进行存储。
有什么方法能保证读取前后内容的一致性呢？求教啦！
先谢过！

---

单独读取数据是不行的.还需要读取该CELL的格式.
而且要看你储存的是什么格式,除了char/nchar等字符型栏位,其他的就要看本身在数据库里面定义的数据类型与格式.
比如虽然CELL中存的是01.00,但存入数据库中的栏位格式是Numeric(5,2),其就会变成 1.00

---

原来的读取方式:Ex_dh(i) = Excelsheet.Cells(i, 1)
更改后的读取方式:Ex_dh(i) = Excelsheet.Range("A" & i).Text
问题解决,呵呵,谢谢啦.

---

引用

原来的读取方式:Ex_dh(i) = Excelsheet.Cells(i, 1)
更改后的读取方式:Ex_dh(i) = Excelsheet.Range("A" & i).Text
问题解决,呵呵,谢谢啦.

就是应该读取 .Text 。
恭喜楼主…………

---

使用Variant变量数组存取从excel中的得到数据。使用TypeName（）判断类型即可。
例如：
dim a(5)
dim b as string 
a(0)=Excelsheet.Cells(i, 1)
b=typename(a(0))'b为数据类型

---

呵呵，谢谢大家热心帮忙啦！