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 件のコメント:
コメントを投稿