lgg

      
Если Найти(ВРег(Файл.Расширение), "XLSX") > 0  ИЛИ
         Найти(ВРег(Файл.Расширение), "XLSM") > 0 Тогда
            СтрокаПодключения = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + СтруктураПараметров.ИмяФайла;
            СтрокаПодключения = СтрокаПодключения + "; Extended Properties=""Excel 12.0 Xml;HDR=NO"";";            
      Иначе
            СтрокаПодключения = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source = " + СтруктураПараметров.ИмяФайла;
            СтрокаПодключения = СтрокаПодключения + "; Extended Properties = ""Excel 8.0;HDR=NO;IMEX=1"";";
      КонецЕсли; 
      СтрокаПодключения = СтрокаПодключения +  "Mode=ReadWrite;";

   Excel = Новый COMОбъект("Excel.Application");
   Попытка
      Excel.WorkBooks.Open(ПутьКФайлу);
      Состояние("Обработка файла Microsoft Excel...");
   Исключение         
      Сообщить("Ошибка при открытии файла с помощью Excel! Загрузка не будет произведена!");
      Сообщить(ОписаниеОшибки());
      Excel.workbooks.Close();
      Excel.Quit();
      Возврат;
   КонецПопытки;

    Connection = Новый COMОбъект("ADODB.Connection");
   СтрокаПодключения = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + ПутьКФайлу;
   СтрокаПодключения = СтрокаПодключения + "; Extended Properties=""Excel 12.0 Xml;HDR=NO"";";            
               
   Connection.Open(СтрокаПодключения);
    Catalog = Новый COMОбъект("ADOX.Catalog");                                                
    Catalog.ActiveConnection = Connection;          
      
   Счетчик      = 1;
   ИмяТаблицы    = "";
   СписокЛистов  = Новый СписокЗначений;   
   Для Каждого Table ИЗ Catalog.Tables Цикл
      Если НомерЛиста = Счетчик Тогда
         ИмяТаблицы = Table.Name;
      КонецЕсли; 
      СписокЛистов.Добавить(Table.Name, "Лист " + Счетчик); 
      Счетчик = Счетчик + 1;            
   КонецЦикла;         
      
   Если ПустаяСтрока(ИмяТаблицы) Тогда
      Connection.Close();
      Возврат;
   Иначе   
      Command   = Новый COMОбъект("ADODB.Command");            
      RecordSet = Новый COMОбъект("ADODB.RecordSet");
      
        Command.ActiveConnection = Connection;               
      Command.CommandText = "SEL ECT * FR OM [" + ИмяТаблицы + "]";   
      Command.CommandType = 1;
                  
      RecordSet         = Command.Execute();
      КоличествоКолонок = RecordSet.Fields.Count;
      
      Счетчик = 1;
      
      Пока НЕ RecordSet.EOF() Цикл
           Если Счетчик = 1 Тогда
               RecordSet.Fields(2).Value = "ТЕСТ ADODB!!!";
               Прервать;
           КонецЕсли;
             RecordSet.MoveNext();
         Счетчик = Счетчик + 1;
      КонецЦикла;
    КонецЕсли;
   
Connection.Close();