Сводная таблица в Excel

[Efesia]

Доброго времени суток.
Помогите пожалуйста. Мне нужно, чтобы сводная таблица изменялась вместе с изменением данных в исходной таблице. Подскажите как это можно сделать?

[Gregorian]

Дабы не флудить, отпишусь здесь

Гляжу сюда http://www.olap.ru/desc/microsoft/creat_olap.asp

Пишу

unit LABAOLAP;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, Menus, OleCtnrs;

type
  TForm1 = class(TForm)
    OleContainer1: TOleContainer;
    MainMenu1: TMainMenu;
    Panel1: TPanel;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1:tform;
 WB : Variant; //объект Workbook
 PC : Variant; //объект PivotCache
 PT : Variant; //объект PivotTable

 const
 xlConsolidation = $00000003;
 xlDatabase = $00000001;
 xlExternal = $00000002;
 xlPivotTable = $FFFFEFCC;
 xlCmdSQL  = $00000002;

  //ODBC-источник для создания сводных таблиц
 ODBC_DSN = 'LabBase';
 // Местоположение файла LabBase.mdb
 DB_Path = 'C:\';

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
// Создаем объект в OLE-контейнере
  OleContainer1.CreateObject('Excel.Sheet',False);
  WB := OleContainer1.OleObject;
// Добавляем новый объект PivotCache
 PC := WB.PivotCaches.Add(xlExternal);
 PC.Connection := 'ODBC;DSN='+ODBC_DSN;
 PC.CommandType := xlCmdSql;
PC.CommandText := 'SELECT Market_name, Market_type,'+
' Terminal,'+
' Sell, Cash, '+
' Nocash'+
' FROM "'+DB_Path+'LabBase" ';

PC.CreatePivotTable(WB.Worksheets[1].Cells[3,1],'PivotTable1');
PT := WB.Worksheets[1].PivotTables('PivotTable1');

end;

end.

имею...
Открывается окно выбора источника БД при этом коде

PC.CreatePivotTable(WB.Worksheets[1].Cells[3,1],'PivotTable1');
PT := WB.Worksheets[1].PivotTables('PivotTable1');

И какая то ошибка при закрытии программы.

Код и БД на Аксесе в архиве

[Gregorian]

up, подскажите плз

[Gregorian]

нааааверххххх