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:

“O céu é o Limite….”

Obtenha a nova versão clicando aqui.

[]s

иαldσ dj