Попытка Екс= Новый COMОбъект("Excel.Application") ; НашФайл = Екс.Workbooks.Open(пвФайл); //Открываем файл ДеревоЛистов.Строки.Очистить(); тУроветь=ДеревоЛистов.Строки.Добавить(); тУроветь[0]=Файл.Имя; Для к=1 по НашФайл.Sheets.Count()...
Работа с Microsoft Office и OpenOffice
Работа с Microsoft Office и OpenOffice
Перем СсылкаНаДокумент; Процедура СформироватбФайл_MS_Word_И_OpenOffice(Кнопка) ДокументСсылка = СсылкаНаДокумент; ИмяФайла = ПолучитьИмяВременногоФайла(); // Теперь формируем файл из MS Wordа...
При чтении файла Excel я использую вариантный массив. Он позволяет быстро получить ВСЮ таблицу листа в память,...
Код //Функция открывает таблицу в MS Excel //Таблица - печатная форма 1С //ИмяЛиста - имя, которое будет...
// Создание объекта MS Word Word = Новый COMОбъект("Word.Application"); // Установка видимости приложения Word.Visible = Ложь; //...
Вместо Таб.Показать() используем глобальную функцию — и отчет показывается сразу в Excel в удобоваримом виде — с...
Узнать последнюю строку можно следующими примерами: 1. Сообщить(appExcel.WorkSheets(1).UsedRange.Row); 2. метод определяет, когда закончились данные на листе: SpecialCells(11)...
Для 8.х заменить СоздатьОбъект( на Новый COMОбъект( // Пример от Jaap Vduul // Пример чтения таблицы из...
//********************************************************************************** //получаем макет на сервере, сохраняем в файл и передаем на клиента &НаСервере Функция ПолучитьДанныеМакета() АдресХранилища...
В ниже указанном коде нужно убрать символ _ //Группировка строк по уровню 2 Worksheet.Range("7:8").Rows.Group(); Worksheet.Range("10:11").Rows.Group(); Worksheet.Range("14:15").Rows.Group(); Worksheet.Range("17:18").Rows.Group();...
MS Excel Попытка Excel = Новый COMОбъект("Excel.Application"); Исключение Сообщить("ВНИМАНИЕ! TOpenOffice не установлен или недостаточно прав доступа! |...
Ячейка = Лист.Cells(1,8); Ячейка.Formula="=SUM(R11C:R[-1]C)"; Процедура Сформировать() Перем Кат,Шаб; Ехсел=СоздатьОбъект("Excel.Application"); Книга=Ехсел.Workbooks; Если ФС.ВыбратьФайл(0,Кат,Шаб,"Выбери файл Еxcel",,"*.xls",)=1 Тогда Книга.Open(Шаб+Кат); Ехсел.Range("C1").FormulaR1C1...
Данный метод обладает гораздо большей производительностью и простотой, чем банальный объектный метод через 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,...