如何使用OLE编程实现将Excel的*.xls文件转化为数据库文件*.db的格式？(200分)

如何使用OLE编程实现将Excel的*.xls文件转化为数据库文件*.db的格式？
麻烦请给一个DEMO好么！本人急用，非常感谢！！

请到我的主页windstorm2000.yeah.net上-->风之宝物-->编程技巧去找相关答案
网络太慢了，只好请你自已去找，我就不贴出来了，不好意思！

愿闻其详。

这个行的通，参考一下吧。table1 是 DBDemos 下的 animals.dbf
D4 下调试通过。

procedure TForm1.Button2Click(Sender: TObject);
var
ExcelApp,MyWorkBook:Variant;
i :byte;
s: string;
begin
try
ExcelApp:=CreateOleObject('Excel.Application');
MyWorkBook:=CreateOleobject('Excel.Sheet');
except
on Exception do raise exception.Create('无法打开Xls文件，请确认已 经安装EXCEL')
end;
ExcelApp.Visible := true;
ExcelApp.WorkBooks.Open('C:/my documents/book1.xls');
MyworkBook:=ExcelApp.workBooks[1];

for i := 1 to 3 do begin
table1.Append;
table1.fieldbyname('name').AsString := MyWorkBook.WorkSheets[1].Cells[i,2].Value;
table1.fieldbyname('size').Asinteger := MyWorkBook.WorkSheets[1].Cells[i,3].Value;
table1.fieldbyname('weight').AsString := MyWorkBook.WorkSheets[1].Cells[i,4].Value;
table1.post
end;
end;

我用DELPHI5试了，但是不行！
错误显示： 'creatoleobject'没有声明

在uses中加入comobj;

dfsdf

清华的斑竹答疑一书中有相关的问题,你将那个处理过程反过来就行了,我使过,没问题.在应用中你可以将excel看成stringGrid即可.

多人接受答案了。