×
Linguagem de Programação ADVPL
Perguntas PowerShell
- gustavo13
- Autor do Tópico
- Desconectado
- Membro Especialista
Menos
Mais
- Postagens: 119
- Obrigados Recebidos: 0
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!
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