提取excel表字段的问题

[superzd]

提取excel表字段采用如下方式，提取出的字段都为空，不知道为什么！高手指点下！
MyOle.WorkBooks.Open(ls_path)

IF NOT IsValid(xlsub) THEN
xlsub = CREATE OLEObject
END IF
xlsub = myole.Application.ActiveWorkbook.Worksheets[1]
long ll_excel_column
ll_excel_column=xlsub.UsedRange.Columns.Count

int s
string ls_str=''
for s=1 to ll_excel_column
ls_column_cmnt[s]=string(xlsub.cells[1,s])
if isnull(ls_column_cmnt[s]) then
messagebox("错误","要导入数据的表字段不容许为空")
myole.application.ActiveWorkbook.close(False) //关闭活动工作表
myole.quit() //关闭工作簿
IF IsValid(myole) THEN
DESTROY myole
END IF
IF IsValid(xlsub) THEN
DESTROY xlsub
END IF
setpointer(Arrow!)
return -1
end if
dw_apply.setitem(s,'join_column',ls_column_cmnt[s])
if s <> ll_columncount then
ls_str=ls_str+ls_column_cmnt[s]+"~t"+string(s)+"/"
else
ls_str=ls_str+ls_column_cmnt[s]+"~t"+string(s)
end if
next

[superzd]

没人关心一下啊？？

[ybkenan]

全部匯入就用ole_excle.activesheet.cells.copy

[sxg263]

???

[superzd]

这个以前是好的，现在就咋弄也不行了，奇怪啊！

[ajyang]

首先看看你读取出来的第一个字段是否就为空了!
如果不为空最好在语句dw_apply.setitem(s,'join_column',ls_column_cmnt[s])
上面一行增加messagebox("提示",ls_columm_cmnt[s]),看看是否整个for循环都有值,
如果有值,说明dw_apply.setitem(s,'join_column',ls_column_cmnt[s])有问题.
考虑datawindow.accepttext();

[AFIC]

建议你debug跟一下，缩小一下可能出错的代码范围。

[superzd]

第一个数据就取不到，如果去掉哪个判断语句，
if isnull(ls_column_cmnt[s]) then
messagebox("错误","要导入数据的表字段不容许为空")
myole.application.ActiveWorkbook.close(False) //关闭活动工作表
myole.quit() //关闭工作簿
IF IsValid(myole) THEN
DESTROY myole
END IF
IF IsValid(xlsub) THEN
DESTROY xlsub
END IF
setpointer(Arrow!)
return -1
end if
则取到的所有值都为空！郁闷啊！

[superzd]

问题解决了ls_column_cmnt[s]=string(xlsub.cells[1,s])
这里应该是ls_column_cmnt[s]=string(xlsub.cells[1,s].value)
真晕