Работа с “Word”, “Excel” и ActiveX, страница 4

34)  ENDWITH 

35)  CLOSE DATA ALL

36)  RELEASE TO Excel

37)  RETURN

Макрос VBA

1)  Открыть Excel

2)  Включить VBA Вид → Макросы

3)  Нажать Запись макроса

4)  Дать свое имя или оставить Макрос1, нажать ОК

5)  Установить ширину колонок (например А,В,С)

6)  Ввести наименование колонок

А → Руководители

В → Дипломник

С →Группа

Уйти на свободную колонку

7)  Нажать Остановить запись

8)  Перейти по  Вид → Макросы и нажать Выполнить

9)  Перейти по  Вид → Макросы и нажать Изменить

10)  Скопировать код макроса

11)  Вставить в VFA с модификацией

ActiveX →Календарь

1)  Создаем новую форму:

2)  Выберем в Form Controls кнопку View Classes  → ActiveX

3)  Выберем из ActiveX календарь и разместим его на форме

4)  Создадим процедуру

Command1.Click

Thithform.text1.value = dtoc (date())

5)  Создадим процедуру Olecontrol1.click

Процедура  определения календарной даты

1.  LPARAMETERS cur_date

2.  cur_day = ALLTRIM(STR(thisform.olecontrol1.day))

3.  cur_mon = ALLTRIM(STR(thisform.olecontrol1.month))

4.  cur_year = ALLTRIM(STR(thisform.olecontrol1.year))

5.  cur_date = cur_day + "/" + cur_mon + "/" + cur_year

6.  thisform.text2.value = cur_date