Работа через COM с Excel » История » Версия 4
Всеволод Дорофеев, 23.10.2019 12:18
| 1 | 1 | Всеволод Дорофеев | h1. Работа через COM с Excel |
|---|---|---|---|
| 2 | 1 | Всеволод Дорофеев | |
| 3 | 4 | Всеволод Дорофеев | http://citforum.ru/programming/windows/excel_faq/ |
| 4 | 4 | Всеволод Дорофеев | https://docs.microsoft.com/ru-ru/office/vba/api/excel.workbook.activesheet |
| 5 | 4 | Всеволод Дорофеев | |
| 6 | 1 | Всеволод Дорофеев | h3. При передачи большого числа, например, Штрихкода документа, обрезаются символы после 16 знака. |
| 7 | 1 | Всеволод Дорофеев | |
| 8 | 1 | Всеволод Дорофеев | Для корректного вывода устанавливаем текстовый формат, затем выводим |
| 9 | 1 | Всеволод Дорофеев | |
| 10 | 1 | Всеволод Дорофеев | <pre> |
| 11 | 1 | Всеволод Дорофеев | Если Лист.Range(ИмяОбласти).Select() Тогда |
| 12 | 1 | Всеволод Дорофеев | если нрег(ИмяОбласти) = нрег("ШтрихКодДокумента") Тогда |
| 13 | 1 | Всеволод Дорофеев | Лист.Range(ИмяОбласти).NumberFormat = "@"; // текстовый формат |
| 14 | 1 | Всеволод Дорофеев | КонецЕсли; |
| 15 | 2 | Всеволод Дорофеев | Лист.Range(ИмяОбласти).value = прЗначение; |
| 16 | 1 | Всеволод Дорофеев | КонецЕсли; |
| 17 | 1 | Всеволод Дорофеев | </pre> |
| 18 | 1 | Всеволод Дорофеев | |
| 19 | 1 | Всеволод Дорофеев | Прочие форматы: |
| 20 | 1 | Всеволод Дорофеев | |
| 21 | 1 | Всеволод Дорофеев | <pre> |
| 22 | 1 | Всеволод Дорофеев | РабочийЛистКниги.Cells(1,1).NumberFormat = "@"; // текстовый формат |
| 23 | 1 | Всеволод Дорофеев | РабочийЛистКниги.Cells(1,2).NumberFormat = "0"; // числовой формат |
| 24 | 1 | Всеволод Дорофеев | РабочийЛистКниги.Cells(1,3).NumberFormat = ""; // Формат даты Selection.NumberFormat = "m/d/yyyy" |
| 25 | 1 | Всеволод Дорофеев | </pre> |
| 26 | 3 | Всеволод Дорофеев | |
| 27 | 3 | Всеволод Дорофеев | h3. Работа с книгами, листами |
| 28 | 3 | Всеволод Дорофеев | |
| 29 | 3 | Всеволод Дорофеев | https://1c.ru/rus/partners/training/edu/theses/?y=2009&s=35&t=865 |
| 30 | 3 | Всеволод Дорофеев | <pre> |
| 31 | 3 | Всеволод Дорофеев | |
| 32 | 3 | Всеволод Дорофеев | Перем Excel, Лист; |
| 33 | 3 | Всеволод Дорофеев | |
| 34 | 3 | Всеволод Дорофеев | Функция СлучайноеЧисло() |
| 35 | 3 | Всеволод Дорофеев | |
| 36 | 3 | Всеволод Дорофеев | Excel.Calculate(); |
| 37 | 3 | Всеволод Дорофеев | |
| 38 | 3 | Всеволод Дорофеев | x=Лист.Cells(3,1).value; |
| 39 | 3 | Всеволод Дорофеев | |
| 40 | 3 | Всеволод Дорофеев | Возврат x; |
| 41 | 3 | Всеволод Дорофеев | |
| 42 | 3 | Всеволод Дорофеев | КонецФункции |
| 43 | 3 | Всеволод Дорофеев | |
| 44 | 3 | Всеволод Дорофеев | |
| 45 | 3 | Всеволод Дорофеев | |
| 46 | 3 | Всеволод Дорофеев | Процедура СтатМоделированиеБросковМонетыНажатие(Элемент) |
| 47 | 3 | Всеволод Дорофеев | |
| 48 | 3 | Всеволод Дорофеев | Excel=Новый ComОбъект(«Excel.Application»); |
| 49 | 3 | Всеволод Дорофеев | |
| 50 | 3 | Всеволод Дорофеев | Excel.Volatile(); //Сброс генератора случайных чисел |
| 51 | 3 | Всеволод Дорофеев | |
| 52 | 3 | Всеволод Дорофеев | Excel.Application.WorkBooks.Add(1); |
| 53 | 3 | Всеволод Дорофеев | |
| 54 | 3 | Всеволод Дорофеев | Лист=Excel.ActiveSheet; |
| 55 | 3 | Всеволод Дорофеев | |
| 56 | 3 | Всеволод Дорофеев | Лист.Cells(1,1).Formula=«=RAND()»; |
| 57 | 3 | Всеволод Дорофеев | |
| 58 | 3 | Всеволод Дорофеев | n=1; |
| 59 | 3 | Всеволод Дорофеев | |
| 60 | 3 | Всеволод Дорофеев | Если ВвестиЧисло(n,»Введите количество бросков») Тогда |
| 61 | 3 | Всеволод Дорофеев | |
| 62 | 3 | Всеволод Дорофеев | Орел=0; |
| 63 | 3 | Всеволод Дорофеев | |
| 64 | 3 | Всеволод Дорофеев | Решка=0; |
| 65 | 3 | Всеволод Дорофеев | |
| 66 | 3 | Всеволод Дорофеев | Для i=1 По n Цикл |
| 67 | 3 | Всеволод Дорофеев | |
| 68 | 3 | Всеволод Дорофеев | x=СлучайноеЧисло(); |
| 69 | 3 | Всеволод Дорофеев | |
| 70 | 3 | Всеволод Дорофеев | Если x>=0.5 Тогда |
| 71 | 3 | Всеволод Дорофеев | |
| 72 | 3 | Всеволод Дорофеев | Орел=Орел+1; |
| 73 | 3 | Всеволод Дорофеев | |
| 74 | 3 | Всеволод Дорофеев | Иначе |
| 75 | 3 | Всеволод Дорофеев | |
| 76 | 3 | Всеволод Дорофеев | Решка=Решка+1; |
| 77 | 3 | Всеволод Дорофеев | |
| 78 | 3 | Всеволод Дорофеев | КонецЕсли; |
| 79 | 3 | Всеволод Дорофеев | |
| 80 | 3 | Всеволод Дорофеев | КонецЦикла; |
| 81 | 3 | Всеволод Дорофеев | |
| 82 | 3 | Всеволод Дорофеев | КонецЕсли; |
| 83 | 3 | Всеволод Дорофеев | |
| 84 | 3 | Всеволод Дорофеев | Сообщить(Орел); |
| 85 | 3 | Всеволод Дорофеев | |
| 86 | 3 | Всеволод Дорофеев | Сообщить(Решка); |
| 87 | 3 | Всеволод Дорофеев | |
| 88 | 3 | Всеволод Дорофеев | Excel.ActiveWorkBook.Close(0); |
| 89 | 3 | Всеволод Дорофеев | |
| 90 | 3 | Всеволод Дорофеев | Excel.Quit(); |
| 91 | 3 | Всеволод Дорофеев | |
| 92 | 3 | Всеволод Дорофеев | Excel=Неопределено; |
| 93 | 3 | Всеволод Дорофеев | |
| 94 | 3 | Всеволод Дорофеев | КонецПроцедуры |
| 95 | 3 | Всеволод Дорофеев | </pre> |
| 96 | 3 | Всеволод Дорофеев | |
| 97 | 3 | Всеволод Дорофеев | |
| 98 | 3 | Всеволод Дорофеев | |
| 99 | 3 | Всеволод Дорофеев | Основным, в объектной модели Excel, является объект Application, содержащий коллекцию WorkBooks объектов типа WorkBook. Каждый объект типа WorkBook содержит коллекцию объектов WorkSheets типа WorkSheet. |
| 100 | 3 | Всеволод Дорофеев | |
| 101 | 3 | Всеволод Дорофеев | Манипуляция рабочими книгами, их листами, ячейками осуществляется путем обращения к свойствам и методам этих объектов. Для создания OLE сервера MS Excel можно использовать следующий код: |
| 102 | 3 | Всеволод Дорофеев | |
| 103 | 3 | Всеволод Дорофеев | Excel = Новый COMОбъект («Excel.Application «). |
| 104 | 3 | Всеволод Дорофеев | |
| 105 | 3 | Всеволод Дорофеев | Создать новую рабочую книгу Excel можно c помощью метода Add коллекции WorkBooks объекта Application: |
| 106 | 3 | Всеволод Дорофеев | |
| 107 | 3 | Всеволод Дорофеев | Excel.Application.WorkBooks.Add(). |
| 108 | 3 | Всеволод Дорофеев | |
| 109 | 3 | Всеволод Дорофеев | Свойство ActiveWorkBook объекта Excel.Application указывает на текущую активную рабочую книгу среди одной или нескольких открытых. Помимо этого к рабочей книге можно обращаться по ее порядковому номеру. Например, ко второй открытой рабочей книге можно обратиться с помощью оператора: |
| 110 | 3 | Всеволод Дорофеев | |
| 111 | 3 | Всеволод Дорофеев | Excel.WorkBooks[2]. |
| 112 | 3 | Всеволод Дорофеев | |
| 113 | 3 | Всеволод Дорофеев | Сделать рабочую книгу активной можно с помощью метода Activate: |
| 114 | 3 | Всеволод Дорофеев | |
| 115 | 3 | Всеволод Дорофеев | Excel.WorkBooks[2]. Activate(). |
| 116 | 3 | Всеволод Дорофеев | |
| 117 | 3 | Всеволод Дорофеев | Закрытие документа осуществляется с помощью метода Close: |
| 118 | 3 | Всеволод Дорофеев | |
| 119 | 3 | Всеволод Дорофеев | Excel.ActiveWorkBook.Close(). |
| 120 | 3 | Всеволод Дорофеев | |
| 121 | 3 | Всеволод Дорофеев | Метод Close имеет несколько необязательных (в случае позднего связывания) параметров, влияющих на правила сохранения рабочей книги. Первый из параметров принимает значения истина или ложь и влияет на то, сохранять ли изменения, внесенные в рабочую книгу. Второй параметр - имя файла, в котором нужно сохранить рабочую книгу (если в нее были внесены изменения). Третий параметр также принимает значения истина или Ложь и влияет на то, будет ли пересылаться документ следующему пользователю по электронной почте. Просто сохранить рабочую книгу, не закрывая ее, можно с помощью метода Save или SaveAs. |
| 122 | 3 | Всеволод Дорофеев | |
| 123 | 3 | Всеволод Дорофеев | Закрыть OLE сервер MS Excel можно с помощью метода Quit объекта Excel.Application. Данный метод параметров не имеет. |
| 124 | 3 | Всеволод Дорофеев | |
| 125 | 3 | Всеволод Дорофеев | Обращение к активному листу рабочей книги производится с помощью оператора: |
| 126 | 3 | Всеволод Дорофеев | |
| 127 | 3 | Всеволод Дорофеев | Лист=Excel.ActiveSheet |
| 128 | 3 | Всеволод Дорофеев | |
| 129 | 3 | Всеволод Дорофеев | Обращение к отдельным ячейкам листа производится с помощью коллекции Cells объекта WorkSheet, например: |
| 130 | 3 | Всеволод Дорофеев | |
| 131 | 3 | Всеволод Дорофеев | Лист.Cells(1,1).Formula=«=RAND()» |
| 132 | 3 | Всеволод Дорофеев | |
| 133 | 3 | Всеволод Дорофеев | Таким образом мы вводим в ячейку формулу, в данном случае функцию генерирования случайного числа в диапазоне [0;1). Здесь первая из координат ячейки указывает на номер строки, вторая - на номер столбца. |
| 134 | 3 | Всеволод Дорофеев | |
| 135 | 3 | Всеволод Дорофеев | Оператор Excel.Calculate() выполняет перерасчет формул на активном листе электронной таблицы. |