Листинг программы экспорта в Excel

Процедуру необходимо адаптировать к Вашему проекту.

1. loExcel=CREATEOBJECT("Excel.Application")

2. loExcel.displayAlerts=.F.

3. with loExcel

4. .Visible=.t.

5. .WorkBooks.Add

6. .Sheets(1).Select

** Выполнение запроса для занесения в таблицу Excel

7. Use data1!rukovoditely

8. SELECT TRIM(r_fam)+' '+TRIM(r_im)+' '+TRIM(r_ot),TRIM(s_fam)+' '+TRIM(s_im)+' '+TRIM(s_ot),TRIM(group);

9. From data1!rukovoditely;

10. order by r_fam;

11. Into array a

12. rowsCount=ALEN(a,1)

13. colsCount=ALEN(a,2)

** Код программы получен как макрос VBA

14. .Columns("A:A").ColumnWidth = 30

15. .Columns("B:B").ColumnWidth = 30

16. .Columns("C:C").ColumnWidth = 14

17. .Range("A1").Select

18. .ActiveCell.FormulaR1C1 = "Руководитель"

19. .Range("B1").Select

20. .ActiveCell.FormulaR1C1 = "Дипломник"

21. .Range("C1").Select

22. .ActiveCell.FormulaR1C1 = "Группа"

23. .Range("D1").Select

24. j=2

25. FOR j=2 TO rowsCount+1

26. .Range("A1").Select

27. .Activecell(j,1).FormulaR1C1= a[j-1,1]

28. .Range("B1").Select

29. .Activecell(j,1).FormulaR1C1= a[j-1,2]

30. .Range("C1").Select

31. .Activecell(j,1).FormulaR1C1 = a[j-1,3]

32. ENDFOR

33. Release a

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