Excel総合相談所 130

[0739 名無しさん＠そうだ選挙にいこう 2018/04/01(日) 02:10:51.95]

シート50枚作って、プリントは手作業で一括というのを
批判覚悟でPowerShellで書いてみたVBAよく知らないもので。

$excel=new-object -ComObject Excel.Application
$excel.Visible=$true
$wb=$excel.workbooks.add()
$ws=$wb.ActiveSheet();

for($i=0;$i -lt 50;$i++){
$n=$i*2+1
$left=$ws.Cells.Item(1,1)="$n"
$right=$ws.Cells.Item(1,2)="$($n+1)"
$ws=$wb.Sheets.Add()
}
$ws.Delete()