为什么我从excel中导入dw的中文字符会被截取了? 急在线等。。。
xlApp = Create OLEObject
ret = xlApp.ConnectToNewObject( "Excel.Sheet" )
if ret < 0 then
MessageBox("Connect to Excel Failed !",string(ret))
return
end if
xlApp.Application.Workbooks.Open(ls_filepath)
xlsub = xlapp.Application.ActiveWorkbook.Worksheets[1]
integer li_Dislb
any la_Ddm,la_Dmc,la_Dyjyears,la_Ddw
string ls_value,ls_newdm
long li_dwrow
For r = 2 to 898
la_Ddm =xlsub.cells[r,1].value // 字符行数值
la_Dmc =xlsub.cells[r,2].value // 中文字段,这里到数据窗口就被截取了。
li_Dislb = 1
la_Ddw = xlsub.cells[r,3].value
la_Dyjyears = xlsub.cells[r,4].value
dw_1.setredraw(false)
li_dwrow = dw_1.insertrow(0)
dw_1.setitem(li_dwrow,'dm',trim(la_Ddm))
dw_1.setitem(li_dwrow,'mc',trim(la_Dmc))
dw_1.setitem(li_dwrow,'islb',li_Dislb)
dw_1.setitem(li_dwrow,'yj_years',double(la_Dyjyears))
dw_1.setitem(li_dwrow,'dw',la_Ddw)
st_1.text = '正在操作:'+'excel[' +string(r)+ '] dw='+string(li_dwrow)
dw_1.setredraw(true)
if r = 50 then
exit
end if
Next
xlApp.DisConnectObject()
Destroy xlapp