Ячейка = Лист.Cells(1,8); Ячейка.Formula="=SUM(R11C:R[-1]C)"; Процедура Сформировать() Перем Кат,Шаб; Ехсел=СоздатьОбъект("Excel.Application"); Книга=Ехсел.Workbooks; Если ФС.ВыбратьФайл(0,Кат,Шаб,"Выбери файл Еxcel",,"*.xls",)=1 Тогда Книга.Open(Шаб+Кат); Ехсел.Range("C1").FormulaR1C1...
Работа с Microsoft Office и OpenOffice
Работа с Microsoft Office и OpenOffice
Данный метод обладает гораздо большей производительностью и простотой, чем банальный объектный метод через COM соединение. Все что...
Отчет = РабочиеКниги.Open(Каталог+Названиефайла); ОтЛевогоКрая=550; ОтВерха=80; Длина=100; Высота=50; кн = Отчет.Sheets(1).OLEObjects.Add("Forms.CommandButton.1",,,,,,,ОтЛевогоКрая, ОтВерха, Длина,Высота); st = "Private Sub CommandButton1_Click()"...
Кроме прочего в статье присутствует пример создания таблицы с любым количеством колонок и столбцов. Несколько строк с...
// объединяем ячейки, ПРИ ИСПОЛЬЗОВАНИИ уберите символ _ в S_elect excel.Range(("B"+Строка(стр))+":"+("c"+строка(стр))).S_elect(); excel.S_election.Merge();
Часто при создании документа из макета используют метод замены кусков текста. В примере представлен другой вариант выполнения...
Лист.Columns("D:F").ColumnWidth = 0;
Попытка // Создать объект. Excel = Новый COMОбъект("Excel.Application"); Исключение Сообщить("Не удалось инициализировать Excel"); Возврат; КонецПопытки; Попытка //...
Заполняет Вордовский шаблон из СпискаЗначений Вставляется в виде обрабтки. При открытии передается СЗ первым значением идет WORD,...
Объяснить мне сразу трудно — поэтому давайте "на пальцах" Свежий простой пример : вопрос " Ексель.Cells(1,3).Formula= "=СЦЕПИТЬ(E1;C7)";"...
при открытии файла в таблице должен стоять фильтр с заданными параметрами: получить все товары у которых количество...
Ex = Новый COMObject("Excel.Application"); Ex.Workbooks.Open(Путь); Ex.Visible = 1; ТекЛист=Ex.WorkSheets(1); Для Ячейка = 1 по 400 цикл Если...
//Пример показывает как из 1С вызывается MS Word, вставляется макрос и запускается! //Макрос пишет на листе Добрый...
Для 8.х в нижеследующем коде замените СоздатьОбъект( на Новый COMОбъект! //Пример 1: Процедура Сформировать() Екскел=СоздатьОбъект("Excel.Application"); Книга=Екскел.WorkBooks.Open("C:\Ищем.xls"); Книга.Worksheets(1).Unprotect...
Попытка XLSОбъектОсновной = Новый COMОбъект("Excel.Application"); Исключение Предупреждение("Невозможно загрузить MS EXCEL !!!" + Символы.ПС + ОписаниеОшибки(), 10, "Ошибка");...
Перем ОбъектыКонфы; Перем СтруктКонфы; Процедура ВыгрузитьВWord() Попытка Word = Новый COMОбъект("Word.Application"); Исключение Сообщить("Не удалось открыть Word"); Возврат;...
Для 8.х в нижеследующем коде замените СоздатьОбъект на Новый COMОбъект, остальное все также: //Создаем объект EXCEL Эксель...
Процедура ПечатьВWord() wrd=создатьобъект("word.application"); wrd.documents.add("D:\doc.dot"); wrd.visible=1; wrd.documents(1).tables(1).cell(1,2).range.text = НомерДок; wrd.documents(1).tables(1).cell(1,4).range.text = ДатаДок; wrd.documents(1).tables(1).cell(2,2).range.text = Склад.Наименование; wrd.documents(1).tables(1).cell(3,2).range.text = Получатель.Наименование;...
// Проверка орфоргафии переданного текста с помощью средств MS Word // Параметры // <Текст> – <Строка> –...
oWord=СоздатьОбъект("Word.Application"); oWord.WindowState = 1; oWord.Height = 0; oWord.Width = 0; myopendial = oWord.FileDialog(3); myopendial.AllowMultiSelect = -1; myopendial.Title...