Быстрая выгрузка отчетов в Excel, наложение Фильта и отображение ярлыка Вместо Таб.Показать() используем глобальную функцию - и отчет показывается сразу в Excel в удобоваримом виде - с форматированием колонок по ширине, автофильтром и ярлычками листов
Код 1C v 7.x Процедура глОткрытьВЭкселе(Таб,ИмяФайла="",НеИзменятьВысотуСтроки=0) ЭкспортCell s(1, 1), Excel.Cell s(1, ШиринаТаблицы));mikukrnet Категория:
Работа с Microsoft Office и OpenOffice Быстрая функция чтения данных с листа Excel При чтении файла Excel я использую вариантный массив. Он позволяет быстро получить ВСЮ таблицу листа в память, а также получать данные массива целыми колонками. Тем самым время на чтение области файла Excel в таблицу значений сокращается в десятки раз.
Вот текст функции:
Код 1C v 8.х Функция ПрочитатьЛистExcel(ТЗ = Неопределено, ЛистЭксель = Неопределено, НомерПервойСтроки = 1, НомерПервойКолонки = 1, ВсегоСтрок = 0, ВсегоКолонок = 0) ЭкспортCell s.SpecialCell s(11).Row;Cell s.SpecialCell s(11).Column;Cell s(НомерПервойСтроки,НомерПервойКолонки), ЛистЭксель.Cell s(ВсегоСтрок,ВсегоКолонок));
Комментировать функцию, думаю, нет необходимости. Вот собственно и все, что я хотел сказать.
wildhog Категория:
Работа с Microsoft Office и OpenOffice Как таблицу значений выгрузить в Excel Код 1C v 8.х Cell s(1,К).Font.Name = "Tahoma";Cell s(1,К).Font.Size = 10;Cell s(1,К).Font.FontStyle = "Bold";Cell s(1,К).FormulaR1C1 = Заг;Cell s(Т.Индекс(Стр)+2, К).FormulaR1C1 = Строка(Зн); Категория:
Работа с Таблицей Значений 1C и Google Maps была поставлена задача отображения на географической карте медицинских учреждений. После обзора предлагаемых решений был выбран сервис google. Но так же подобного рода подход будет работать и с картами сервиса yandex. Во время решения задачи было решено использовать геокодирование сервиса Google и Google Visualization для отображение элементов на карте.
Геокодирование – процесс преобразования адресов·(Украина, Киевская область, Киев, Крещатик 20) в географические координаты (широта 37.423021 и долгота -122.083739), которые можно использовать для размещения маркеров или расположения карты. Подробно про геокодирование можно почитать
тут .
Для работы с геокодированием необходимо
зарегистрировать ключ API карт Google .
Важный момент: если у вас программа работает в локальной сети и в Internet, то вам необходимо регистрировать два ключа. В зависимости от того, с какого места подключается пользователь к базе подставлять тот или иной ключ.
И так, собственно программная реализация.
В конфигурации есть две общих формы:
* Форма подбора координат. Данная форма формирует запрос на геокодирование и обрабатывает результат.
* Форма отображения объектов. Данная форма использует
API визуализации Google . В частности данная форма использует визуализацию
Map .
Запрос и обработка результата геокодирования.
Формирование запроса происходит с ключом output=csv, для вывода результата запроса в csv файл. После выполнения запроса проверяется код результата запроса и разбор csv файла на широту и долготу.
Код 1C v 8.2 УП #НаСервере
Формирование карты отображения
При формировании отображения объекта на карте к стандартному коду визуализации добавлен следующий:
Код 1C v 8.х if(!google.visualization) setTimeout(checkIfGoogleLoad, 1000);
Это связано с тем, что платформа не хочет сразу обновлять фрейм поля html документа.
Код 1C v 8.2 УП #НаСервереCell (" + Строка(Сч) + ", 0, " +СтрЗаменить(Строка(ТекСтрока.Широта),",",".") + ");";Cell (" + Строка(Сч) + ", 1, " +СтрЗаменить(Строка(ТекСтрока.Долгота),",",".") + ");";Cell (" + Строка(Сч) + ", 2, '" +Строка(ТекСтрока.Наименование) + " "Андрей Данилюк Категория:
COM-объекты, WMI, WSH Чтение и Вывод данных в Excel Замечание: В Excel разделителем дробной части считается символ ",". Поэтому перед сохранением таблицы 1С в формате Excel замените в ней другой разделитель (например ".") на ",". Иначе в Excel с этими числами не удастся произвести вычисления, или они вообще не будут отображаться как числа. Например, в таблице 1С "15.2" отобразится в Excel как "15.фев".
Для 8.х заменить СоздатьОбъект( на Новый COMОбъект(
Чтение (Получение) данных из Excel
Доступ из 1С к Excel производится посредством OLE. Например, код
Код 1C v 7.x Попытка
позволит получить доступ через переменную "Эксель" к запущенному приложению Excel. А далее уже можно получить доступ к книге (файлу), листу и ячейке с данными.Чтобы открыть книгу (файл)
Код 1C v 7.x Книга = Эксель.WorkBooks.Open(ПутьКФайлу);Cell s(НомерСтроки, НомерКолонки).Value;Важно: не забывайте поле выполнения нужных действий добавлять код
Код 1C v 7.x Эксель.Quit();
, иначе запущенный процесс останется незавершенным и будет занимать память и процессор компьютера.
Вывод данных в Excel
Для вывода (выгрузки) данных в Excel необходимо либо открыть существующую книгу, либо создать новую, и выбрать рабочий лист для вывода данных. Открытие существующей книги описано выше, а для создания новой книги нужно использовать следующий код:
Код 1C v 7.x Попытка
Так как при создании книги в Excel автоматически создаются листы (Сервис->Параметры->Общие->Листов в новой книге), то нужно лишь произвести выбор листа, с которым будет вестись работа:
Код 1C v 7.x Лист = Книга.WorkSheets(НомерЛиста);
Следующим шагом будет установка значения ячейки:
Код 1C v 7.x Лист.Cell s(НомерСтроки, НомерКолонки).Value = Значение;
И в конце нужно произвести запись созданной книги:
Код 1C v 7.x ПопыткаВажно: не забывайте, что в имени файлов не должно содержаться символов \ / : * ? " > < Категория:
Работа с Microsoft Office и OpenOffice Выгрузка данных в Excel с установкой разных параметров Код 1C v 8.х // Процедура выгружает из указанного справочника данные в режиме экспорта в файл в формате Microsoft ExcelCell s(1, Колонка).Value = стр.НазваниеРеквизита;Cell s(СтрокаЛиста, Колонка).NumberFormat = "0,00";Cell s(СтрокаЛиста, Колонка).Value =Cell s(СтрокаЛиста, Колонка).NumberFormat = "@";Cell s(СтрокаЛиста, Колонка).Value =Код 1C v 7.x //Простейший пример вывода из 1С:Предприятия 7.7 в MS Excel. Обеспечение наличия у рабочей книги единственного листа, Категория:
Работа с Microsoft Office и OpenOffice Как выборочно Разрешить / Запретить редактирование ячеек листа Для 8.х в нижеследующем коде замените СоздатьОбъект на Новый COMОбъект, остальное все также:
Код 1C v 7.x //Создаем объект EXCELCell s(Перем, 2).Locked=0; Категория:
Работа с Microsoft Office и OpenOffice Поиск из 1С в Excel Для 8.х в нижеследующем коде замените
СоздатьОбъект( на
Новый COMОбъект !
Код 1C v 7.x //Пример 1:Cell s(1, 1).Text);Cell ",Application.ActiveCell );Cell ,-4163,1).activate()");Cell ,-4163,1)"); Категория:
Работа с Microsoft Office и OpenOffice Создание документа Excel по имеющемуся шаблону, оформлению. Код 1C v 8.х ПопыткаCell s(1, 1).Value = "Наименование контрагента";Cell s(3 + НомерСтроки,1), ЛистНовый.Cell s(3 + НомерСтроки, 5)));Cell s(3 + НомерСтроки, 1).Value = НомерСтроки;Cell s(3 + НомерСтроки, 2).Value = "Наименование номенклатурной позиции " + Строка(НомерСтроки);Cell s(3 + НомерСтроки, 3).Value = НомерСтроки;Cell s(3 + НомерСтроки, 4).Value = НомерСтроки;Cell s(3 + НомерСтроки, 5).Value = НомерСтроки; Категория:
Работа с Microsoft Office и OpenOffice Пример построения в Word нумерованного списка, закладок, вставки картинки, настройки ее параметров. Часто при создании документа из макета используют метод замены кусков текста. В примере представлен другой вариант выполнения того же действия - с использованием закладок. Также представлен пример построения нумерованного списка, вставки картинки, настройки ее параметров.
Пример использования описанных возможностей прост. При формировании коммерческого предложения бывает необходимо описать список условий, добавить изображение образца продукции.
Для отображения закладок включите эту опцию в настройках вашего Word'а.
В моем примере я заранее создал новый пустой документ, путь к документу и картинке прописан в тексте. Не забудьте указать свои пути.
Тестировалось на Office 2007.
Некоторые переменные переименованы по стандарту Office: Text --> S_election. Doc --> ThisDocument.
Вот текст модуля:
Код 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;Написал Nikola23 - http://infostart.ru/public/68072/ Категория:
Работа с Microsoft Office и OpenOffice Создание документа Word без использования макетов и пример создания таблицы и её оформление. Кроме прочего в статье присутствует пример создания таблицы с любым количеством колонок и столбцов. Несколько строк с форматированием текста и таблицы. Создание "объединенных" ячеек.
В качестве примера использования можно указать вот такую ситуацию: в зависимости от типа клиента (договора, документа и т.п) формируются разные тексты договоров с разным количеством таблиц. В реальности, конечно должены использоваться и макет и описанные здесь динамические механизмы.
В моем примере я заранее создал новый пустой документ.
Тестировалось на Office 2007.
Исп. переменные: "ПутьКФайлу" - строка. Полное имя файла в формате MSWord.
"Ссылка" - ДокументСсылка (в моем случае - счет).
Вот текст модуля:
Код 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;Написал Nikola23 - http://infostart.ru/public/67727/ Категория:
Работа с Microsoft Office и OpenOffice Чтение RTF файлов через OpenOffice. Для 8.х заменить СоздатьОбъект( на Новый COMОбъект(
Код 1C v 7.x // Пример от Jaap Vduul Cell ByPosition(ИндексСтолбца, ИндексСтроки); Категория:
Работа с Microsoft Office и OpenOffice Как сформировать новый документ на основании файла, шаблона Microsoft Office Word и OpenOffice? Код 1C v 8.х Перем СсылкаНаДокумент;Cell (ТекущаяСтрока,ТекущаяКолонка).Range.Text ) Cell (ТекущаяСтрока+ТекущаяСтрокаТЧ-1,2).Range.Text = Строка(ТекущаяСтрокаТЧ);Cell (ТекущаяСтрока+ТекущаяСтрокаТЧ,ТекКол).Range.Text));Cell (ТекущаяСтрока+ТекущаяСтрокаТЧ-1,ТекКол).Range.Text = ТекстПеременной;Cell (ТекущаяСтрока+ТекущаяСтрокаТЧ-1,ТекКол).Range.Text));Cell (ТекущаяСтрока+ТекущаяСтрокаТЧ-1,ТекКол).Range.Text = ТекстПеременной;Cell ByPosition(ТекущаяКолонка, ТекущаяСтрока).string ) Cell ByPosition(ТекКол, ТекущаяСтрока+ТекущаяСтрокаТЧ).string));Cell ByPosition(ТекКол, ТекущаяСтрока+ТекущаяСтрокаТЧ-1).string = ТекстПеременной;Cell ByPosition(ТекКол, ТекущаяСтрока+ТекущаяСтрокаТЧ-1).string));Cell ByPosition(ТекКол, ТекущаяСтрока+ТекущаяСтрокаТЧ-1).string = ТекстПеременной;Код 1C v 8.х //ДОПОЛНИТЕЛЬНО НЕОБХОДИМЫЕ ФУНКЦИИCell ByPosition(ТекущаяКолонка, ТекущаяСтрока).string; Категория:
Работа с Microsoft Office и OpenOffice Загрузка данных из таблицы Excel в ТЗ (Таблицу значений) Код для 7 версии, при использовании в 8-ой - заменить E=СоздатьОбъект("Excel.Application");
на
E=Новый COMОбъект("Excel.Application");
Код 1C v 7.x Функция глОткрытьФайл(Маска="") Экспорт Cell s.SpecialCell s(11).Row; // строка последней ячейкиCell s.SpecialCell s(11).Column; // столбец последней ячейки Cell s(Стр,Столб).Value));
Подсказал Abadonna.
Категория:
Работа с Microsoft Office и OpenOffice Печать табличной части документа в Word'e Вот пример кода создания и заполнения таблиц(пример для 7.7, в 8.х заменить первую строку на МСВорд Новый COMОбъект("Word.Application")):
Код 1C v 7.x МСВорд = СоздатьОбъект("Word.Application"); Cell (1,1).Range.Text = "Это первая сирока, первая колонка";Cell (2,1).Range.Text = "";Cell (3,1).Range.Text = "";Cell (1,2).Range.Text = "";Cell (2,2).Range.Text = "";Cell (3,2).Range.Text = "Это третья строка, вторая колонка";Cell (1,1).Range.Paragraphs(1).Alignment = 1;Cell (1,1).Range.Text = "№";Cell (1,2).Range.Paragraphs(1).Alignment = 1;Cell (1,2).Range.Text = "Колонка 2";Cell (1,3).Range.Paragraphs(1).Alignment = 1;Cell (1,3).Range.Text = "Колонка 3";Cell (1,4).Range.Paragraphs(1).Alignment = 1;Cell (1,4).Range.Text = "Примечание";Cell (А+1,1).Range.Text = Строка(А);//номер строкиCell (А+1,2).Range.Text = Док.РеквизитТабличнойЧастиДокумента1;Cell (А+1,3).Range.Text = Док.РеквизитТабличнойЧастиДокумента2;Cell (А+1,4).Range.Text = Док.РеквизитТабличнойЧастиДокумента3;Cell (А+1,1).Range.Text = Строка(А);//номер строкиCell (А+1,2).Range.Text = ТЗ.ПолучитьЗначение(А,1);Cell (А+1,3).Range.Text = ТЗ.ПолучитьЗначение(А,2);Cell (А+1,4).Range.Text = ТЗ.ПолучитьЗначение(А,3);
ТЗ - это таблица значений.
Для документа можно так цикл организовать:
Предположим, что Док - это документ, тогда
Код 1C v 8.2 УП Для А =1 По Док.КоличествоСтрок() ЦиклCell (А+1,1).Range.Text = Строка(А);//номер строкиCell (А+1,2).Range.Text = Док.РеквизитТабличнойЧастиДокумента1;Cell (А+1,3).Range.Text = Док.РеквизитТабличнойЧастиДокумента2;Cell (А+1,4).Range.Text = Док.РеквизитТабличнойЧастиДокумента3; Категория:
Работа с Microsoft Office и OpenOffice 
Быстрая выгрузка отчетов в Excel, наложение Фильта и отображение ярлыка Категория: Работа с Microsoft Office и OpenOffice