|
Можно открывать .xls файлы с фокса?
#37808110
Ссылка:
Ссылка на сообщение:
Ссылка с названием темы:
|
|
|
|
ShaliniaJonny540,
давайте попробуем оба варианта, а потом выберу, который лучше...
Вариант номер раз:
Берете свою любую сводную таблицу и экспортируете в ексель
Вот вам подробнейший код, а график сами "допилите" почитав про " ChartObjects "
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
92.
93.
94.
95.
96.
97.
98.
99.
100.
101.
102.
103.
104.
105.
106.
107.
108.
109.
110.
111.
112.
113.
114.
#DEFINE xlCenter -4108 && описание констант EXCEL
#DEFINE xlSolid 1
#DEFINE xlEdgeLeft 7
#DEFINE xlEdgeTop 8
#DEFINE xlEdgeBottom 9
#DEFINE xlEdgeRight 10
#DEFINE xlInsideVertical 11
#DEFINE xlInsideHorizontal 12
#DEFINE xlThin 2
#DEFINE xlThick 4
#DEFINE xlMedium -4138
#DEFINE xlDouble -4119
LOCAL lcPath, loExcel, lnRow
loExcel = CREATEOBJECT("Excel.Application") &&Создаем файл ексель
loExcel.workBooks.add
SELECT post
GO top
i=1
DO WHILE NOT EOF()
WITH loExcel
.sheets.add
.ActiveSheet.name = ALLTRIM(post.naim)
.visible = .f.
*.WorkBooks.Add
*.Sheets.Add
*.Sheets.Name = post.naim
.ActiveWindow.DisplayZeros = .F.
* задаем ширину колонок
.Columns[1].ColumnWidth = 10
.Columns[2].ColumnWidth = 40
.Columns[3].ColumnWidth = 20
.Columns[4].ColumnWidth = 20
.Columns[5].ColumnWidth = 20
.Columns[6].ColumnWidth = 40
.Columns[7].ColumnWidth = 7
.Columns[8].ColumnWidth = 7
.Columns[9].ColumnWidth = 8
* задаем параметры шрифта
.cells(1,1).font.size = 10
.cells(1,1).font.Bold = .t.
.cells(1,1).value = 'Организация'
.Cells(2,2).Font.Size = 14
.Cells(2,2).Font.Bold = .T.
.Cells(2,2).Value = 'Отчет' && название отчета
.Cells(3,2).Font.Size = 14
.Cells(3,2).Font.Bold = .T.
.Cells(3,2).Value = post.naim
* замораживаем строки
.Range("A6:D6").Select
.ActiveWindow.FreezePanes = .T.
WITH .Selection
.RowHeight = 18
.Font.Size = 10
.Font.Bold = .t.
ENDWITH
*MESSAGEBOX('create columns name',0,'Message')
.Cells(5,1).Value = '1 колонка наименование'
.Cells(5,2).Value = '2'
.Cells(5,3).Value = '3'
.Cells(5,4).Value = '4'
.Cells(5,5).Value = '5'
.Cells(5,6).Value = '6'
.Cells(5,7).Value = '7'
.Cells(5,8).Value = '8'
.Cells(5,9).Value = '9'
* теперь берем данные из таблицы
lnRow = 5
SELECT inF
SET FILTER TO ALLTRIM(post)=ALLTRIM(post.naim)
GO TOP
m=RECCOUNT()
for n=1 to m
wait "Выполнено: "+ALLTRIM(post.naim)+" "+alltrim(str(100/m*n))+" %"+replicate(" ",65)+;
chr(13)+replicate("|",100/m*n)+;
chr(13)+"Осталось": "+alltrim(str(100-100/m*n))+" %" nowait wind
lnRow = lnRow + 1
*присваиваем каждой колонке свои переменные
.Cells(lnRow,1).NumberFormat = "@"
.Cells(lnRow,1).Value = Se_k
.Cells(lnRow,2).NumberFormat = "@"
.Cells(lnRow,2).Value = se_n
.Cells(lnRow,3).NumberFormat = "@"
.Cells(lnRow,3).Value = by
.Cells(lnRow,4).NumberFormat = "@"
.Cells(lnRow,4).Value = cv
.Cells(lnRow,5).NumberFormat = "@"
.Cells(lnRow,5).Value = pe
.Cells(lnRow,6).NumberFormat = "@"
.Cells(lnRow,6).Value = post
.Cells(lnRow,7).NumberFormat = "@"
.Cells(lnRow,7).Value = kol1
.Cells(lnRow,8).NumberFormat = "@"
.Cells(lnRow,8).Value = kol2
.Cells(lnRow,9).NumberFormat = "@"
.Cells(lnRow,9).Value = itog
IF NOT EOF()
SELECT inF
skip
ENDIF
ENDFOR
ENDWITH
SELECT post
SKIP
i=i+1
ENDDO
WAIT CLEAR
loExcel.Visible = .T.
MESSAGEBOX ('данные выгружены в Excel',0+64,;
'Сообщение программы')
Зы: Если имеется хоть малейшее представление о том что делаете, то у Вас все получиться :) удачи |
|
|
