Как таблицу значений выгрузить в Excel Код 1C v 8.х Cells (1,К).Font.Name = "Tahoma";Cells (1,К).Font.Size = 10;Cells (1,К).Font.FontStyle = "Bold";Cells (1,К).FormulaR1C1 = Заг;Cells (Т.Индекс(Стр)+2, К).FormulaR1C1 = Строка(Зн); Категория:
Работа с Таблицей Значений Чтение и Вывод данных в 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(ПутьКФайлу);Cells (НомерСтроки, НомерКолонки).Value;Важно: не забывайте поле выполнения нужных действий добавлять код
Код 1C v 7.x Эксель.Quit();
, иначе запущенный процесс останется незавершенным и будет занимать память и процессор компьютера.
Вывод данных в Excel
Для вывода (выгрузки) данных в Excel необходимо либо открыть существующую книгу, либо создать новую, и выбрать рабочий лист для вывода данных. Открытие существующей книги описано выше, а для создания новой книги нужно использовать следующий код:
Код 1C v 7.x Попытка
Так как при создании книги в Excel автоматически создаются листы (Сервис->Параметры->Общие->Листов в новой книге), то нужно лишь произвести выбор листа, с которым будет вестись работа:
Код 1C v 7.x Лист = Книга.WorkSheets(НомерЛиста);
Следующим шагом будет установка значения ячейки:
Код 1C v 7.x Лист.Cells (НомерСтроки, НомерКолонки).Value = Значение;
И в конце нужно произвести запись созданной книги:
Код 1C v 7.x ПопыткаВажно: не забывайте, что в имени файлов не должно содержаться символов \ / : * ? " > < Категория:
Работа с Microsoft Office и OpenOffice Выгрузка данных в Excel с установкой разных параметров Код 1C v 8.х // Процедура выгружает из указанного справочника данные в режиме экспорта в файл в формате Microsoft ExcelCells (1, Колонка).Value = стр.НазваниеРеквизита;Cells (СтрокаЛиста, Колонка).NumberFormat = "0,00";Cells (СтрокаЛиста, Колонка).Value =Cells (СтрокаЛиста, Колонка).NumberFormat = "@";Cells (СтрокаЛиста, Колонка).Value =Код 1C v 7.x //Простейший пример вывода из 1С:Предприятия 7.7 в MS Excel. Обеспечение наличия у рабочей книги единственного листа, Категория:
Работа с Microsoft Office и OpenOffice Как выборочно Разрешить / Запретить редактирование ячеек листа Для 8.х в нижеследующем коде замените СоздатьОбъект на Новый COMОбъект, остальное все также:
Код 1C v 7.x //Создаем объект EXCELCells (Перем, 2).Locked=0; Категория:
Работа с Microsoft Office и OpenOffice Поиск из 1С в Excel Для 8.х в нижеследующем коде замените
СоздатьОбъект( на
Новый COMОбъект !
Код 1C v 7.x //Пример 1:Cells (1, 1).Text); Категория:
Работа с Microsoft Office и OpenOffice Создание документа Excel по имеющемуся шаблону, оформлению. Код 1C v 8.х ПопыткаCells (1, 1).Value = "Наименование контрагента";Cells (3 + НомерСтроки,1), ЛистНовый.Cells (3 + НомерСтроки, 5)));Cells (3 + НомерСтроки, 1).Value = НомерСтроки;Cells (3 + НомерСтроки, 2).Value = "Наименование номенклатурной позиции " + Строка(НомерСтроки);Cells (3 + НомерСтроки, 3).Value = НомерСтроки;Cells (3 + НомерСтроки, 4).Value = НомерСтроки;Cells (3 + НомерСтроки, 5).Value = НомерСтроки; Категория:
Работа с Microsoft Office и OpenOffice Пример построения в Word нумерованного списка, закладок, вставки картинки, настройки ее параметров. Часто при создании документа из макета используют метод замены кусков текста. В примере представлен другой вариант выполнения того же действия - с использованием закладок. Также представлен пример построения нумерованного списка, вставки картинки, настройки ее параметров.
Пример использования описанных возможностей прост. При формировании коммерческого предложения бывает необходимо описать список условий, добавить изображение образца продукции.
Для отображения закладок включите эту опцию в настройках вашего Word'а.
В моем примере я заранее создал новый пустой документ, путь к документу и картинке прописан в тексте. Не забудьте указать свои пути.
Тестировалось на Office 2007.
Некоторые переменные переименованы по стандарту Office: Text --> S_election. Doc --> ThisDocument.
Вот текст модуля:
Код 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;Написал Nikola23 - http://infostart.ru/public/68072/ Категория:
Работа с Microsoft Office и OpenOffice Создание документа Word без использования макетов и пример создания таблицы и её оформление. Кроме прочего в статье присутствует пример создания таблицы с любым количеством колонок и столбцов. Несколько строк с форматированием текста и таблицы. Создание "объединенных" ячеек.
В качестве примера использования можно указать вот такую ситуацию: в зависимости от типа клиента (договора, документа и т.п) формируются разные тексты договоров с разным количеством таблиц. В реальности, конечно должены использоваться и макет и описанные здесь динамические механизмы.
В моем примере я заранее создал новый пустой документ.
Тестировалось на Office 2007.
Исп. переменные: "ПутьКФайлу" - строка. Полное имя файла в формате MSWord.
"Ссылка" - ДокументСсылка (в моем случае - счет).
Вот текст модуля:
Код 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;Написал Nikola23 - http://infostart.ru/public/67727/ Категория:
Работа с Microsoft Office и OpenOffice Загрузка данных из таблицы Excel в ТЗ (Таблицу значений) Код для 7 версии, при использовании в 8-ой - заменить E=СоздатьОбъект("Excel.Application");
на
E=Новый COMОбъект("Excel.Application");
Код 1C v 7.x Функция глОткрытьФайл(Маска="") Экспорт Cells .SpecialCells (11).Row; // строка последней ячейкиCells .SpecialCells (11).Column; // столбец последней ячейки Cells (Стр,Столб).Value));
Подсказал Abadonna.
Категория:
Работа с Microsoft Office и OpenOffice Пример обращения к программе 1С:Предприятие из модуля MS Excel В данном примере запускается и инициализируется конфигурация 1С:Предприятие 8.0 с базой данных в каталоге D:\1CBasa.
Далее в программе 1С:Предприятие 8.0 создается объект типа "СправочникМенеджер.Товары" и создается новая группа элементов с названием "***** Экспорт из Excel ******".
Во вновь созданную группу каталога записываются данные из таблицы MS Excel.
Пример представлен на языке MS Visual Basic:
Код VBS Sub Excel_to_trade()Cells (Count, 2).ValueCells (Count, 3).ValueCells (Count, 4).ValueCells (Count, 5).Value Категория:
Работа с Microsoft Office и OpenOffice Как выгрузиться в EXCEL со сводными таблицами Пошаговый рабочий алгоритм выгрузки в EXCEL на примере выгрузки отчетов производства за смену(Автор статьи:
Funny ):
(1) Нарисовать форму обработки и к кнопке запуска прицепить процедуру:
Код 1C v 8.х Процедура КнопкаВыполнитьНажатие(Кнопка)
(2) Создадим функцию ПроверкаДат() корректного указания дат обработки
(3) Создадим процедуру ПолучитьДанныеВТаблице() выборки требуемых данных из документов в таблицу значений
(4) Создадим процедуру СортироватьТаблицу() для сортировки таблицы значений как нам нужно
(5) Создадим процедуру ВыгрузитьТаблицуВФайл() выгрузки ТЗ в Excel-файл:
Код 1C v 8.х Процедура ВыгрузитьТаблицуВФайл()Код 1C v 7.x РабочаяКнига = СоздатьОбъект("Excel.Application");Cells (1,Столбец);Cells (НомерСтроки,Ст); Категория:
Работа с Microsoft Office и OpenOffice Выгрузка метаданных конфигурации в Microsoft Word и Excel Код 1C v 8.х Cells (НомерСтроки, 1).Value = ТипОбъекта.Значение;Cells (НомерСтроки, 1).Font.Size = 16;Cells (НомерСтроки, 1).Font.ColorIndex = 3;Cells (НомерСтроки, 1).Value = Объект.Синоним;Cells (НомерСтроки, 1).I_nsertIndent(2);Cells (НомерСтроки, 1).Font.Size = 12;Cells (НомерСтроки, 1).Font.ColorIndex = 5;Cells (НомерСтроки, 1).Value = Параметр.Значение + " (" + Количество + ")";Cells (НомерСтроки, 1).I_nsertIndent(4);Cells (НомерСтроки, 1).Font.Bold = Истина;Cells (НомерСтроки, 1).Font.ColorIndex = 16;Cells (НомерСтроки, 1).Value = "Имя";Cells (НомерСтроки, 2).Value = "Синоним";Cells (НомерСтроки, 3).Value = "Тип";Cells (НомерСтроки, 4).Value = "Комментарий";Cells (НомерСтроки, Ном).ColumnWidth = 20;Cells (НомерСтроки, Ном).Font.Bold = Истина;Cells (НомерСтроки, Ном).Borders(5).LineStyle = -4142;Cells (НомерСтроки, Ном).Borders(7).LineStyle = 1;Cells (НомерСтроки, Ном).Borders(8).LineStyle = 1;Cells (НомерСтроки, Ном).Borders(9).LineStyle = 1;Cells (НомерСтроки, Ном).Borders(10).LineStyle = 1;Cells (НомерСтроки, Ном).Interior.ColorIndex = 34;Cells (НомерСтроки, 1).Value = Значение.Имя;Cells (НомерСтроки, 2).Value = Значение.Синоним;Cells (НомерСтроки, 3).Value = СтрокаТипов;Cells (НомерСтроки, 4).Value = Значение.Комментарий;Cells (НомерСтроки, Ном).Borders(5).LineStyle = -4142;Cells (НомерСтроки, Ном).Borders(7).LineStyle = 1;Cells (НомерСтроки, Ном).Borders(8).LineStyle = 1;Cells (НомерСтроки, Ном).Borders(9).LineStyle = 1;Cells (НомерСтроки, Ном).Borders(10).LineStyle = 1;Cells (НомерСтроки, Ном).VerticalAlignment = -4160;Cells (НомерСтроки, Ном).WrapText = Истина;Код 1C v 7.x Категория:
Работа с Microsoft Office и OpenOffice Как из 1С написать формулу в Excel Объяснить мне сразу трудно - поэтому давайте "на пальцах"
Свежий простой пример :
вопрос " Ексель.Cells (1,3).Formula= "=СЦЕПИТЬ(E1;C7)";" "
первое на что хочу обратить внимание
те функции которые Вы видите визуально в ячейке MS EXCEL для 1С "слегка не знакомы", ей лучше озвучить имя функции на VBA
откуда Вы знаете как это функция на VBA называется ???
я Вам расскажу, немного терпения:
1. открываем новую книгу MS EXCEL
2. идем в меню Сервис - Макрос - Начать запись - Ок (появится маленькое окошко с квадратной кнопкой - его не кое случае не закрывать)
3. кликаем ячейку "С1" и пишем в ней формулу =СЦЕПИТЬ(E1;C7)
4. после этого нажимаем на квадратную кнопочку (Мы только что с Вами записали макрос на языке VBA)
5.посмотрим что получилось
идем в меню Сервис - Макрос - Макросы - (там будет в новой книге по умолчанию Макрос1) - выбираем его и нажимаем кнопку "Войти"
Поздравляю - мы попали во встроенный редактор VBA (аналог конфигурартора 1С)
и что мы видим
Код Sub Макрос1()
теоритически нам нужно только
Код Range("C1").FormulaR1C1 = "=CONCATENATE(RC[2],R[6]C)"
это и будет для 1С =
Код 1C v 7.x Cells (1,3).Formula= "=СЦЕПИТЬ(E1;C7)";" "Проверим, напишем код на любимом 1С:
Код 1C v 7.x Процедура Сформировать()
все работает.
немного подумав, Вы поймете, что
Код 1C v 7.x Ехсел.Range("C1").FormulaR1C1 = "=CONCATENATE(RC[2],R[6]C)";
можно заменить на
Код 1C v 7.x Ехсел.Cells (1, 3).FormulaR1C1 = "=CONCATENATE(RC[2],R[6]C)";
и результат не изменится, а возможностей прибавится.
В MS EXCEL только амлет нельзя пожарить - возможности его одурманивают.
Tatitutu Категория:
Работа с Microsoft Office и OpenOffice Вставить формулу, функцию в ячейку Excel Код 1C v 8.х Ячейка = Лист.Cells (1,8);Код 1C v 7.x Процедура Сформировать() Категория:
Работа с Microsoft Office и OpenOffice Группировка строк Excel В ниже указанном коде нужно убрать символ
_
Код 1C v 8.х Cells (1,1);Cells (4,1);Код 1C v 7.x Категория:
Работа с Microsoft Office и OpenOffice 
Как таблицу значений выгрузить в Excel Категория: Работа с Таблицей Значений