Exc = СоздатьОбъект("Excel.Application");
    Exc.Visible=1;
    РабочаяКнига = Exc.Workbooks.Add();
    РабочаяКнига.Worksheets.Add();   
    Sheet=РабочаяКнига.Worksheets(1);   
    СводныеТаблицы = РабочаяКнига.PivotCaches();
    
    СводнаяТаблица = СводныеТаблицы.Add(2,);  
    СводнаяТаблица.Connection = "ODBC;DSN=alpha;UID=econom;;APP=Microsoft Office 2003;WSID=K00565;DATABASE=total";
    СводнаяТаблица.CommandType = 2;
    СводнаяТаблица.CommandText = "SELECT НаценкаEKG.Дата, НаценкаEKG.Группа1,НаценкаEKG.Группа2, НаценкаEKG.РеализацияШт, НаценкаEKG.РеализацияРуб 
    |FROM total.dbo.НаценкаEKG НаценкаEKG WHERE (НаценкаEKG.Дата<={ts '2010-03-31 00:00:00'} And НаценкаEKG.Дата>={ts '2010-03-29 00:00:00'})";
    СводнаяТаблица.CreatePivotTable("","СводнаяТаблица1");  
    
    ГотоваяТаблица = РабочаяКнига.ActiveSheet.PivotTables("СводнаяТаблица1");
    
    ПолеДата = ГотоваяТаблица.PivotFields("Дата");
    ПолеДата.Orientation = 3;
    ПолеДата.Position = 1; 
    
    ПолеГруппа = ГотоваяТаблица.PivotFields("Группа1");
    ПолеГруппа.Orientation = 1;
    ПолеГруппа.Position = 1;
    //ПолеГруппа.Subtotals = 0;
 
  
    ПолеГруппа = ГотоваяТаблица.PivotFields("Группа2");
    ПолеГруппа.Orientation = 1;
    ПолеГруппа.Position = 1;
    //ПолеГруппа.Subtotals = 0;
 
                                 
    ПолеГруппа = ГотоваяТаблица.PivotFields("РеализацияШт");
    ПолеГруппа.Orientation = 4;
    ПолеГруппа.Position = 1;

    ГотоваяТаблица.AddDataField(ПолеРеализацияШт, "Сумма по полю РеализацияШт", -4157);