Работа с “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