execl导入dw中的问题？
我利用代码将execl中的数据导入到dw中，代码如下：
if messagebox("提示","请确认是否导入的全部数据?",question!,yesno!,2) =2 then return
OLEObject io_Object,io_Book,io_Sheet
double gou_qn ,gou_qnl,gou_jnlj,yong_jnlj,sun_jnlj,gou_qnlj,gou_qnljl,ll_zb,gou_jnby,yy_jnby,tts_jnby,yong_jnby,ss_jnby,ssl_jnby,ssl_qj_jnby
integer li_ret ,ll_return,li_int,li_count
string ls_filename,ls_pathname,ls_xianluming,ls_xianluming_ex,ls_leixing
io_Object = CREATE OLEObject
li_Ret = io_Object.ConnectToObject("","Excel.Application")
IF li_Ret <> 0 THEN
li_Ret = io_Object.ConnectToNewObject("Excel.Application")
IF li_Ret <> 0 THEN
MessageBox('提示','OLE无法连接!错误号：' + string(li_Ret))
RETURN
END IF
io_Object.Visible = FALSE
END IF
ll_return = GetFileOpenName("Select File",ls_pathname, ls_filename,"xls","xls Files (*.xls),*.xls")
IF ll_return = - 1 THEN return
io_Book = io_Object.WorkBooks.Open(ls_pathname,0,true)
IF ISNULL(io_Book) THEN
RETURN
END IF
io_Sheet = io_Book.WorkSheets(1)
setpointer(HourGlass!)
for li_count = 1 to 140 //行数
for li_int = 1 to 8 //列数
ls_xianluming_ex = string(io_Object.activesheet.cells(li_count,li_int).value)
if ls_xianluming_ex = '' or isnull(ls_xianluming_ex) then continue
next
next
每次ls_xianluming_ex取值时都只是取4个汉字，还会出现乱码，请问如何才能把框中的内容全部取到？谢谢！
问题点数：0、回复次数：2Top
1 楼dingzhaofeng（Alading）回复于 2003-11-02 20:54:56 得分 0
用数据管道试过了吗？Top
2 楼ora9i（^_^）回复于 2003-11-03 09:38:41 得分 0
数据管道，那不是还要用到ODBC吗？
请教各位！Top
