Код 1C v 7.x cell s.length <> 5) Тогда // 1 - я заголовок, остальные не с даннымиcell s(0).innerText);cell s(1).innerText);cell s(3).innerText);cell s(4).innerText), " ", "");cell s(2).innerText), " ", "");Код 1C v 7.x cell s.length <> 7) Тогда // 1 - я заголовок, остальные не с даннымиcell s(0).innerText);cell s(1).innerText);cell s(3).innerText);cell s(4).innerText), " ", "");cell s(2).innerText), " ", "");Недавно, мой постоянный клиент решил проводить маркетинговые исследования по изменению цен на товары у конкурентов... и эти данные захотел использовать в 1С в связке с его прайс-листом + куча отчетов с графиками и процентным отклонением от цен основного конкурента
В результате этого, была написана обработка собирающая данные со страниц разных сайтов. Из целей конфиденциальности - сайты раскрывать не буду...
Вид обработки загрузки данных с сайта в 1С
Ниже код загрузки данных со страницы сайта , смысл такой :
в функция передается адрес страницы сайта полученный текст страницы обрабатывается, удаляются теги из полученного текста формируется ТЗ с данными По названию ищется поставщик из вспомогательного справочника Справочники.Pr_Поставщики.НайтиПоНаименованию(, если нет - создается на выходе ТЗ с данными Код 1C v 8.х Функция ПолучитьТаблицуДанных(Строка)cell spacing=" + """" + "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С!? - Обращайтесь, контакты в
профиле Доброго времени суток!
Обработку ЗагрузкаданныхизТабличногоДокументаконечно должен знать каждый 1С-ник. И сколько бы обработок такого плана не появлялось, эта остается классикой. Даже претензии можно предъявлять если вы в ней что-то не понимаете к самой 1С. Хотя какие претензии, исходный код открыть – изучай, не хочу…
Еще чем мне нравится эта обработка – тем что вы читаете данные из внешнего источника, показываете их с помощью объекта табличное поле и только затем выбираете алгоритм загрузки в 1С. При чем загрузка у Вас происходит в среде 1С без привлечения дополнительных компонентов. Без всяких выпадов в неизвестный объект OLE, полей которые не прочитались в обработке загрузки. Если вы видете данные в табличном поле, то они и будут грузиться по вашему алгоритму.
Но что-то в ней не хватает. Конечно стандарта офисных документов ODF (Open Document Format и между прочим ГОСТ Р ИСО/МЭК 26300-2010). Как говаривал мой начальник – есть чем себя занять. Из всех внешних загрузок, которые сейчас есть к сожалению самыми распостраненными являются OLE(Com+) технологии. Возможно что-то еще появиться, но пока примемся за них.
Залезаем в код и видим несколько однотипных функуций
Функция мПрочитатьТабличныйДокументИзExcel(ТабличныйДокумент, ИмяФайла, НомерЛистаExcel = 1) Экспорт
Функция мПрочитатьТабличныйДокументИзТекста(ТабличныйДокумент, ИмяФайла, НомерЛистаExcel = 1) Экспорт
Пора добавить свою:
Код 1C v 8.х Cell byPosition(0,0);Cell ByPosition(Column-1,Row-1).getType() = 0 Или Лист.getCell ByPosition(Column-1,Row-1).getType() = 1 Тогда ТабличныйДокумент.Область(“R” + Формат(Row, “ЧГ=”) +”C” + Формат(Column, “ЧГ=”)).Текст = Лист.getCell ByPosition(Column-1,Row-1).value;Cell ByPosition(Column-1,Row-1).getType() = 2 Тогда ТабличныйДокумент.Область(“R” + Формат(Row, “ЧГ=”) +”C” + Формат(Column, “ЧГ=”)).Текст = Лист.getCell ByPosition(Column-1,Row-1).string;
И добавим в форму выбора файла ods по тексту.
Код 1C v 8.х ДиалогВыбораФайла.Фильтр = “Табличный документ (*.mxl)|*.mxl|Лист Calc (*.ods)|*.ods|Лист Excel (*.xls)|*.xls|Текстовый документ (*.txt)|*.txt|dBase III (*.dbf)|*.dbf|”;
И выбор функции для ods
ИначеЕсли нРег(ФайлНаДиске.Расширение) = “.ods” Тогда
мПрочитатьТабличныйДокументИзCalc(ТабличныйДокумент,ДиалогВыбораФайла.ПолноеИмяФайла);
Вот так лучше.
Сайт
sikuda.ru Иногда требуется разобрать данные из Excel в 1С.
Я считаю что легче и быстрей поместить все данные в ТаблицуЗначений и уже там ими манипулировать.
Пример 2-х функций которые я использую:
ИзExcelВТаблицу – Читает Excel в ТаблицуЗначений
ЭлементСправочника – Создает или находит элемент справочника.
Теперь сам код:
Код 1C v 8.х // Загрузка данных из Excel файла в ТаблицуЗначений Cell s(1,Столбец).Value;Cell s(НомСтрока,НомСтолбец).Value; Пример вызова:
Код 1C v 8.х ФормаИндикатора = ПолучитьОбщуюФорму("ХодВыполненияОбработкиДанных");
или
Код 1C v 8.х ТЗ = ИзExcelВТаблицу(ФайлExcel); Теперь функция которой я использую когда надо создать элемент справочника из полученных данных.
Код 1C v 8.х // Создаем в справочнике "ИмяСправочника" элемент
Автор:
borismor Во время реализации задачи по регистрации продаж дистрибьюторов на основании Excel документов столкнулся с интересной задачей. Необходимо реализовать загрузку файла и на стороне сервера обработать его, заполнив табличную часть документа.
Решение состоит из двух функций: клиентской и серверной.
Клиентская часть инициирует выбор файла, передачу выбранного файла на сервер и передача управления серверной процедуре.
Код 1C v 8.2 УП #НаКлиенте
Серверная процедура перебирает полученные на сервер файлы. Получает COM-объекты и импортирует данные.
Код 1C v 8.2 УП #НаСервереCell s(ДанныеНачинаютсяС, 2).Value;Cell s(ДанныеНачинаютсяС, 7).Value;Cell s(ДанныеНачинаютсяС, 3).Value;Cell s(ДанныеНачинаютсяС, 4).Value;Cell s(ДанныеНачинаютсяС, 5).Value;Cell s(ДанныеНачинаютсяС, 6).Value;Cell s(ДанныеНачинаютсяС, 2).Value;Источник В качестве примера использования можно указать вот такую ситуацию: в зависимости от типа клиента (договора, документа и т.п) формируются разные тексты договоров с разным количеством таблиц. В реальности, конечно должены использоваться и макет и описанные здесь динамические механизмы.
В моем примере я заранее создал новый пустой документ.
Тестировалось на Office 2007.
Код 1C v 8.х Cell s(1).Range.Text="№ п/п";Cell s(2).Range.Text="Наименование";Cell s(4).Range.Text="Кол-во";Cell s(3).Range.Text="Ед. изм.";Cell s(5).Range.Text="Цена,руб.";Cell s(6).Range.Text="Сумма,руб.";Cell s(1).Range.Text=НомерСтроки;Cell s(1).Range.ParagraphFormat.Alignment = 1;Cell s(2).Range.Text=СтрокаТовары.Номенклатура.НаименованиеCell s(4).Range.Text=Строка(СтрокаТовары.Количество);Cell s(4).Range.ParagraphFormat.Alignment = 1;Cell s(3).Range.Text=?(ЗначениеЗаполнено(СтрокаТовары.Номенклатура.БазоваяЕдиницаИзмерения)Cell s(3).Range.ParagraphFormat.Alignment = 1;Cell s(5).Range.Text=Формат(СтрокаТовары.Цена,"ЧДЦ=2");Cell s(5).Range.ParagraphFormat.Alignment = 1;Cell s(6).Range.Text=Формат(СтрокаТовары.Сумма,"ЧДЦ=2");Cell s(6).Range.ParagraphFormat.Alignment = 1;Cell s(1).Range.Text="Итого:";cell (НомерСтроки+1, 1).Merge(Table.cell (НомерСтроки+1, 5));Cell s(1).Range.ParagraphFormat.Alignment = 3;Cell s(2).Range.Text=Формат(Ссылка.Товары.Итог("Сумма"), "ЧДЦ=2");Cell s(2).Range.ParagraphFormat.Alignment = 1;Часто при создании документа из макета используют метод замены кусков текста. В примере представлен другой вариант выполнения того же действия - с использованием закладок. Также представлен пример построения нумерованного списка, вставки картинки, настройки ее параметров.
Пример использования описанных возможностей прост. При формировании коммерческого предложения бывает необходимо описать список условий, добавить изображение образца продукции.
Для отображения закладок включите эту опцию в настройках вашего Word'а.
В моем примере я заранее создал новый пустой документ, путь к документу и картинке прописан в тексте. Не забудте указать свои пути.
Код 1C v 8.х Процедура ВыполнитьОбработку() ЭкспортCell s(1).Range.Text = 1;Cell s(2).Range.Text = 2;Cell s(3).Range.Text = 3;Cell s(4).Range.Text = 4;Cell s(5).Range.Text = 5;
Автор:
Крылов Николай Конвертация таблиц из Excel в MXL - скачать Converter Excel v MXL:
Для 8.х -
Скачивать файлы может только зарегистрированный пользователь!
Для 7.7 -
Скачивать файлы может только зарегистрированный пользователь!
Код 1C v 8.х // Выбор файла Microsoft ExcelCell s = AllStrings * AllColumns; // Все ячейкиCell s < 2 ThenCell = WorkSheet.Cell s(Cell = SprDoc.Area(Cell .RowHeight = CurrentCell .RowHeight; Cell .ColumnWidth = CurrentCell .ColumnWidth; Cell .HorizontalAlign = mListHorizontalAlign.Get(Cell .HorizontalAlignment, "NG=0")Cell .VerticalAlign = mListVerticalAlign.Get(Cell .VerticalAlignment, "NG=0")Cell .TextPlacement = ?(Cell .WrapText = 0,Cell = CurrentCell .Font;Cell .BackColor = mColorRGB(Cell .Interior.ColorCell .TextColor = mColorRGB(Cell .ColorCell .Font = New Font(Cell .Name, Cell .Size),Cell .Bold) = 0,Cell .Italic) = 0,Cell .Underline),"NG=0") = "-4142",Cell .Strikethrough, // Зачеркнутый шрифтCell .Text = CurrentCell .Value;Cell .LeftBorder = mStyleBorder(CurrentCell , 7);Cell .TopBorder = mStyleBorder(CurrentCell , 8);Cell .RightBorder = mStyleBorder(CurrentCell , 10);Cell .BottomBorder = mStyleBorder(CurrentCell , 9);Cell .Details = CurrentCell .Formula;Cell .MergeCell s <> 0) andCell .MergeArea.Rows.Address(,, 2),Cell .Address(,, 2)) = 1) ThenCell = SprDoc.Area(Cell .MergeArea.Rows.Count - 1),Cell .MergeArea.Columns.Count - 1)Cell .Merge();Экспорт
Процедура ОсновныеДействияФормыЭкспорт(Кнопка) - выгружает из указанного справочника данные в режиме экспорта в файл в формате Microsoft Excel с указанным именем, используя преобразование данных к типу число и типу строка;
Код 1C v 8.х Процедура ОсновныеДействияФормыЭкспорт(Кнопка)Cell s(1, Колонка).Value = стр.НазваниеРеквизита;Cell s(СтрокаЛиста, Колонка).NumberFormat = "0,00";Cell s(СтрокаЛиста, Колонка).Value =Cell s(СтрокаЛиста, Колонка).NumberFormat = "@";Cell s(СтрокаЛиста, Колонка).Value =Импорт
Исходный код процедуры 1С для загрузки XLS файла:
Код 1C v 8.х Процедура ЧтениеXLSФайла(Элемент)Cell TypeLastCell = 11;Cell s.SpecialCell s(xlCell TypeLastCell ).Row;Cell s.SpecialCell s(xlCell TypeLastCell ).Column;Cell s(Строка, 1).Value;Cell s(Строка, 2).Value;Cell s(Строка, 3).Value;
Пример работы с MS EXCEL (листы, поиск на листе) Категория: Работа с Microsoft Office и OpenOffice
.gif)
, вот они:
