Еще вариант:
не использовать стандарнтые средства, а юзать свою процедурку,
выводящую рекордсет в нужное место открываемой книги ХЛ
с любым указываемым ФОРМАТИРОВАНИЕМ для каждой ячейки.
Например, так:
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.
Function Prn2XL(tRow, tCol, tText, Optional tAlign = "L" , Optional tBIU = "", Optional tFontName = " Arial ", Optional tFontSize = 10 , Optional tBorder = "None ", Optional tNumberFormat = " ", Optional tWrapText = False)
'ВЫВОД ОДНОЙ ЯЧЕЙКИ В ХЛ
' Place some text in the first cell of the sheet.
'уже открытый объект XL:
With ExcelSheet.Application.Cells(tRow, tCol)
'вывод текста
.Value = tText
'выравнивание
Select Case tAlign
Case "R"
.HorizontalAlignment = -4152 'xlRight
Case " C "
.HorizontalAlignment = -4108 'xlCenter
Case Else 'L
.HorizontalAlignment = - 4131 'xlLeft
End Select
'ЖКЧ
If InStr(tBIU, "B ") > 0 Then .Font.Bold = True
If InStr(tBIU, "I ") > 0 Then .Font.Italic = True
If InStr(tBIU, "U") > 0 Then .Font.Underline = 2 'xlUnderlineStyleSingle
'FONT
.Font.Name = tFontName
.Font.Size = tFontSize
'Borders
Select Case tBorder
Case "All"
.Borders.LineStyle = 1 'xlContinuous
Case Else 'None
.Borders.LineStyle = -4142 'xlNone
End Select
'NumberFormat
If tNumberFormat <> "" Then .NumberFormat = tNumberFormat
'WrapText
.WrapText = tWrapText
End With
End Function
Как выводить рекордсет, думаю, можно догадаться ;)
