2017年5月23日火曜日

memo PowerShell Excel

memo
PowerShell
Excel

$excel = New-Object -ComObject Excel.Application;
$excel.Visible = 1;

$file='%FILEPATH%';
$exi=0;
foreach($obj in $excel.Workbooks){
    if($file -eq $obj.FullName){
        $book=$obj;
        $exi=1;
        break;
    }
}

if($exi-eq0){
$book = $excel.Workbooks.Open($file)
}
$sheet = $book.ActiveSheet;

$sheet.Cells( 1, 1 ).PasteSpecial()
$sheet.Rows("1").RowHeight = 40.5
$sheet.Rows("1").WrapText = $True
$sheet.Rows("1").Font.Size = 10
$sheet.Columns("A").ColumnWidth = 11
$sheet.Columns("B").ColumnWidth = 8
$sheet.Columns("C:D").ColumnWidth = 12



$sheet.Cells( 1, 1 ).Select
$book.Save();

try{
$excel.Quit();
} finally {
[System.Runtime.Interopservices.Marshal]::ReleaseComObject($excel) ;
[System.Runtime.Interopservices.Marshal]::ReleaseComObject($book) ;
[System.Runtime.Interopservices.Marshal]::ReleaseComObject($sheet) ;
}

0 件のコメント:

コメントを投稿