Код 1C v 7.x cells .length <> 5) Тогда // 1 - я заголовок, остальные не с даннымиcells (0).innerText);cells (1).innerText);cells (3).innerText);cells (4).innerText), " ", "");cells (2).innerText), " ", "");Код 1C v 7.x cells .length <> 7) Тогда // 1 - я заголовок, остальные не с даннымиcells (0).innerText);cells (1).innerText);cells (3).innerText);cells (4).innerText), " ", "");cells (2).innerText), " ", "");Недавно, мой постоянный клиент решил проводить маркетинговые исследования по изменению цен на товары у конкурентов... и эти данные захотел использовать в 1С в связке с его прайс-листом + куча отчетов с графиками и процентным отклонением от цен основного конкурента
В результате этого, была написана обработка собирающая данные со страниц разных сайтов. Из целей конфиденциальности - сайты раскрывать не буду...
Вид обработки загрузки данных с сайта в 1С
Ниже код загрузки данных со страницы сайта , смысл такой :
в функция передается адрес страницы сайта полученный текст страницы обрабатывается, удаляются теги из полученного текста формируется ТЗ с данными По названию ищется поставщик из вспомогательного справочника Справочники.Pr_Поставщики.НайтиПоНаименованию(, если нет - создается на выходе ТЗ с данными Код 1C v 8.х Функция ПолучитьТаблицуДанных(Строка)cells pacing=" + """" + "0" + """" + " border=" + """" + "1" + """" + " bordercolor=" + """" + "#dedede" + """" + " class=" + """" + "tablesorter" + """" + " >";В коде используется вспомогательная функция ПолучитьМассивИзСтрокиСРазделителем
Код 1C v 8.2 УП // Функция разбивает строку разделителем.Конечно, перед тем как мы начали это делать - прошерстили интернет и нашли несколько решений
Код 1C v 8.х Соединение = ПолучитьCOMОбъект("","Microsoft.XMLHTTP");Код 1C v 8.х НТТР = ПолучитьCOMОбъект("","Microsoft.XMLHTTP");И даже не этом сайте есть статья : Парсер сайта связного на 1С
Нужен парсер сайта в 1С!? - Обращайтесь, контакты в
профиле Иногда требуется разобрать данные из Excel в 1С.
Я считаю что легче и быстрей поместить все данные в ТаблицуЗначений и уже там ими манипулировать.
Пример 2-х функций которые я использую:
ИзExcelВТаблицу – Читает Excel в ТаблицуЗначений
ЭлементСправочника – Создает или находит элемент справочника.
Теперь сам код:
Код 1C v 8.х // Загрузка данных из Excel файла в ТаблицуЗначений Cells (1,Столбец).Value;Cells (НомСтрока,НомСтолбец).Value; Пример вызова:
Код 1C v 8.х ФормаИндикатора = ПолучитьОбщуюФорму("ХодВыполненияОбработкиДанных");
или
Код 1C v 8.х ТЗ = ИзExcelВТаблицу(ФайлExcel); Теперь функция которой я использую когда надо создать элемент справочника из полученных данных.
Код 1C v 8.х // Создаем в справочнике "ИмяСправочника" элемент
Автор:
borismor Во время реализации задачи по регистрации продаж дистрибьюторов на основании Excel документов столкнулся с интересной задачей. Необходимо реализовать загрузку файла и на стороне сервера обработать его, заполнив табличную часть документа.
Решение состоит из двух функций: клиентской и серверной.
Клиентская часть инициирует выбор файла, передачу выбранного файла на сервер и передача управления серверной процедуре.
Код 1C v 8.2 УП #НаКлиенте
Серверная процедура перебирает полученные на сервер файлы. Получает COM-объекты и импортирует данные.
Код 1C v 8.2 УП #НаСервереCells (ДанныеНачинаютсяС, 2).Value;Cells (ДанныеНачинаютсяС, 7).Value;Cells (ДанныеНачинаютсяС, 3).Value;Cells (ДанныеНачинаютсяС, 4).Value;Cells (ДанныеНачинаютсяС, 5).Value;Cells (ДанныеНачинаютсяС, 6).Value;Cells (ДанныеНачинаютсяС, 2).Value;Источник В качестве примера использования можно указать вот такую ситуацию: в зависимости от типа клиента (договора, документа и т.п) формируются разные тексты договоров с разным количеством таблиц. В реальности, конечно должены использоваться и макет и описанные здесь динамические механизмы.
В моем примере я заранее создал новый пустой документ.
Тестировалось на Office 2007.
Код 1C v 8.х Cells (1).Range.Text="№ п/п";Cells (2).Range.Text="Наименование";Cells (4).Range.Text="Кол-во";Cells (3).Range.Text="Ед. изм.";Cells (5).Range.Text="Цена,руб.";Cells (6).Range.Text="Сумма,руб.";Cells (1).Range.Text=НомерСтроки;Cells (1).Range.ParagraphFormat.Alignment = 1;Cells (2).Range.Text=СтрокаТовары.Номенклатура.НаименованиеCells (4).Range.Text=Строка(СтрокаТовары.Количество);Cells (4).Range.ParagraphFormat.Alignment = 1;Cells (3).Range.Text=?(ЗначениеЗаполнено(СтрокаТовары.Номенклатура.БазоваяЕдиницаИзмерения)Cells (3).Range.ParagraphFormat.Alignment = 1;Cells (5).Range.Text=Формат(СтрокаТовары.Цена,"ЧДЦ=2");Cells (5).Range.ParagraphFormat.Alignment = 1;Cells (6).Range.Text=Формат(СтрокаТовары.Сумма,"ЧДЦ=2");Cells (6).Range.ParagraphFormat.Alignment = 1;Cells (1).Range.Text="Итого:";Cells (1).Range.ParagraphFormat.Alignment = 3;Cells (2).Range.Text=Формат(Ссылка.Товары.Итог("Сумма"), "ЧДЦ=2");Cells (2).Range.ParagraphFormat.Alignment = 1;Часто при создании документа из макета используют метод замены кусков текста. В примере представлен другой вариант выполнения того же действия - с использованием закладок. Также представлен пример построения нумерованного списка, вставки картинки, настройки ее параметров.
Пример использования описанных возможностей прост. При формировании коммерческого предложения бывает необходимо описать список условий, добавить изображение образца продукции.
Для отображения закладок включите эту опцию в настройках вашего Word'а.
В моем примере я заранее создал новый пустой документ, путь к документу и картинке прописан в тексте. Не забудте указать свои пути.
Код 1C v 8.х Процедура ВыполнитьОбработку() ЭкспортCells (1).Range.Text = 1;Cells (2).Range.Text = 2;Cells (3).Range.Text = 3;Cells (4).Range.Text = 4;Cells (5).Range.Text = 5;
Автор:
Крылов Николай Конвертация таблиц из Excel в MXL - скачать Converter Excel v MXL:
Для 8.х -
Скачивать файлы может только зарегистрированный пользователь!
Для 7.7 -
Скачивать файлы может только зарегистрированный пользователь!
Код 1C v 8.х // Выбор файла Microsoft ExcelCells = AllStrings * AllColumns; // Все ячейкиCells < 2 ThenCells (Cells <> 0) andЭкспорт
Процедура ОсновныеДействияФормыЭкспорт(Кнопка) - выгружает из указанного справочника данные в режиме экспорта в файл в формате Microsoft Excel с указанным именем, используя преобразование данных к типу число и типу строка;
Код 1C v 8.х Процедура ОсновныеДействияФормыЭкспорт(Кнопка)Cells (1, Колонка).Value = стр.НазваниеРеквизита;Cells (СтрокаЛиста, Колонка).NumberFormat = "0,00";Cells (СтрокаЛиста, Колонка).Value =Cells (СтрокаЛиста, Колонка).NumberFormat = "@";Cells (СтрокаЛиста, Колонка).Value =Импорт
Исходный код процедуры 1С для загрузки XLS файла:
Код 1C v 8.х Процедура ЧтениеXLSФайла(Элемент)Cells .SpecialCells (xlCellTypeLastCell).Row;Cells .SpecialCells (xlCellTypeLastCell).Column;Cells (Строка, 1).Value;Cells (Строка, 2).Value;Cells (Строка, 3).Value;При чтении файла Excel я использую вариантный массив. Он позволяет быстро получить ВСЮ таблицу листа в память, а также получать данные массива целыми колонками. Тем самым время на чтение области файла Excel в таблицу значений сокращается в десятки раз.
Вот текст функции:
Код 1C v 8.х Функция ПрочитатьЛистExcel(ТЗ = Неопределено, ЛистЭксель = Неопределено, НомерПервойСтроки = 1, НомерПервойКолонки = 1, ВсегоСтрок = 0, ВсегоКолонок = 0) ЭкспортCells .SpecialCells (11).Row;Cells .SpecialCells (11).Column;Cells (НомерПервойСтроки,НомерПервойКолонки), ЛистЭксель.Cells (ВсегоСтрок,ВсегоКолонок));
Комментировать функцию, думаю, нет необходимости. Вот собственно и все, что я хотел сказать.
wildhog 
Пример работы с MS EXCEL (листы, поиск на листе) Категория: Работа с Microsoft Office и OpenOffice
.gif)
, вот они:
