我想把数据库记录导入EXCEL/SHEET1中，现在记录超出SHEET1中的行数，怎样自动导入SHEET2中，请指教一下

Hi, 直接將目前的使用 worksheet 設為 sheet2 即可, 如:    

procedure TForm1.Button1Click(Sender: TObject);
var
  ex, wb, ws: Variant;
begin
  ex := CreateOleObject('Excel.Application');
  wb := ex.WorkBooks.Add;
  ex.Visible := true;
  ws := wb.WorkSheets['Sheet2'];
  ws.Select;    end;

我想这个BOOKSHEET为动态的，如果要导10页或者更多，应该为BOOKSHEET[i]

當然可以. 要如何使用, 端看你的需要囉. 要新增頁面的話, 也可以透過 wb.WorkSheets.Count 取得 WorkSheet 的數量, wb.WorkSheets.Add 進行新增 WorkSheet, wb.WorkSheets[n].Select 進行頁面的切換. n = 1..wb.WorkSheets.Count