Разработка приложений



         

Разработка приложений с помощью Excel 97 и VBA - часть 2


Type=Exe

Object={00028C01-0000-0000-0000-000000000046}#1.0#0;DBGRID32.OCX

Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0# _

C:\WINDOWS\SYSTEM\STDOLE2.TLB#Standard OLE Types

Reference=*\G{00025E04-0000-0000-C000-000000000046}#3.5#0# _

C:\PROGRAM FILES\COMMON FILES\MICROSOFT SHARED\DC:\PROGRAM _

FIL#Microsoft DAO 2.5 Object Library

Object={F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.1#0; _

COMDLG32.OCX

...

Module=OBOrd32; ..\OBOrd32.bas

Module=OBStock32; ..\Obstock32.bas

Form=..\Aboutbox32.frm

Module=Spread32; ..\Spread32.bas

Module=MAPI32; ..\Mapi32.bas

IconForm=”frmMain”

Startup=”frmMain”

HelpFile=””

Title=”MapView”

ExeName32=”Analyt.exe”

...

Идея, которую мы собираем воплотить, заключается в следующем. Работая в Excel, мы будем последовательно открывать интересующие нас файлы проектов и формировать таблицу со всеми используемыми в этих приложениях компонентами, а потом на основе этой информации создадим итоговую сводную таблицу (см. рис. 1) Такая задача может решаться несколькими способами. Например, вы можете написать необходимые процедуры на VB5 и вызвать Excel в качестве сервера ActiveX. Однако здесь мы покажем, как написать эти процедуры в среде самого Excel, используя VBA.

Рис. 1

ПРИМЕЧАНИЕ. Пусть читателей не смущает заголовок “Count of Файл” на рис.1. Мы специально хотели продемонстрировать возможные языковые проблемы, когда русскоязычное приложение делается в английской версии офисного пакета — английские слова в данном случае формируются автоматически мастером создания сводных таблиц.

Создание своих собственных процедур

ШАГ 1.

Запустите Excel, задайте имя новому проекту PivotVBP.xls и перейдите в среду разработки VB (Alt+F11). Создайте там новый BAS-модуль (команда Insert|Module) и назовите его также PivotVBP (в поле Name окна Properties).

Теперь приступим к написанию кода процедур данного модуля (окончательный вариант кода приведен в листинге 3). Обратите внимание, что создавать новые процедуры можно либо используя команду Insert|Procedure, либо введя первую строку заголовка процедуры (Sub ИмяПроцедуры) непосредственно в окне кода модуля.




Содержание  Назад  Вперед