ApplicationExcel: OleVariant;
  ApplicationExcelWorkBook: OleVariant;
  ApplicationExcelWorkSheet: OleVariant;

      result := CreateOleObject('Excel.Application');

ApplicationExcel := CreateExcel;
 if   not  VarIsEmpty(ApplicationExcel)  and   not  VarIsNull(ApplicationExcel)   then 

 procedure  TfmFromExcel.btn_ProverkaExecute(Sender: TObject);
 var 
  Import: TImport;
  __CountRange: word;
  ApplicationExcel: OleVariant;
  ApplicationExcelWorkBook: OleVariant;
  ApplicationExcelWorkSheet: OleVariant;
 begin 
   if  (L_PATH.Caption <> '')  then 
   begin 

      ApplicationExcel := CreateExcel;
       if   not  VarIsEmpty(ApplicationExcel)  and   not  VarIsNull(ApplicationExcel)   then 
       begin 
        ApplicationExcelWorkBook := OpenWorkBook(ApplicationExcel, L_PATH.Caption);
         if   not  VarIsEmpty(ApplicationExcelWorkBook)  then    //L_Excel_File.Caption := ExtractFileName(L_PATH.Caption); 
         begin 
          PB_Sheet_MAX( CountSheets(ApplicationExcelWorkBook) );
          PB_Sheet_MAX(  1  );
          PB_Sheet.Min :=  1 ;
          PB_Sheet.Position := PB_Sheet.Min;
           // *********************************************** 

           for  NSheet :=  1   to  CountSheets(ApplicationExcelWorkBook)  do 
           begin 
            L_Excel_Page.Caption := IntToStr(NSheet) + ' / ' + IntToStr( CountSheets(ApplicationExcelWorkBook) );

            PB_Function_MAX( 19 );  // 19 операций 

            Row_Null :=  0 ;
            Col_Null :=  0 ;

            ___ColInEXCEL :=  1 ;
            ___RowInEXCEL :=  1 ;

            Import := TImport.Create;
            PB_Function_INC();  //  *** 

             // установка типов для массиов значений 
            Import.RangeType := ' ';
            Import.IDType := 'I';
            Import.ValueType := 'F';
            Import.SourceType := 'S';
            Import.UnitType := 'S';
            Import.IndexType := 'S';
            Import.IndustryType := 'S';
            Import.DateType := ' ';

             // режим поиска ошибок 
            Import.DEBUG_MODE := CB_debug.Checked;

             // цвета 
            Import.Color_Selection := chk_SetColorType.Checked;
            Import.Color_Insert := col_New.Color;
            Import.Color_Update := col_Upd.Color;
            Import.Color_Error := col_Err.Color;
            Import.Color_Type_ID := col_Type_ID.Color;
            Import.Color_Type_Index := col_Type_Index.Color;
            Import.Color_Type_Region := col_Type_Region.Color;
            Import.Color_Type_Source := col_Type_Source.Color;
            Import.Color_Type_Industry := col_Type_Industry.Color;
            Import.Color_Type_Unit := col_Type_Unit.Color;
            Import.Color_Type_Date := col_Type_Date.Color;
            Import.Color_Type_Value := col_Type_Value.Color;

            Import.CurrentSheet := NSheet;
            ApplicationExcelWorkSheet := GetSheet(ApplicationExcel, NSheet);

            LB_LOG.Items.Add(TimeToStr(Now)+'| Страница: '+IntToStr(NSheet));
 //            Application.ProcessMessages; 

 //             ********** Распознание ячеек ********** 
            GetValueOfRange( Import, ApplicationExcel );

             // предварительное распознание ячеек 
            FirstCheckValue( Import, ApplicationExcel );

             if  (Import.IndexCount =  0 )  then  LB_LOG.Items.Add(TimeToStr(Now)+'| ОШИБКА! Не обнаружено ни одного показателя');
             if  (Import.DateCount =  0 )  then  LB_LOG.Items.Add(TimeToStr(Now)+'| ОШИБКА! Не обнаружено ни одной даты');
             if  (Import.SourceCount =  0 )  then  LB_LOG.Items.Add(TimeToStr(Now)+'| ОШИБКА! Не обнаружено ни одной даты');
             if  (Import.UnitCount =  0 )  then  LB_LOG.Items.Add(TimeToStr(Now)+'| ОШИБКА! Не обнаружено ни одной единицы измерения');
             if  (Import.ValueCount =  0 )  then  LB_LOG.Items.Add(TimeToStr(Now)+'| ОШИБКА! Не обнаружено ни одного значения');

            PrintValues(Import, ApplicationExcel);

             if  (chk_CheckValue.Checked)  then 
             begin 
              __CountRange := Import.ValueCount;
              LB_LOG.Items.Add(TimeToStr(Now)+'| Проверка значений '+IntToStr(__CountRange));
              PB_Range_MAX(__CountRange);
               while  __CountRange >  0   do 
               begin 
                __CountRange := Import.TestRange(ApplicationExcel, chk_InsertDB.Checked);
                PB_Range_INC(__CountRange);
               end ;
             end ;
            PB_Function_INC();  //  *** 

             // Не распознанные ячеки выделяем красным цветом 
             if  (chk_SetColor.Checked)  and  (Import.RangeCount> 0 )  then 
               for  i :=  0   to  Import.RangeCount- 1   do 
               begin 
                ___Range := Import.GetRange(i);
                SetPatternRange(ApplicationExcelWorkBook, ___Range.Range,  0 ,  0 ,  0 , col_Err.Color,  0 );  // Красный 
               end ;  // end 
            PB_Function_INC();  //  *** 

             if  ( chk_SaveLOG.Checked )  then  Import.LOG_SaveToFile(IMPORT_LOG_FILE);
            PB_Function_INC();  //  *** 

            Import.Free;

            PB_Sheet_INC();

 //            Application.ProcessMessages; 
           end ;  // for NSheet := 1 to CountSheets(ApplicationExcelWorkBook) do 

           if  (RB_Visible.Checked)  then  VisibleExcel(ApplicationExcel, true);

          act_EXCEL_CloseNSExecute( nil );

           // ********************************************** 
         end   else  showmessage('Книга не открыта');
       end   else  showmessage('EXCEL не создан');

   end ;  // if (L_PATH.Caption <> '') 

 end ;

 function  CreateExcel: OleVariant;
 begin 
   // Ищем запущеный экземпляр Excel, если он не найден, вызывается исключение 
  result := null;

     try 
      result := GetActiveOleObject('Excel.Application');
     except 

       try 
        result := CreateOleObject('Excel.Application');
       except 

       end ;

     end ;
 end ;

 function  CountSheets(XlsBook: OleVariant): integer;
 begin 
  result := - 1 ;
   if   not  VarIsEmpty( XlsBook )  then 
     try 
      result := XlsBook.Sheets.Count;
     except 
       raise  Exception.Create('Ошибка доступа OLE-объекта в функции CountSheets.');
     end ;
 end ;

 function  GetSheet(Excel: OleVariant; sheet_number: word): OleVariant;
 begin 
  result := Unassigned;
   if   not  VarIsEmpty( Excel )  then 
     try 
      result := Excel.Sheets.Item[ sheet_number ];
     except 
       raise  Exception.CreateFmt ('Ошибка доступа OLE-объекта в функции GetSheet (Param:%d)',[sheet_number]);
     end ;
 end ;

 function  SetRange(XlsSheet: OleVariant; range: OleVariant; value_: OleVariant): boolean;
 begin 
  result := false;
   if   not  VarIsEmpty( XlsSheet )  then 
   try 
    XlsSheet.range[range, EmptyParam].Value := value_;
    result := true;
   except 
     raise  Exception.Create('Ошибка доступа OLE-объекта в функции SetRange.');
   end ;
 end ;

 function  GetRange(XlsSheet: OleVariant; range:  string ): OleVariant;
 begin 
  result := Unassigned;
   if   not  VarIsEmpty( XlsSheet )  then 
     try 
      result := XlsSheet.range[range, EmptyParam].Value;
     except 
      result := Unassigned;
       raise  Exception.Create('Ошибка доступа OLE-объекта в функции GetRange.');
     end ;
 end ;

 function  VisibleExcel(Excel: OleVariant; visible: boolean): boolean;
 begin 
  result := false;
   if   not  VarIsEmpty( Excel )  then 
     try 
      Excel.visible := visible;
      result := true;
     except 
     end ;
 end ;

 function  OpenWorkBook(Excel: OleVariant; file_:  string ): OleVariant;
 begin 
   if   not  VarIsEmpty( Excel )  then 
   begin 
    OpenedWorkBook( Excel , file_);
    result := true;
     try 
      result := Excel.Workbooks.Open(file_);
     except 
      result := null;
     end ;
   end ;
 end ;