× Linguagem de Programação ADVPL

Perguntas PowerShell

Mais
11 anos 3 meses atrás #16065 por gustavo13
PowerShell foi criado por gustavo13
Olá!

Estava lendo sobre a integração do powershell com o advpl, mas acabei encontrando apenas exemplos mais complexos e pouco conteúdo básico. Gostaria de saber como executar o script abaixo através do advpl.

$xl = New-Object -ComObject "Excel.Application"
$wkbk = $xl.WorkBooks.Add()
$sheet = $wkbk.WorkSheets.Item(1)
$xl.Visible = $true

for($i=1; $i -le 56; $i++) {
switch ($i) {
{$_ -le 14} {$row = $i; $col = 1}
{$_ -ge 15 -and $_ -le 28} {$row = $i-14; $col = 3}
{$_ -ge 29 -and $_ -le 42} {$row = $i-28; $col = 5}
{$_ -ge 43 -and $_ -le 56} {$row = $i-42; $col = 7}
}
$sheet.Cells.Item($row, $col).FormulaLocal = $i
$sheet.Cells.Item($row, $col+1).Interior.ColorIndex = $i

}

$sheet = $wkbk.WorkSheets.Item(2)
$xl.Visible = $true

for($i=1; $i -le 56; $i++) {
switch ($i) {
{$_ -le 14} {$row = $i; $col = 1}
{$_ -ge 15 -and $_ -le 28} {$row = $i-14; $col = 3}
{$_ -ge 29 -and $_ -le 42} {$row = $i-28; $col = 5}
{$_ -ge 43 -and $_ -le 56} {$row = $i-42; $col = 7}
}
$sheet.Cells.Item($row, $col).FormulaLocal = $i
$sheet.Cells.Item($row, $col+1).Interior.ColorIndex = $i

}

$wkbk.SaveAs("c:\test\XLColours.xlsx")
$wkbk.Close()
$xl.Quit()


Obrigado!

Por favor Acessar ou Registrar para participar da conversa.

Tempo para a criação da página:0.103 segundos
Joomla templates by a4joomla