рекордсет + ехель

[netfrog]

Если не в напряг, подскажите.....
rsObjWorkMap - это то, что вернула ХП на клиента, как бы в зависимости от значения конкретного поля в рекордсете (например если .fields("status").value="лялял") то шрифт там изменить или еще что. И как эти ячейки завершении экспорта в рамку затолкать???

rsObjWorkMap.MoveFirst
Do Until rsObjWorkMap.EOF()
For Cell = 1 To rsObjWorkMap.Fields.Count
With objExcel.ActiveSheet
.Cells(Row, Cell + 2) = rsObjWorkMap.Fields(Cell - 1).Value
End With
Next Cell
Row = Row + 1
rsObjWorkMap.MoveNext
Loop

[Сатрап]

Что-то наподобие того, наверное...

rsObjWorkMap.MoveFirst
Do Until rsObjWorkMap.EOF()
For Cell = 1 To rsObjWorkMap.Fields.Count
With objExcel.ActiveSheet
.Cells(Row, Cell + 2) = rsObjWorkMap.Fields(Cell - 1).Value
if .fields("status").value="лялял" then
.Cells(Row, Cell + 2).Select
.Selection.Font.Name = "Times New Roman CYR"
end if
End With
Next Cell
Row = Row + 1
rsObjWorkMap.MoveNext
Loop

With objExcel.ActiveSheet
.Range(Cells(1, 1), Cells(rsObjWorkMap.RecordCount, rsObjWorkMap.Fields.Count)).Select
.Selection.Borders(xlEdgeLeft).LineStyle = xlContinuous
.Selection.Borders(xlEdgeLeft).Weight = xlThin
.Selection.Borders(xlEdgeLeft).ColorIndex = xlAutomatic
.Selection.Borders(xlEdgeTop).LineStyle = xlContinuous
.Selection.Borders(xlEdgeTop).Weight = xlThin
.Selection.Borders(xlEdgeTop).ColorIndex = xlAutomatic
.Selection.Borders(xlEdgeBottom).LineStyle = xlContinuous
.Selection.Borders(xlEdgeBottom).Weight = xlThin
.Selection.Borders(xlEdgeBottom).ColorIndex = xlAutomatic
.Selection.Borders(xlEdgeRight).LineStyle = xlContinuous
.Selection.Borders(xlEdgeRight).Weight = xlThin
.Selection.Borders(xlEdgeRight).ColorIndex = xlAutomatic
End With

[netfrog]

как то не прокатывает ркгается на отсутствие метода или свойства (в перв. части вопроса)

[netfrog]

да и .Cells(Row, Cell + 2).Select выглядит пугающе для юзверя ))

[netfrog]

sorry, эт я стормозил, след. конструкция работает, но красит всю строку, а мне надо именно определенную ячейку и только. Хелп!

Код: Выделить всё

Do Until rsObjWorkMap.EOF()
  For Cell = 1 To rsObjWorkMap.Fields.Count
  With objExcel.ActiveSheet
   .Cells(Row, Cell + 2) = rsObjWorkMap.Fields(Cell - 1).Value
   If rsObjWorkMap.Fields("fio").Value = "Отсутствует" Then
    '.Cells(Row, Cell + 2).Select
    .Cells(Row, Cell + 2).Font.Name = "Times New Roman CYR"
    .Cells(Row, Cell + 2).Interior.ColorIndex = 6
   Else
   End If
  End With
  Next Cell
Row = Row + 1
rsObjWorkMap.MoveNext
Loop

[Сатрап]

А так? Я не пробовал, но можно... Только ничего не гарантирую

Do Until rsObjWorkMap.EOF()
For Cell = 1 To rsObjWorkMap.Fields.Count
With objExcel.ActiveSheet
.Cells(Row, Cell + 2).Interior.ColorIndex = 1
.Cells(Row, Cell + 2) = rsObjWorkMap.Fields(Cell - 1).Value
If rsObjWorkMap.Fields("fio").Value = "Отсутствует" Then
'.Cells(Row, Cell + 2).Select
.Cells(Row, Cell + 2).Font.Name = "Times New Roman CYR"
.Cells(Row, Cell + 2).Interior.ColorIndex = 6
Else
End If
End With
Next Cell

[netfrog]

неа, все равно строки заливает