易截截图软件、单文件、免安装、纯绿色、仅160KB

[求助]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为数据类型



呵呵,谢谢大家热心帮忙啦!


相关问答:

【急求】VB中使用WScript调用外部命令 - VB / 基础类

在下是vb的新手,想写段程序,在vb中,使用wscript调用一些外部的命令,但是程序执行一直有错误,请各位高手帮忙解答下,谢谢。
代码如下:
VB code:

Private Function getFile_CMD(filename, filepath) As Bo ......

VB 的 PictureBOX 控件绘图问题 - VB / 控件

初学,大胆提问,请高手不吝赐教
1、滚动条点击与绘图板(屏幕,Piceure1)的移动问题已经解决。
  Picture1.Top = -VScroll1.Value + bcW '垂直移动
  Picture1.Left = -HScroll1.Value + bcW ' ......

vb - VB / 基础类

在vb中如何读取Word内容(包含表格,图片,等)
竟然不是zero。

不知道怎么实现的不要说话

这个只能读文本,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......

vb - VB / 基础类

xmlDoc1.loadXML(h)总是返回false,为什么?谢谢帮忙回答一下
h是什么呢。。。。。。。。。

h是xml格式的字符串

你是想打开。XML格式的文件吧?

我是把h放在xmlDoc1里,用xmlDoc1.loadXML(h),然后取xmlDo ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号