Форум программистов [Powered by Invision Power Board]

Код

Procedure .......
  ExcelApp.Connect;
   while finish>0 do
     begin
       try
         ExcelApp.WorkBooks.Open(Path,
                        EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam, 
                        EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam, 
                        EmptyParam,EmptyParam{,EmptyParam,EmptyParam},0);         
         ExcelApp.Application.EnableEvents := false; 

         WorkBk := ExcelApp.WorkBooks.Item[1{i}];    

         For i:=1 to WorkBk.Worksheets.Count do
           begin
             WorkSheet:=WorkBk.WorkSheets.Get_Item(i) as _WorkSheet;
             if WorkSheet.Name = SheetName then
               begin
                 bNaydeno:=True;
                 WorkSheet.Activate(LOCALE_USER_DEFAULT);  
               end;
             if bNaydeno then break;
           end;
//-----------------------------------------------------
         if cb1.Checked then           //rep1
           begin        
             WorkSheet.Range['B2',EmptyParam].QueryTable.Refresh(false);
             progress.Progress:=progress.Progress+p_tmp div 2;
             WorkSheet.Range['B29',EmptyParam].QueryTable.Refresh(false);
           //  progress.Progress:=position+p_tmp;
             progress.Progress:=30;
             cb1.State:=cbGrayed;
           end
         else
//      . . .
         if cb6.Checked then           //rep6
           begin
              WorkSheet.Range['B4',EmptyParam].QueryTable.Refresh(false); // возникает ошибка!!!
              WorkSheet.Range['F4',EmptyParam].QueryTable.Refresh(false);
              cb6.State:=cbGrayed;
              progress.Progress:=80;
           end;
    end; // while
end; // procedure

procedure TForm1.CB1Click(Sender: TObject); // При выборе checkBox'a finish инкрементируется, при переводе в состояние cbGrayed - дерементируется
begin
  if (sender as TCheckBox).Checked then inc(finish)
  else dec(finish);
end;