要循环打开四个excel表从中读取数据到sql server7.0(100分)

要循环打开四个excel表从中读取数据到sql server7.0中
现已可分别读取且结果正确，但将之合并后出现问题：
报错：list index out of bounds(0)
估计是打开excel表一后，不能将之关闭的原因；
代码如下，请各位大虾不吝赐教：
ExcelApp:=createoleobject('Excel.Application'); //打开第一个表
MyWorkBook:=createoleobject('Excel.Sheet');
...
MyworkBook:= ExcelApp.workBooks.Open( str );
append;
Fields[1].asdatetime :=strtodatetime(MyWorkBook.WorkSheets[1].Cells[2,12].Value);
...
post;
MyworkBook.close(false,emptyparam,false);
MyworkBook:=unassigned;
...
或 MyworkBook:= ExcelApp.workBooks.open(str);
append;
Fields[1].asdatetime :=strtodatetime(MyWorkBook.WorkSheets[1].Cells[2,12].Value);
...
或MyworkBook:= ExcelApp.workBooks.add(str);
append;
Fields[1].asdatetime :=strtodatetime(MyWorkBook.WorkSheets[2].Cells[2,12].Value);
都不行！

你为什么不提前让别人回答呢，替你提前一次吧
顺便听课

接受答案了.