ДокExcel = Новый COMОбъект("Excel.Application"); //... ДокExcel.Application.Workbooks.Application.Workbooks.Add(1); ДокExcel.Application.Workbooks.Application.ActiveSheet.Name = "Закладка 1"; ДокExcel.Application.Workbooks.Application.ActiveWorkbook.Worksheets.Add(); ДокExcel.ActiveWorkbook.Sheets.Application.ActiveSheet.Name = "Вторая Закладка"; ДокExcel.Visible =...
Работа с Microsoft Office и OpenOffice
Работа с Microsoft Office и OpenOffice
В данном примере запускается и инициализируется конфигурация 1С:Предприятие 8.0 с базой данных в каталоге D:\1CBasa. Далее в...
Попытка // Создать объект. Excel = Новый COMОбъект("Excel.Application"); Исключение Сообщить("Не удалось инициализировать Excel"); Возврат; КонецПопытки; Попытка //...
ИмяФайла = "Отчет.xls"; ДиалогОткрытияФайла = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Сохранение); ДиалогОткрытияФайла.ПолноеИмяФайла = ИмяФайла; ДиалогОткрытияФайла.Каталог = КаталогВременныхФайлов(); ДиалогОткрытияФайла.Фильтр = "Файлы Microsoft...
Код для 7 версии, при использовании в 8-ой — заменить E=СоздатьОбъект("Excel.Application"); на E=Новый COMОбъект("Excel.Application"); Функция глОткрытьФайл(Маска="") Экспорт...
Иногда бывает так, что отчет очень большой (> 65535 строк), а работать с этим всем нужно через...
Попытка Екс= Новый COMОбъект("Excel.Application") ; НашФайл = Екс.Workbooks.Open(пвФайл); //Открываем файл ДеревоЛистов.Строки.Очистить(); тУроветь=ДеревоЛистов.Строки.Добавить(); тУроветь[0]=Файл.Имя; Для к=1 по НашФайл.Sheets.Count()...
Перем СсылкаНаДокумент; Процедура СформироватбФайл_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()"...