BlackTDN Search

quarta-feira, 21 de setembro de 2011

Protheus :: Advpl :: Utilizando scripts em PowerShell para manipular objetos COM :: Combo II : Excel

Em Protheus :: Advpl :: Utilizando scripts em PowerShell para manipular objetos COM :: Combo I : Excel vimos como criar, popular e exibir dados no Excel usando ADVPL e, através da WaitRun, Script em PowerShell.

Agora vamos bincar um pouco com a Paleta de Cores, aplicar auto-filtro e borda.

O código é praticamente o mesmo, sendo que:

Para aplicar o Filtro usei:

$objRange.EntireColumn.AutoFilter();

Para a Paleta de Cores: (Color Palette and the 56 Excel ColorIndex Colors)

$objWorksheet.Cells.Item('+cStrLine+',$nColNum).Font.ColorIndex = 11;
if ( -not( $objWorksheet.Cells.Item('+cStrLine+',$nColNum).row % 2 ) ){
    $objWorksheet.Cells.Item('+cStrLine+',$nColNum).Interior.ColorIndex    = 16;
}
else {
    $objWorksheet.Cells.Item('+cStrLine+',$nColNum).Interior.ColorIndex    = 15;
}

Para as Bordas:

$objRange.Borders.Color        = 0;
$objRange.Borders.Weight    = 2;

e, para “Negrito”:

$objWorksheet.Cells.Item('+cStrLine+',$nColNum).Font.Bold     = $True;

Obtendo o seguinte efeito:

image

“O céu é o Limite….”

Obtenha a nova versão clicando aqui.

[]s

иαldσ dj

Nenhum comentário:

Postar um comentário