ит=СоздатьОбъект("таблицазначений");
табл.выгрузить(ит,,);
имя="C:\oleg.xls";
база =СоздатьОбъект("ODBCDatabase");
Если база.Соединение("Driver={Microsoft Excel Driver (*.xls)}
riverId=790;FileUsage=0;Dbq="+имя+"
efaultDir=C:\;ReadOnly=0;" ) =0 Тогда
Предупреждение("Ошибка открытия файла", 60);
Возврат;
КонецЕсли;
сообщить(текущеевремя());
рс =СоздатьОбъект("ODBCRecordSet");
рс.УстБД(база);
Сообщить(база.ЕстьСоединение());
// рс.отладка(1);
фл=рс.Выполнить("CREATE TABLE ЛистODBCD (DT char(128), DA2 char(128), DA3 char(128))");
// фл=рс.Выполнить("Insert into Лист1 Values (10,20,30)");
табл.выбратьстроки();
к=0;
пока табл.получитьстроку()=1 цикл
рс.Выполнить("Insert into ЛистODBCD Values ('"+табл.Период+"','"+табл.супервайзер+"','"+табл.Клиент+"')");
к=к+1;
состояние(к);
Конеццикла;
// db.Close();
сообщить(текущеевремя());