VB + Excel

[Lilian B 0]

Boa tarde!

O que eu preciso é o seguinte:

 

A parte de trazer o dados e exportar para o excel é tranquilo, o que tá pegando é a formatação.

Preciso colocar umas bordas mas do jeito que estou tentando nao consigo.

 

Faço da seguinte forma:

 

EwCS.Range("A8:A15").Borders.LineStyle = 7

 

Mas deste jeito ele deixa as celulas "quadriculadas" quando na verdade o que eu preciso é que fique em linha assim:

_______________________________________

_______________________________________

_______________________________________

 

Agradeço pela atenção galera!

http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[cassitos 2]

Tenta:

  Citar

EwCS.Range("A8:A15").Borders(xlEdgeBottom).LineStyle = 7 'parte inferior (no caso p/ ultima célula, já que várias estão selecionadas)

EwCS.Range("A8:A15").Borders(xlInsideHorizontal).LineStyle = 7 'parte inferior das células selecionadas

[Lilian B 0]

Valeu!!!