|
|
Postada em 06/06/2005 14:36 hs
Olá. Estou montando um script que exporta informações para um arquivo de excel mas estou com um pequeno problema. Eu não conheço (também não sei se dá) uma maneira de inserir as bordas na célula via SCRIPT. EU acredito que dê, pois eu consigo manipular a célula de várias maneiras, menos colocar a borda. Gostaria que alguém me passasse o nome correto da propriedade. O Script que estou usando é mais ou menos assim: ExcelSheet.ActiveSheet.Cells(2,2).???.??? = ??? Os pontos de interrogação são as propriedades da célula... A única que desconheço é a de colocar a borda. Sem mais Agradeço, sds, Ádamo Morone |
|
|
|
|
|
|
|
Postada em 06/06/2005 15:40 hs
Worksheets("Plan1").Cells(10, 10).Borders(xlEdgeLeft).LineStyle = xlContinuous
Worksheets("Plan1").Cells(10, 10).Borders(xlEdgeLeft).Weight = xlThin
Worksheets("Plan1").Cells(10, 10).Borders(xlEdgeLeft).ColorIndex = xlAutomatic Worksheets("Plan1").Cells(10, 10).Borders(xlEdgeTop).LineStyle = xlContinuous
Worksheets("Plan1").Cells(10, 10).Borders(xlEdgeTop).Weight = xlThin
Worksheets("Plan1").Cells(10, 10).Borders(xlEdgeTop).ColorIndex = xlAutomatic Worksheets("Plan1").Cells(10, 10).Borders(xlEdgeRight).LineStyle = xlContinuous
Worksheets("Plan1").Cells(10, 10).Borders(xlEdgeRight).Weight = xlThin
Worksheets("Plan1").Cells(10, 10).Borders(xlEdgeRight).ColorIndex = xlAutomatic
Worksheets("Plan1").Cells(10, 10).Borders(xlEdgeBottom).LineStyle = xlContinuous
Worksheets("Plan1").Cells(10, 10).Borders(xlEdgeBottom).Weight = xlThin
Worksheets("Plan1").Cells(10, 10).Borders(xlEdgeBottom).ColorIndex = xlAutomatic
|
|
|
|
|
|
Postada em 06/06/2005 18:01 hs
Muito obrigado, mas só este código não funcionou. Será que você poderia me passar o código inteiro, tipo, declaração de variáveis, etc? Obrigado Adamo adamo.sistemas@genpro.com.br |
|
|
|
|
