Всем доброго времени суток!
Нужна Ваша помощь, коллеги.
Работаю в БК (БОСС-кадровик), работа над формированием отчета, как я понял - на vbs. Сильно не пинайте, раньше никогда с БК не работал.
На текущий момент имеется следующий код:
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.
local Query_ as string;
ADODB.Connection as AutoCon;
ADODB.Recordset as AutoSet;
AutoCon.Open('@@xUtil{dsq}');
AutoSet.CursorLocation = 2;
CON Формирование справочника причин к видам оплат...;
let Query_='текст_примитивного_запроса_select';
AutoSet.Open(:Query_, :AutoCon, 3, 1, 1);
execute xOCX {Excel.Application as Excel};
local vb.Record=&AutoSet;
local vb.Excel=&Excel;
vb
{
Excel.ScreenUpdating = 0
Excel.EnableEvents = 0
Dim WorkBook
Set WorkBook=Excel.Workbooks.Add()
WorkBook.Worksheets(1).Cells.WrapText = True
WorkBook.Worksheets(1).Cells.Font.Name = "Times New Roman"
WorkBook.Worksheets(1).Cells.Font.Size = 10
WorkBook.Worksheets(1).Rows(1).Font.Bold = 1
WorkBook.Worksheets(1).Range("A1:E1").Interior.ColorIndex = 6
WorkBook.Worksheets(1).Range("A1:E1").Borders.LineStyle = -4118
WorkBook.Worksheets(1).Columns(1).ColumnWidth = 8.43
WorkBook.Worksheets(1).Columns(2).ColumnWidth = 10.14
WorkBook.Worksheets(1).Columns(3).ColumnWidth = 29.14
WorkBook.Worksheets(1).Columns(4).ColumnWidth = 10.29
WorkBook.Worksheets(1).Columns(5).ColumnWidth = 58.86
WorkBook.Worksheets(1).Cells(1,1) = "название_столбца_1"
WorkBook.Worksheets(1).Cells(1,2) = "название_столбца_2"
WorkBook.Worksheets(1).Cells(1,3) = "название_столбца_3"
WorkBook.Worksheets(1).Cells(1,4) = "название_столбца_4"
WorkBook.Worksheets(1).Cells(1,5) = "название_столбца_5"
WorkBook.Worksheets(1).Cells(2,1).CopyFromRecordset Record
WorkBook.Worksheets(1).Rows.AutoFit
WorkBook.Worksheets(1).Columns.VerticalAlignment = -4108
WorkBook.Worksheets(1).Columns(1).HorizontalAlignment = -4108
WorkBook.Worksheets(1).Columns(2).HorizontalAlignment = -4131
WorkBook.Worksheets(1).Columns(3).HorizontalAlignment = -4131
WorkBook.Worksheets(1).Columns(4).HorizontalAlignment = -4108
WorkBook.Worksheets(1).Columns(5).HorizontalAlignment = -4131
WorkBook.Worksheets(1).Rows(1).VerticalAlignment = -4108
WorkBook.Worksheets(1).Rows(1).HorizontalAlignment = -4108
Excel.ScreenUpdating = 1
Excel.EnableEvents = 1
};
AutoSet.Close;
CON;
execute xOCX{
Excel.Visible=True;
};
execute xOcxFree(AutoSet);
execute xOcxFree(Excel);
execute xOcxFree(AutoCon);
В итоге я получаю excel-файл, который сразу открывается и заполнен данными, которые получает запрос. Заполняю начиная со второй строки (первая строка нечто вроде шапки).
Получаю в итоге что-то вроде такой таблицы в excel:
шапка шапка шапка шапка шапка
11111 11111 11111 ааааа ааааа
11111 11111 11111 ааааа ааааа
22222 22222 22222 ааааа ааааа
22222 22222 22222 ааааа ааааа
22222 22222 22222 ааааа ааааа
33333 33333 33333 ааааа ааааа
33333 33333 33333 ааааа ааааа
Нужно ее переформатировать вот в такой вид:
шапка шапка шапка шапка шапка
11111 11111 11111 ааааа ааааа
ааааа ааааа
22222 22222 22222 ааааа ааааа
ааааа ааааа
ааааа ааааа
33333 33333 33333 ааааа ааааа
ааааа ааааа
Т.е. если в первом, втором и третьем столбце значение совпадает с предыдущим - то ячейки 1го, 2го и 3го столбце в этой строке очистить. И так до конца документа.
Каким образом можно подобное реализовать?
Заранее благодарю за ответ.
