读取excel中的单元格，总是不能取道完整的数据，怎么回事？

[xiaojiyi]

代码如下：

OLEObject ExcelServer

integer ExcelOK,li_value,rownumber,colnumber
string ls_aaa,ls_path,ls_name


li_value = GetFileopenName("Select File",ls_path, ls_name, "Xls", "Excel Files (*.xls),*.xls")
If li_value = 0 then
return
end if

IF li_value = -1 THEN
messagebox("Error","选择文件出错!")
return
end if


SetPointer(HourGlass!)

ExcelServer = CREATE OLEObject
ExcelOK = ExcelServer.ConnectToNewObject( "excel.application" )

if excelok<>0 then
messagebox("","连接到excel时出错！")
return
end if

ExcelServer.Workbooks.Open(ls_path,0,0)
ls_aaa=""
rownumber=excelserver.Activesheet.UsedRange.rows.count
colnumber=excelserver.Activesheet.UsedRange.columns.count
clipboard(ExcelServer.application.activeworkbook.worksheets(1).cells(1,1).value)
sle_1.paste()
//ls_aaa=getclipboarddata()
//messagebox("",ls_aaa)

excelserver.Application.quit
excelserver.DisConnectObject()
Destroy excelserver

假如单元格的内容为“用户姓名”，取道的结果经常只有“用户”两个字.
如果单元格的内容更长一点，也可以取道更多的字，但始终不能取完整。谁能告诉我这是什么原因？十分感谢。

[小潜s]

为什么要用clipboard和paste函数，直接将值写入sle不可以么
sle_1.text=ExcelServer.application.activeworkbook.worksheets(1).cells(1,1).value

[ricky_feng]

hxy75(小潜)讲得有理

[圣殿骑士18]

我测试了lz的代码，excel中的字符是：
我的祖国是花园，花园的花朵好鲜艳。啦啦啦。

结果能够全部取出。

[圣殿骑士18]

我的操作系统为w2k，excel2003

[xiaojiyi]

小潜那种写法我也试过。但是结果都是一样的，取不全。

[xiaojiyi]

我的是win2003,excel2000

[xiaojiyi]

daixf_csdn(圣殿骑士) 你用的PB是哪个版本的？我用的是6.5的