PB从EXCEL中导入数据到数据窗口的程序(2)

cfc_exceltodw(datawindow adw, string excelname)
参数是导出的dw和excel文件的完整路径

OLEObject ole_object
ole_object = CREATE OLEObject
integer li_ret1,value
string named

li_ret1 = ole_object.ConnectToObject("","Excel.Application")
IF li_ret1 = 0 THEN
value = MessageBox("提示", "你已打开Excel(注意保存),关闭吗?", Question!, YesNo!)
if value = 1 then
ole_object.quit()
ole_object.disconnectobject()
else
return 0
end if
end if

value = GetFileOpenName("Select File", excelname, named, "XLS", "Excel Files (*.XLS),*.XLS")
if value<>1 then
return 0
end if

li_ret1 = ole_object.ConnectToNewObject("Excel.Application")
if li_ret1 <>0 then
MessageBox('提示','OLE无法连接Execl!')
return 0
end if

openwithparm(w_daopop,1)
w_daopop.st_2.text='正在准备......'

ole_object.workbooks.open(excelname)
int rtn,i,j

long ll_colnum,ll_rownum
string ls_value

string ls_objects,ls_obj,ls_objs[],ls_objtag[]
long ll_pos,ll_len,ll_num = 0,ll_obj[]

ls_objects = trim(adw.Describe('datawindow.Objects'))+"~t"

do while (pos(ls_objects,"~t") > 0)
ll_pos = pos(ls_objects,"~t")
ll_len = ll_pos - 1
ls_obj = left(ls_objects,ll_len)
if (adw.Describe(ls_obj + '.type') = 'column' or adw.Describe(ls_obj + '.type') = 'compute') and (adw.Describe(ls_obj + '.band') = 'detail') and (ls_obj <> "asd") then
ll_num += 1
ls_objs[ll_num] = ls_obj
ls_objtag[ll_num] = adw.Describe(ls_obj + '_t.text')
end if
ls_objects = right(ls_objects,len(ls_objects) - ll_pos)
loop

string str,strtype
j=1
getremote("r1c1",str,"excel",excelname)
str= lower(left(trim(str),len(str)-2))
if len(str)=0 then
messagebox("错误","没有表头数据!")
ole_object.quit()
ole_object.disconnectobject()
destroy ole_object
close(w_daopop)
return 0
end if

do while len(str)>0
i=1
do while lower(trim(ls_objtag[i])) <> str
   i= i+1
if i > ll_num then
messagebox("错误","没有找到"+str+"列!")
ole_object.quit()
ole_object.disconnectobject()
destroy ole_object
close(w_daopop)
return 0
end if
loop
ll_obj[j]=i
j=j + 1
getremote("r1c"+string(j),str,"excel",excelname)
str= lower(left(trim(str),len(str)-2))
loop
ll_num = j - 1
i=2
getremote("r"+string(i)+"c1",str,"excel",excelname)
str= left(str,len(str)-2)
do while len(str)>0
ll_rownum=adw.insertrow(0)
w_daopop.st_2.text='正在导入第'+string(i - 1)+'条记录......'
for j=1 to ll_num
getremote("r"+string(i)+"c"+string(j),str,"excel",excelname)
str= left(str,len(str)-2)
strtype = adw.Describe( ls_objs[ll_obj[j]] + '.coltype')
ll_pos = pos(strtype,"(")
if ll_pos<>0 then strtype=left(strtype,ll_pos - 1)
CHOOSE CASE strtype
CASE 'number','decimal','long'
adw.setitem(ll_rownum,ll_obj[j],dec(str))
case 'date'
adw.setitem(ll_rownum,ll_obj[j],date(str))
case 'datetime'
adw.setitem(ll_rownum,ll_obj[j],datetime(date(str)))
CASE ELSE
adw.setitem(ll_rownum,ll_obj[j],str)
END CHOOSE
next
i=i+1
getremote("r"+string(i)+"c1",str,"excel",excelname)
str= left(str,len(str)-2)
loop
ole_object.quit()
ole_object.disconnectobject()
destroy ole_object
close(w_daopop)
return 1