// Выгрузка данных excel в таблицу значений.ПопыткаConnection=НовыйCOMОбъект("ADODB.Connection");ИсключениеВызватьИсключениеНСтр("ru = 'Не удалось подключить объект ADODB. |Вероятные причины: | - У пользователя недостаточно прав на создание COM-объектов; | - Включен контроль учетных записей Windows; | - Операционная система сервера не из семейства Windows. | |Техническая информация:'")+Символы.ПС+КраткоеПредставлениеОшибки(ИнформацияОбОшибке());КонецПопытки;ConnectionString="Provider=Microsoft.ACE.OLEDB.12.0;Data Source="""+СокрЛП(ПолноеИмяФайла)+""";Extended Properties=""Excel 12.0;HDR=YES;IMEX=1;""";ПопыткаConnection.Open(ConnectionString);ИсключениеВызватьИсключениеНСтр("ru = 'Не удалось прочитать прайс-лист объектом ADODB. |Вероятные причины: | - На сервере не установлен пакет ""Microsoft Access Database Engine 2010 Redistributable""; | - У пользователя недостаточно прав на создание COM-объектов; | - Включен контроль учетных записей Windows; | |Техническая информация:'")+Символы.ПС+КраткоеПредставлениеОшибки(ИнформацияОбОшибке());КонецПопытки;Connection.CursorLocation=3;RecordSet=Connection.Execute("SELECT * FROM [A:CZ]");ПокаНеRecordSet.EOF()ЦиклНаименование=RecordSet.Fields(1).Value;Цена=RecordSet.Fields(5).Value;ЕслиЗначениеЗаполнено(Наименование)ИЗначениеЗаполнено(Цена)ТогдаНоваяСтрока=ЗагружаемаяНоменклатура.Добавить();НоваяСтрока.Наименование=Наименование;НоваяСтрока.Цена=Цена;КонецЕсли;RecordSet.MoveNext();КонецЦикла;RecordSet.Close();RecordSet=Неопределено;Connection.Close();Connection=Неопределено;
Comments (0)
HTTPSSSH
You can clone a snippet to your computer for local editing.
Learn more.