Процедура Сформировать() 

// Создадим соединение с данными 
Соединение = СоздатьОбъект("ADODB.Connection"); 
Соединение.ConnectionString = "Provider=MSDASQL;DSN=Отгрузка"; 
Соединение.ConnectionTimeout =  15 ; 
Соединение.CursorLocation =  3 ; 
Соединение.Open(); 

// Создадим набор данных 
Записи = СоздатьОбъект("ADODB.Recordset"); 
Записи.CursorLocation =  3 ; 
Записи.CursorType =  2 ; 
Записи.LockType =  3 ; 
Записи = Соединение.Execute("SELECT * From Отгрузка"); 
// Методом Execut можно обратиться с SQL-оператором к базе данных, 
// чтобы выбрать записи, удовлетворяющие определенным условиям, например, 
// SELECT Модель,Разнорядка From Отгрузка Where Модель >=  2109 ; 

// Организуем перебор записей 
Пока Записи.Eof()= 0  Цикл 
   Сообщить(Записи.Fields("Модель").Value); 
   Записи.MoveNext(); 
КонецЦикла; 
// Движения по записям возможно с помощью методов объекта Recordset, 
// таких как MoveFirst , MoveLast , MoveNext , MovePrevious. 
// Конец и начало данных определяются методами Eof и Bof. 

// Метод Записи.RecordCount возвращает количество записей в наборе 
Если Записи.RecordCount =  0  Тогда 
   Сообщить("Пустой набор записей"); 
КонецЕсли; 

// Метод Записи.Fields.Count возвращает количество столбцов в наборе 
Для Н =  0  По Записи. Fields.Count -  1  Цикл 
   Сообщить(Записи.Fields(Н).Name); 
КонецЦикла; 

// Поиск записей в наборе можно выполнить несколькими способами: 
// с помощью нового оператора SELECT, где указать новый условия отбора WHERE 
// с помощью оператора Find 
// с помощью метода Filter 

Записи.MoveFirst(); // Когда курсор не на первой записи 
Записи.Find("Модель like 2109"); 
Если Записи.Eof() = - 1  Тогда 
   Сообщить("Запись не найдена"); 
Иначе 
   Сообщить("Разнорядка "+Записи.Fields("Разнорядка").Value); 
КонецЕсли; 

// Фильтр позволяет ограничить записи по определенному условию. 
// Чтобы снять фильтр, ему нужно передать пустое значение строки. 
// Допустимы следующие операции сравнения: 
// <, >, <=, >=, <>, =, и LIKE 
// а также логические операции AND и OR 

Записи.Filter = "Модель=2109"; 
Пока Записи.Eof() =  0  Цикл 
   Записи.MoveNext(); 
КонецЦикла; 
// Уберем фильтр 
Записи.Filter = ""; 
КонецПроцедуры 

		#Если Клиент Тогда
			Состояние("Инициализация Microsoft Excel...");
		#КонецЕсли
		xlApp = Новый COMObject("Excel.Application");

		#Если Клиент Тогда
			Состояние("Открытие файла Microsoft Excel...");
		#КонецЕсли
		xlBook = xlApp.WorkBooks.Open(ВыбПутьКФайлуСверки);
		xlSheet = xlBook.Sheets(ВыбИмяЛиста);
		xlCellTypeBlanks =  11 ;
		LastRow = xlSheet.Cells.SpecialCells(xlCellTypeBlanks).Row;

		Для Row = ВыбНомерНачСтрокиДанных По LastRow Цикл
			#Если Клиент Тогда
				Состояние("Обработка листа Microsoft Excel: строка " + Row + " из " + LastRow + "...");
			#КонецЕсли
			
			Если xlSheet.Rows(Row).Hidden Тогда
				//Пропускаем скрытые строки
				Продолжить;//Для Row = ВыбНомерНачСтрокиДанных По LastRow Цикл
			КонецЕсли;//Если xlSheet.Rows(Row).Hidden Тогда
			//Читаем, что надо
			СтрОстаток = СтрЗаменить(СтрОстатокЦББрокера, ",", "");//Уберем "буржуйские" разделители триад.
			
			Попытка
			 	Остаток = Число(СтрОстаток);
			Исключение
				Остаток =  0 ;
			КонецПопытки;
			//Добавляем считанное, куда надо.
			СтрТаблицаСверки = ТаблицаСверки.Добавить();

			СтрТаблицаСверки.Остаток = Остаток;
					
			
		КонецЦикла;//Для Row = ВыбНомерНачСтрокиДанных По LastRow Цикл

		#Если Клиент Тогда
			Состояние("Деинициализация Microsoft Excel...");
		#КонецЕсли
			
		xlSheet = Неопределено;
		xlBook.Close();
		xlApp.Quit();