这是将EXCEL导入SQLSEVER的代码，但我有一些问题，试了多次都没有解决。希望会的朋友帮我看看。

代码如下：
procedure TForm1.Button1Click(Sender: TObject);
var ExcelApp,MyWorkBook: OLEVariant;
    i,j: Integer;
begin
    try
      ExcelApp:=CreateOleObject('Excel.Application');
      MyWorkBook:=CreateOleobject('Excel.Sheet');
    except
      application.Messagebox('无法打开Xls文件请确认已经安装EXCEL.','',
           mb_OK+mb_IconStop);
      Exit;
    end;
    //ExcelApp.Visible := true;
    if OpenDialog1.Execute then
    MyworkBook:= ExcelApp.workBooks.Open(OpenDialog1.FileName);
    for i := 2 to 10 do begin  //这里要怎么写才能让EXCEL里的数据集依次导入？
        adotable1.Append;
        adotable1.FieldByName('Name').AsString := MyWorkBook.WorkSheets[1].Cells[i,1].Value;
        adotable1.FieldByName('type').AsString := MyWorkBook.WorkSheets[1].Cells[i,2].Value;
        adotable1.FieldByName('area').AsString := MyWorkBook.WorkSheets[1].Cells[i,3].Value;
        adotable1.FieldByName('Area_no').AsString := MyWorkBook.WorkSheets[1].Cells[i,4].Value;
        adotable1.FieldByName('piece').AsString := MyWorkBook.WorkSheets[1].Cells[i,5].Value;
        adotable1.FieldByName('min').AsString := MyWorkBook.WorkSheets[1].Cells[i,6].Value;
        adotable1.FieldByName('fee').AsString := MyWorkBook.WorkSheets[1].Cells[i,7].Value;
    end;
    ExcelApp:=Unassigned; //释放VARIANT变量
end;
－－－－－－－－－－－－－－－－－－－－－－－－－
问题是：
no.1 for i := 2 to 10 do 这里要怎么写循环才能让EXCEL里的数据依次导入到SQL里？
no.2 这里的表是已经事先做好的，我要怎么做才能在把EXCEL里的数据导入到SQL数据库里时自己建立一个表？表名要自己来写。