Excel.WorkBooks.Open('a.xlt') 으로 해서 한번 해보세요..

즐거운 프로그래밍 하시구요~

물론 해봤죠...근디 새로 WorkBook를 여는 것이 하니구 단순하게 Sheet를 추가하고 싶거든요...엑셀에서 Sheet 추가하듯이....
근디 그것이 특정한 양식을 가진 Sheet였슴 한다는...

아래 내용을 참고 해 보세요..

Sheet 를 추가하는 형식을 뉴스그룹에서 검색해서 나온 결과물 중에 하나입니다.

참고하시고, 즐거운 프로그래밍 하세요~

procedure TfrmMainLanck.sbtnPrinFormClick(Sender: TObject);
var Excel, Sheet : variant;
    ActiveDataSet : TDataSet;
    T : TBookMark;
    Row,Col,i : longint;
begin
  if ActiveMDIChild=nil then
   begin
    Application.MessageBox('Нет активных окон','ВНИМАНИЕ !',0);
    Exit;
   end;
  if not(ActiveMDIChild.ActiveControl is TDBGrid) then
   begin
    Application.MessageBox('Установите фокус на набор данных','ВНИМАНИЕ
!',0);
    Exit;
   end;
  ActiveDataSet:=(ActiveMDIChild.ActiveControl as
TDBGrid).DataSource.DataSet;
//
  if SetThreadLocale($409) then          // Работаем английскими
командами
   begin
    try
     Excel:=GetActiveOleObject('Excel.Application'); // Попробовать
найти если есть
    except
     Excel:=CreateOleObject('Excel.Application');  // Создать экземпляр
Excel
    end;
    try
     Excel.Visible:=true;
     Sheet:=Excel.Workbooks.Add(-4167);           // Создать экземпляр
Sheet
    except
     Application.MessageBox('Не удается открыть Excel','ВНИМАНИЕ !',0);
     Exit;
    end;
    T:=ActiveDataSet.GetBookmark;
    ActiveDataSet.DisableControls;
    ActiveDataSet.First;
    // Вывести заголовки строк
    Col:=1;
    for i:=0 to ActiveDataSet.FieldCount-1 do
     begin
      if ActiveDataSet.Fields[i].Visible then
       begin
      
Sheet.ActiveSheet.Cells[1,Col].Value:=ActiveDataSet.Fields[i].DisplayName;
      
Sheet.ActiveSheet.Cells[1,Col].ColumnWidth:=ActiveDataSet.Fields[i].DisplayWidth;
        Inc(Col);
       end;
     end;
    Row:=3;                      // Первая строка
    while not(ActiveDataSet.EOF) do
     begin
      Col:=1;
      for i:=0 to ActiveDataSet.FieldCount-1 do
       begin
        if ActiveDataSet.Fields[i].Visible then
         begin
        
Sheet.ActiveSheet.Cells[Row,Col].Value:=ActiveDataSet.Fields[i].AsString;
          Inc(Col);
         end;
       end;
      ActiveDataSet.Next;
      Inc(Row);
     end;
    ActiveDataSet.GotoBookmark(T);
    ActiveDataSet.EnableControls;
    ActiveDataSet.FreeBookmark(T);
   end
  else               // Если не удалось установить работу с английскими
командами
   begin
    Application.MessageBox('Не удается локализовать Excel','ВНИМАНИЕ
!',0);
    Exit;
   end;
end;