FoxPro Club Главная

Конференция Решения Фотоальбом Сайт М.Дроздова Статьи Файловый архив Книга Visual FoxPro 9.0 Русский Help для Visual FoxPro
Пользователей: 9145
Вход
Создание отчета с использованием Excel

Пример работы с Excel: создание отчета. Использует excel.h


 
Прислал: A.Пинигин   Категория: Foxpro и другие приложения


Создание отчета с использованием Excel

Системные констаиты хранятся в файле excel.h
Делаем запись макроса макрорекордером Excel, делаем переопределение логических констант true и false командами #DEFINE true .T., #DEFINE false .F. и исправляем отдельные команды

WITH SELECTION.BORDERS(xledgeleft) в вид
WITH .SELECTION.BORDERS(xledgeleft)

END WITH в вид ENDWITH

* Пример программы рисования таблицы

#include excel.h
#DEFINE true .T.
#DEFINE false .F.
#DEFINE m_fontsize 18
#DEFINE m_fontname "Times New Roman"

IF !USED ("rep2")
SELECT 0
USE rep2
ELSE
SELECT rep2
ENDIF

* получение последнего номера строки
m_rec_kol = RECCOUNT()+1
m_adrsum = m_rec_kol+1

m_d1 = ALLTRIM(STR(m_rec_kol))
m_d2 = ALLTRIM(STR(m_adrsum))


lcolderror = ON("ERROR")
ON ERROR o_excel = .NULL.
o_excel = GETOBJECT( , "Excel.application")
ON ERROR &lcolderror
IF ISNULL(o_excel)
EXPORT TO rep_trener XL5
m_file_xls = SYS(5)+CURDIR()+"rep_trener.XLs"
o_excel = CREATEOBJECT("EXCEL.Application")
o_excel.APPLICATION.VISIBLE = .T.
o_excel.workbooks.OPEN("&m_file_xls")
ELSE
m_box = MESSAGEBOX("Проверте не запущен ли файл REP_TRENER.XLS "+CHR(13)+;

" ", 0+32, "Предупреждение!")
RETURN
ENDIF


WITH o_excel
***************************************************
*!* выделение области таблицы и рисование линий
***************************************************
* выделение области
m_com = [.RANGE("A1:I]+m_d1+[").SELECT]
&m_com
*********************************************
* рисование линий
*********************************************
.SELECTION.BORDERS(xldiagonaldown).linestyle = xlnone

.SELECTION.BORDERS(xldiagonalup).linestyle = xlnone
WITH .SELECTION.BORDERS(xledgeleft)
.linestyle = xlcontinuous
.weight = xlthin
.colorindex = xlautomatic
ENDWITH
WITH .SELECTION.BORDERS(xledgetop)
.linestyle = xlcontinuous
.weight = xlthin
.colorindex = xlautomatic
ENDWITH
WITH .SELECTION.BORDERS(xledgebottom)
.linestyle = xlcontinuous
.weight = xlthin
.colorindex = xlautomatic
ENDWITH
WITH .SELECTION.BORDERS(xledgeright)

.linestyle = xlcontinuous
.weight = xlthin
.colorindex = xlautomatic
ENDWITH
WITH .SELECTION.BORDERS(xlinsidevertical)
.linestyle = xlcontinuous
.weight = xlthin
.colorindex = xlautomatic
ENDWITH
WITH .SELECTION.BORDERS(xlinsidehorizontal)
.linestyle = xlcontinuous
.weight = xlthin
.colorindex = xlautomatic
ENDWITH
*********************************************
* автоматическое выравнивание
*********************************************

.cells.SELECT
.SELECTION.COLUMNS.autofit

*!* суммирование EXCELом
m_range = [.RANGE("I]+m_d2+[").SELECT]
m_summir = [.activecell.VALUE ="=SUM(I2:I]+m_d1+[)"]
&m_range
&m_summir
*********************************************
* убрать Грид линии
*********************************************
.activewindow.displaygridlines = false

* смена заголоаков
.RANGE("I1").SELECT
.activecell.formular1c1 = "Cумма"
.RANGE("G1").SELECT
.activecell.formular1c1 = "Цена продукции"

.RANGE("F1").SELECT
.activecell.formular1c1 = " Цена склада "
* смена формата данных
.COLUMNS("I:I").SELECT
.SELECTION.numberformat = "0.00"

.RANGE("A1:I1").SELECT
WITH .SELECTION
.horizontalalignment = xlcenter
.verticalalignment = xlcenter
.wraptext = true
.ORIENTATION = 0
.shrinktofit = false
.mergecells = false
ENDWITH
*********************************************
* центровка заголовка документа
*********************************************

.RANGE("A1:I1").SELECT
.SELECTION.INSERT
.SELECTION.merge
WITH .SELECTION
.horizontalalignment = xlcenter
.verticalalignment = xlbottom
.wraptext = false
.ORIENTATION = 0
.shrinktofit = false
.mergecells = true
ENDWITH

*********************************************8
* заголовок всего документа
*********************************************
.RANGE("A1").SELECT
.activecell.VALUE = " Заголовок таблицы "
* смена типа и размера и шрифта

.RANGE("A1").SELECT
WITH .SELECTION
.FONT.NAME = m_fontname
.FONT.SIZE = m_fontsize
ENDWITH


* .sheets(1).SELECT
.sheets.ADD

.sheets(1).SELECT
.sheets(1).NAME = "Тренер"
.sheets("rep_trener").SELECT
.sheets("rep_trener").NAME = "Тренер_222"
.RANGE("I10:I20").SELECT


ENDWITH

o_excel.APPLICATION.VISIBLE = .T.
oexlchart = CREATEOBJECT("EXCEL.CHART")
oexlchart.chartwizard(oexlchart.PARENT.sheets(2).RANGE("I10:I20") ,,,2)


* oexlchart.chartwizard(oexlchart.parent.sheets(2).RANGE("I10:I13") ,,,2)
oexlchart.APPLICATION.VISIBLE = .T.

A.Пинигин, СБОРНИК прибамбасов для VFP по материалам конференций, литературы и собственных разработок. г. Рига E-mail: apinigin@olainfarm.lv
 
Сделайте оценку этого решения Плохо Удовлетворительно Так себе Хорошо Отлично Текущая оценка: (4.847)
Дополнения пользователей
Создание отчета с использованием Excel
[+][?]
[Дополнить]



© 2000-2017 Fox Club 
При размещении любых материалов с сайта на других ресурсах- прямая ссылка на www.foxclub.ru обязательна
Яндекс.Метрика