Owc: Formatando A Saída

[Nabvchodhonozohr]

Olá pessoal!

Estou usando uma conexão oledb para me conectar ao excel e trazer os dados de uma planilha populando um datagrid. Depois utilizo o OWC10(office web components v.10) para exportar como um arquivo excel. Para formatar a saída do SpreadSheet eu uso o seguinte após populá-lo:

If (cRows Mod 2 = 0) Then

oExcel.ActiveSheet.Cells.Rows(cRows).Interior.Color = "blue"

Else

oExcel.ActiveSheet.Cells.Rows(cRows).Interior.Color = "red"

End If

Porém se eu utilizo o índice (cRows) ele não muda o fundo aonde tem dados, ele muda após os dados. Se eu uso sem o índice isso não funciona e a tabela fica toda vermelha até onde tem dados.

O q eu faço?

[Graymalkin]

Jeziel? (Graymalkin == Falador). Mas, vamos a sua dúvida. Fiz um teste aqui (e acabei percebendo que esse OWC é uma automação disfarçada... os príncipios e os códigos são os mesmos!) e veja como fiz:

    For i = 1 To 10
        If i Mod 2 Then
            oExcel.ActiveSheet.Cells.Rows(i).Interior.ColorIndex = 3
        Else
            oExcel.ActiveSheet.Cells.Rows(i).Interior.ColorIndex = 5
        End If
    Next i

É claro que ali só percorri 10 linhas, e você terá que ajustar para o seu caso.

Certo?

Graymalkin

[Nabvchodhonozohr]

Fala, FALADOR!

Pô cara, não deu certo não. A gente tá achando q é bug do componente porque ele pinta a partir da coluna q não tem dados. Nas colunas preenchidas ele não muda o fundo. O engraçado é q isso funciona:

oExcel.ActiveSheet.Rows.interior.ColorIndex = 3

Mas pinta tudo de uma só cor. Ele não aceita mais nada além disso.

Mas valeu assim mesmo. Obrigado.

[Nabvchodhonozohr]

Descobrimos!!!

Estávamos usando o OWC10 porém só funciona com o OWC9. Não sei porque.

Valeu!!!