有关excel，请问如何将excel表导入到paradox表中，急切恭候答案！(50分)

有关excel，请问如何将excel表导入到paradox表中，急切恭候答案！
能给个源代码么？急用！

var msexcellevariant;
i,j:integer;
temp:string;
wbook,wsheetlevariant;
begin
msexcel:=createoleobject('excel.application');
wbook:=msexcel.application;
wbook.visible:=false;
wbook.workbooks.open('c:/*.xls');
wsheet:=wbook.activatesheet;
for i:=1 to wsheet.rows.count-1 do
begin
table.append;
for j:=1 to wsheet.columns.count do
begin
temp:=wsheet.cells[i,j].value;
if trim(temp)='' then goto ph:
table.fields[j-1].asstring:=temp;
end;
ph: if trim(wsheet[i,j].value='' then break;
end;
wsbook.save('c:/*.xls');
msexcel.quit;

基本同意楼上，但采用楼上方法的前提是先建好数据库，并且字段跟Excel是对应，稍微机械了些，
更灵活的方法是读出Excel和数据库的字段列表，自己来确定读入的字段以及顺序。

ugvanxk的也不失为一种好办法，如果你要写一个很智能的程序，工作量很大，这个我以前
作过，现在的程序有4000多行。（当然，包括相互之间的互导）

可以　打开　EXCEL 表　直接转换成paradox呢！－－－这无疑是最方便的！

我写了一个程序就有这样的转换例子，有源代码。
http://www.delphibbs.com/delphibbs/dispq.asp?lid=907809

用ADO可以直接从Excel中读出数据你可以试一下

smimport控件：
http://202.117.210.31/softdownload.asp?no=110
可以把数据从excel导入到dataset