本人是初学者，请教各位关于从excel表至delphi的数据整表导入(最好是delphi4),谢谢!(80分)

如何在delphi(最好为delphi4中)将excel工作表中的数据导入delphi的表中,再导入oracle表中的相应列中。如在excel表中的数据如下：
班级 人数 平均分
一班 36 92
二班 32 86
三班 28 96
现要将此数据导入oracle中表结构为班级、人数、平均分三列的表中，问在delphi中应作如何操作?

先把excel工作表另存为Delphi能认的，如dbf表什么的，再用datapump应该能行吧。

给EXCEL建立一个ODBC连接
然后可以作为一般的数据库操作

谢谢Billy,不过我要在delphi一方作转换,而excel表不做任何形式的转换,你有办法吗？

wrench你好，由于我手中没有现成的参考书，你能否将建立ODBC的步骤告诉我，谢谢!

//ExcelWorkSheet.Cells.Item[2,2]=36

with ExcelWorkSheet.Cells do
begin
while Item[2,i]<>'' do
begin
Table.FieldByName('MyField').Asstring:=Item[2,i]
...
i:=i+1;
end;
end;

uses forms,Dialogs,grids,Graphics,windows,SysUtils, AxCtrls,comobj,OleCtrls,VCF1;
Const
xlDiagonalDown = 5;
xlDiagonalUp = 6;
xlEdgeLeft = 7;
xlEdgeRight = 10;
xlEdgeTop = 8;
xlEdgeBottom = 9;
xlInsideHorizontal = 12;
xlInsideVertical = 11;
xlNone = -4142 ;
xlContinuous = 1;
XLCENTER=-4108;
procedure printpay23(kind:integer);
var
i,j:integer;
typef:smallint;
msexcellevariant;
wbook,wsheetlevariant;
inputstring:string;
begin
MsExcel:= CreateOleObject('Excel.Application');
WBook:=MsExcel.Application;
WBook.Visible:= True;
wbook.workbooks.Open(ExtractFileDir(paramstr(0))+'/pay23.xls');
WSheet:=WBook.ActiveSheet;
for i:=1 to 100
for j:=1 to 100
temp:=wsheet.cells[i,j].vaule;

end;
end;

控制面板->ODBC32-系统DSN->添加 (填好各个空格,选取数据库文件，然后单几
确定即可）

各位：我现在用你们提供的方法去试一试，有消息告诉大家，如有新方法请通知我，谢谢!

多人接受答案了。

谢谢各位，已成功，以后请多关照!