高手请进!!!!问题解决不了...在线等!!!!

[rock1124]

我用VB写的一个小软件抓取EXCEL表中的资料,现在出现某个问题不知道如何解决,故请高手帮忙解决!
在VB连到EXCEL表..在EXCEL表中的某个字段A ,在A字段下面有一些值,
例如:
EXCEL表
合同号 种类 标准 厚度 宽度 单价....
XXXX ASXX 321 3.75 1520 27000
XXX ASXX 321D 3.75 1520 27000
连接EXCEL表查询
sql_130 = " select * from [sheet1$]"
rs_130.Open sql_130, con_e1, 3, 3
.........
..
MSGBOX RS_130(2)

为什么RS_130(2)中的值是NULLH或者空白 为什么不是321? 而在"标准"下面的值加个字母D,RS_130(2)就能显示出来?而厚度,宽度,单价都可以显示,为什么321就不能显示?急.....

[饮水需思源]

将与EXCEL的连接改下如下的试试：
建立与EXCEL文件的连接
dim ac_EXCEL as new adodb.connection
With ac_EXCEL
.CursorLocation = adUseClient
If .State = adStateOpen Then .Close
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\text.xls;Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1"""
.Open
.CommandTimeout = 300
End With

[rock1124]

TO Leftie(左手,为人民币服务)
我设置的EXCEL的文件并不是指定路径的...


If tran_file <> "" Then
constr_e1 = "Provider=MSDASQL.1;Persist Security Info=True;Data Source=XLSTORDB"
constr_e2 = "Provider=MSDASQL.1;driver={microsoft excel driver (*.xls)};DBQ=" & tran_file & ";DefaultDir=;"

con_e1.Open constr_e2
con_e2.Open constr_e2

然后下面就是连接EXCEL表的SQL语句了..