История создания датчика движения: Первый прибор для обнаружения движения был изобретен немецким физиком Генрихом Герцем...
История развития пистолетов-пулеметов: Предпосылкой для возникновения пистолетов-пулеметов послужила давняя тенденция тяготения винтовок...
Топ:
Генеалогическое древо Султанов Османской империи: Османские правители, вначале, будучи еще бейлербеями Анатолии, женились на дочерях византийских императоров...
Проблема типологии научных революций: Глобальные научные революции и типы научной рациональности...
Оценка эффективности инструментов коммуникационной политики: Внешние коммуникации - обмен информацией между организацией и её внешней средой...
Интересное:
Уполаживание и террасирование склонов: Если глубина оврага более 5 м необходимо устройство берм. Варианты использования оврагов для градостроительных целей...
Мероприятия для защиты от морозного пучения грунтов: Инженерная защита от морозного (криогенного) пучения грунтов необходима для легких малоэтажных зданий и других сооружений...
Аура как энергетическое поле: многослойную ауру человека можно представить себе подобным...
Дисциплины:
2020-04-01 | 105 |
5.00
из
|
Заказать работу |
|
|
Все указанные в заголовке действия можно выполнить следующим образом:
1. В редакторе VBA нажать правую клавишу мыши на дереве проекта на имени нужного нам модуля (или на любом имени имеющегося модуля, для того, что бы создать новый модуль)
2. Выбрать соответствующий пункт меню (для создания модуля выбрать пункты: Вставить-модуль)
Импорт и экспорт модуля из проекта в проект
Импорт модуля через экспортируемый файл (а также модулей обычного VB)
Для пересылки модуля из проекта в проект можно воспользоваться следующим приемом:
1. Экспортировать модуль из проекта в файл (в редакторе VBA нажать правую клавишу мыши на дереве проекта, на имени модуля, и выбрать пункт “Экспорт файла”)
2. Импортировать модуль из файла в проект (данный файл может являться не только экспортируемым файлом из VBA приложения, но и быть модулем обычного VB)
В редакторе VBA нажать правую клавишу мыши на дереве проекта, на имени файла, и выбрать пункт “Экспорт файла”
.
Редакция модуля
1. В редакторе VBA кликнуть в окне проекта два раза по имени нужного нам модуля (см. рис 1)(В Access выбрать закладку Модули и имя соответствующего модуля, войти в меню Вид-Программа.).
2. Перейти в активизированное окно редактора модуля (справа от окна проекта) и редактировать его.
3. Из верхнего левого списка, расположенного вверху окна редактора модуля, можно выбирать либо раздел описания, либо имя нужной вам подпрограммы (В модуле Форм, Листов Excel, Книги Excel, Документа Word и т.п. из верхнего правого списка можно выбрать Общую Область, либо имя объекта (Листа, Книги, Документа и т.п.), либо имя элемента управления (который находится на соответствующем Листе, Книге, Документе и т.п.), при выбранном объекте, из правого списка выбирается имя события, для того, что бы активизировать соответствующую событийную процедуру объекта или элемента управления).
|
Обработка модулей VBA программно
Под “ИмяПроекта” в программной конструкции подразумевается соответствующий объект. Для связи с книгой Excel предназначен объект - Workbooks("Имя книги"), а для связи с документом Word объект - Documents(“Имя документа”). Объект для связи с документом, который содержит общие макросы приложения Word, имеет имя: NormalTemplate, в Excel приложении данный объект записывается следующим образом: Workbooks("PERSONAL").
Экспорт модуля проекта в файл
ИмяПроекта.VBProject.VBComponents.Item("Имя модуля").Export "Путь и ИмяФайла"Импорт модуля проекта из файла
ИмяПроекта.VBProject.VBComponents.Import "Путь и ИмяФайла"Импорт модуля через организатор(данный код только для Word приложения)
Application.OrganizerCopy Source:= _ “Путь и имя проекта, откуда берется модуль”, Destination:= _ “Путь и имя проекта куда импортируется модуль”, Name:="Имя модуля", Object _:=wdOrganizerObjectProjectItemsВставка новых строк в модуль проекта
ИмяПроекта.VBProject.VBComponents.Item("Имя модуля").CodeModule.InsertLines №, SГде
№ - Номер строки в модуле, с которой будут вставляться новые строки
S – Вставляемая строка символов
Примечание:
В переменной S могут содержаться коды символов конца строк, которые можно получить следующей функцией со следующим аргументом: CHR(13). Таким образом, переменная S может содержать в себе сразу несколько строк:
Удаление строк из модуля
ИмяПроекта..VBProject.VBComponents.Item("Имя модуля").CodeModule.DeleteLines(№,Количество)Где
№ - Номер строки в модуле с которой будут удаляться строки
Количество – количество удаляемых строк
Чтение строк из модуля
ИмяПроекта.VBProject.VBComponents.Item("Имя модуля").CodeModule.Lines(№,Количество)Где
№ - Номер строки, в модуле с которой будут начинаться чтение строк
Количество – количество читаемых строк
|
Определение количества строк в модуле
ИмяПроекта.VBProject.VBComponents.Item("Имя модуля").CodeModule.CountOfLinesПереименование модулей проекта
ИмяПроекта.VBProject.VBComponents.Item(“ИмяМодуля”).Name =”Новое имя модуля”Удаление модулей проекта
ИмяПроекта.VBProject.VBComponents.Remove _ ИмяПроекта.VBProject.VBComponents.Item("ИмяМодуля")
|
|
Двойное оплодотворение у цветковых растений: Оплодотворение - это процесс слияния мужской и женской половых клеток с образованием зиготы...
Особенности сооружения опор в сложных условиях: Сооружение ВЛ в районах с суровыми климатическими и тяжелыми геологическими условиями...
Типы оградительных сооружений в морском порту: По расположению оградительных сооружений в плане различают волноломы, обе оконечности...
История развития пистолетов-пулеметов: Предпосылкой для возникновения пистолетов-пулеметов послужила давняя тенденция тяготения винтовок...
© cyberpedia.su 2017-2024 - Не является автором материалов. Исключительное право сохранено за автором текста.
Если вы не хотите, чтобы данный материал был у нас на сайте, перейдите по ссылке: Нарушение авторских прав. Мы поможем в написании вашей работы!