Помогите запихать запрос в excell

[Dimich1978]

был отчет , он выгружался в ворд, теперь надо переписать чтобы открывался в excell . Примерчик можно как вывести отчет в excell.
Просто пробую как в ворд, что-то нифига не получается, выдает ошибку невозможно получить CLSID Active X сервера. выложите пример пож-та.

[Dimich1978]

ну и ненужно ничего выкладывать. подрубился через ADO все вывел, можно и не через него, но это уже вторая серия.

[rebel25]

Если вопрос актуален напишите куда слать программу. Она запускается из произвольных отчетов и выводит селект в эксель без использования шаблона. При желании можно дорисовать шапку и др.

[Vitaly]

[rebel25]

Селект может иметь любое количество полей - ниже ничего править не нужно. В итоге получаем табличку с красивой шапкой и при желании можно вставить чтото еще.
Таблица из которой берем данные должна быть в текущей базе.


Local {_strQry; _Title; _Title1;};


Select short_name
into :Struct_name_
from setup where id_firm = 1;

Let {
_Title = @@firm_name;
};


Let {
_Title1 = Struct_name_[''] + ' Период:' +'_dateask_month[м]' + ' _dateask_year';
};

Alias _strQry := select
"Подразделение" = str1
,"ПФ(страх)" = s1
,"ПФ(накоп)" = s2
,"ПФ(всего)" = s4
,"ФСС" = s5
,"ТФОМС" = s6
,"ФФОМС" = s7
,"Травматизм" = s8
,"НДФЛ" = nd
from user_zrp_rep
;

-- Параметры коннекта
Free _dsn,_db,_uid,_pwd,_is_ntuser,_ConnStr;
Local{_dsn;_db;_uid;_pwd;_is_ntuser;_ConnStr;};

Let _dsn = '@@xUtil{DSN}';
select db_name() into :_db;
select suser_sname() into :_uid;
Let _Pwd = '@@xUtil{pwd}';
select Count(*)
into :_is_ntuser
from master.dbo.syslogins
where loginname = suser_sname()
and (isntname =1 OR isntgroup = 1 OR isntuser = 1);
if _is_ntuser['] > 0 then
{Let _ConnStr := 'ODBC;DSN=' + _dsn[''] + ';UID=' + _uid[''] + ';PWD=;Database=' + _db[''];}
else {Let _ConnStr := 'ODBC;DSN=' + _dsn[''] + ';UID=' + _uid[''] + '; PWD=' + _pwd[''] + ';Database=' + _db['']};
Free _dsn,_db,_uid,_pwd,_is_ntuser;



-- Выгрузка данных
VB.FREE;
VB{
Dim ConnStr
Dim strQry
Dim TitleTxt
Dim TitleTxt1

Dim Flag
};

Let VB.ConnStr := _ConnStr[""];
Let VB.strQry := _strQry[""];
Let VB.TitleTxt := _Title[""];
Let VB.TitleTxt1 := _Title1[""];

Alias VB.Flag == 0;


VB {
Flag = 0

Dim cc
Dim lc
Dim Excel
Dim Sh
Set Excel = CreateObject("Excel.Application")
Excel.Visible = True
Excel.Workbooks.Add
Set Sh = Excel.ActiveSheet
Sh.PageSetup.Orientation = 2
Sh.PageSetup.Zoom = False
Sh.PageSetup.FitToPagesWide = 1
Sh.PageSetup.FitToPagesTall = 1
Sh.PageSetup.CenterHorizontally = True

With Sh.QueryTables.Add(ConnStr, Sh.Range("A3"))
.Name = "ExportData"
.CommandText = strQry
.FieldNames = True
.RowNumbers = false
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.EnableEditing = False
.PreserveColumnInfo = True
.Refresh
End With

cc = Sh.UsedRange.Columns.Count
While cc = 0
cc = Sh.UsedRange.Columns.Count
Wend

if Sh.UsedRange.Rows.Count > 1 then
Sh.UsedRange.Select
Excel.Selection.Borders(5).LineStyle = -4142
Excel.Selection.Borders(6).LineStyle = -4142
With Excel.Selection.Borders(7)
.LineStyle = 1
.Weight = 2
.ColorIndex = -4105
End With
With Excel.Selection.Borders(8)
.LineStyle = 1
.Weight = 2
.ColorIndex = -4105
End With
With Excel.Selection.Borders(9)
.LineStyle = 1
.Weight = 2
.ColorIndex = -4105
End With
With Excel.Selection.Borders(10)
.LineStyle = 1
.Weight = 2
.ColorIndex = -4105
End With
With Excel.Selection.Borders(11)
.LineStyle = 1
.Weight = 2
.ColorIndex = -4105
End With
With Excel.Selection.Borders(12)
.LineStyle = 1
.Weight = 2
.ColorIndex = -4105
End With
End If 'if Sh.UsedRange.Rows.Count
cc = Sh.UsedRange.Columns.Count

Sh.Range(Sh.Cells(3, 1), Sh.Cells(3, cc)).Select
With Excel.Selection.Interior
.ColorIndex = 15
.Pattern = 1
End With
With Excel.Selection
.HorizontalAlignment = -4108
.VerticalAlignment = -4160
.WrapText = True
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.MergeCells = False
End With

Excel.Selection.WrapText = True
Excel.Selection.ColumnWidth = 10
Excel.Columns("A:A").ColumnWidth = 40
Excel.Columns("B:B").ColumnWidth = 14
Excel.Columns("C:C").ColumnWidth = 14
Excel.Columns("D:D").ColumnWidth = 14
Excel.Columns("E:G").ColumnWidth = 14
Excel.Columns("H:H").ColumnWidth = 14
Excel.Columns("I:I").ColumnWidth = 14
Excel.Columns("E:H").WrapText = True
Excel.Columns("A:H").VerticalAlignment = -4160


Sh.Range("A1").Value = TitleTxt
Sh.Range("A1").Select
'Sh.Range(Sh.Cells(1, 1), Sh.Cells(1, cc)).Select

Excel.Selection.Font.Bold = True
Excel.Selection.Font.Size = Excel.Selection.Font.Size

Sh.Range("A2").Value = TitleTxt1
Sh.Range("A2").Select
Excel.Selection.Font.Bold = True
Excel.Selection.Font.Size = Excel.Selection.Font.Size

Sh.Range(Sh.Cells(4, 3), Sh.Cells(99, 9)).Select

Excel.Selection.NumberFormat = "#,##0.00"

Sh.Range("A2").Select


Flag = 1
};--VB

EndFn:
VB.FREE;


free *;

[Dimich1978]

Хороший пример.

[Kauffman]

Мне нравится следующий пример.
Можно использовать готовый шаблон для выгрузки.

[Denis]

Всем добрый день.
Пытаюсь сварганить отчетик в Excel'e

Никак не получается заполнить таблицу инфой из запроса.

Посмотрел на приведенные примеры...мало что понял

Во первых что бросилось в глаза, так это разные способы вызова Excel
Тут возникло пара вопросов:
1. В чем их отличие и преимущества?
2. Есть ли какой-то набор обязательных команд для вызова екселя и его последующего закрытия?
3. Попытался поискать описание команды AutoSet...наверно плохо ищу

Былобы здорово, еслиб в примере №2 были комментарии к каждой строке


Далее попробовал воспользоваться вторым примером (он поменьше и вроде попроще для освоения)

Как я понял итоги запроса записываются в Query_ , далее идет вывод в табличку.
Решил подставить свой подготовленный запрос после Let Query_ ... не получилось

В общем нужна помощь, хочу разобраться как правильно создавать отчеты.


Вот мои наброски
Суть задачи - сформировать отчет о количестве уволенных сотрудников за период по подразделениям.

[Mike]

Определим ВБшные переменные vbppl и vbaa

[Denis]

Я правильно понял?
Так должно выглядеть?

[Mike]

[Николай]

Самая простая выгрузка:

-- перекинем запрос в excel
msg 2201,@$LV0 ;
-- закроем браузер
msg 29,@$LV0 ;

Если нужно что-то добавлять или корректировать, тогда нужно:

--запустим Excel
execute xOCXfree(*);
execute xOCX
{ excel.Application as excel;
excel.Visible=True;
};


---Переименуем первую колонку
excel.Cells(1,1)='№ п/п';

[Denis]

[Mike]

Странно, у меня мое работает:

[Denis]