如何实现读取excel表格相关数据？
我在当前窗口里有一个数据窗口，分别为学号、姓名、课程、成绩字段。我想实现从excel文件中也有相同字段，但是顺序不一样。我想在数据窗口中实现把excel文件中的这些数据追加到后面，请坛友们指点。。。。
我是新手，请给出相关代码，当然要是有现成的控件也可以，先谢谢了。。
[解决办法]
//昨天刚写了个简单的,自己用还可以
integer result
OLEObject myoleobject
myoleobject = CREATE OLEObject
result = myoleobject.ConnectToObject( "c:\2.xls")
//myoleobject.Workbooks.Open( "c:\1.xls")
long i , j
j=1
string ls_11,ls_12,ls_13,ls_14,ls_21,ls_22,ls_23,ls_24,ls_temp
string ls_t11,ls_t12,ls_t13,ls_t14,ls_t21,ls_t22,ls_t23,ls_t24
string ls_t[],ls_c[],ls_s[]
IF result = 0 THEN
for i=1 to 1739
ls_t11 =trim( string(myoleobject.application.workbooks(1). worksheets(1).cells(i,1).value))
ls_t12= trim(string(myoleobject.application.workbooks(1). worksheets(1).cells(i,3).value))
ls_t13= trim(string(myoleobject.application.workbooks(1). worksheets(1).cells(i,5).value))
ls_t14= trim(string(myoleobject.application.workbooks(1). worksheets(1).cells(i,7).value))
ls_t21 = trim(string(myoleobject.application.workbooks(1). worksheets(1).cells(i,2).value))
ls_t22= trim(string(myoleobject.application.workbooks(1). worksheets(1).cells(i,4).value))
ls_t23 =trim( string(myoleobject.application.workbooks(1). worksheets(1).cells(i,6).value))
ls_t24= trim( string(myoleobject.application.workbooks(1). worksheets(1).cells(i,8).value))
if len(ls_t11)>0 then
ls_11=ls_t11
ls_12=ls_t12
ls_13=ls_t13
ls_14=ls_t14
ls_21=ls_t21
ls_22=ls_t22
ls_23=ls_t23
ls_24=ls_t24
ls_t[j]=ls_11
ls_c[j]=ls_21
ls_s[j]="省（自治区、直辖市）地方海事局"
j++
end if
if len(ls_t12)>0 then
ls_12=ls_t12
ls_13=ls_t13
ls_14=ls_t14
ls_22=ls_t22
ls_23=ls_t23
ls_24=ls_t24
ls_t[j]=ls_11+"-"+ls_12
ls_c[j]=ls_22
ls_s[j]="省（自治区、直辖市）地方海事局-地市级地方海事机构"
j++
end if
if len(ls_t13)>0 then
ls_13=ls_t13
ls_14=ls_t14
ls_23=ls_t23
ls_24=ls_t24
if len(ls_12)>0 then
ls_t[j]=ls_11+"-"+ls_12+"-"+ls_13
else
ls_t[j]=ls_11+"-"+ls_13
end if
ls_c[j]=ls_23
ls_s[j]="省（自治区、直辖市）地方海事局-地市级地方海事机构-县级地方海事机构"
j++
end if
if len(ls_t14)>0 then
ls_14=ls_t14
ls_24=ls_t24
ls_t[j]=ls_11
if len(ls_12)>0 then
ls_t[j]+="-"+ls_12
end if
if len(ls_13)>0 then
ls_t[j]+="-"+ls_13
end if
ls_t[j]+="-"+ls_14
//if ls_14="局本部" then
//ls_c[j]=ls_22+ls_24
//else
//ls_c[j]=ls_23+ls_24
//end if
ls_c[j]=ls_24
ls_s[j]="省（自治区、直辖市）地方海事局-地市级地方海事机构-县级地方海事机构-基层站点"
j++
end if
next
END IF
for i=1 to upperbound(ls_t)
myoleobject.application.workbooks(1). worksheets(2).cells(i,1).value=ls_t[i]
myoleobject.application.workbooks(1). worksheets(2).cells(i,2).value=ls_c[i]
myoleobject.application.workbooks(1). worksheets(2).cells(i,3).value=ls_s[i]
next
DESTROY myoleobject
