私のスクリプトでExcelのエクスポートが有効ではありません

Question

あなたのフィードバックをいただきありがとうございます。これらのスクリプトを改善するために私に与えたスクリプトは、ネットワーク上で実行されるため、デスクトップ上でExcelドキュメントを開きます。しかし、私はシートのデザインをセル項目で保持したいと思います。これは私が持っているものです。

$Date = [DateTime]::Now.AddDays(-1) 
$Date.tostring("MM-dd-yyyy"), $env:Computername 
$objExcel.visible = $True 
$objSheet = $objWorkbook.Worksheets.Item(1) 
$objSheet.Cells.Item(1,1) = "Server" 
$objSheet.Cells.Item(1,2) = "LogName" 
$objSheet.Cells.Item(1,3) = "Time" 
$objSheet.Cells.Item(1,4) = "Source" 
$objSheet.Cells.Item(1,5) = "Message" 
$objSheetFormat = $objSheet.UsedRange 
$objSheetFormat.Interior.ColorIndex = 19 
$objSheetFormat.Font.ColorIndex = 11 
$objSheetFormat.Font.Bold = $True 


$row = 1 

$servers = gc c:\Myscripts\servers.txt 

foreach ($server in $servers) 
{ 
$row = $row + 1 
$AppLog = Get-EventLog -LogName Application -EntryType Error -computer $server -Newest 5 

このフォームをExcelで取得するには、次のような方法で指定した場所にファイルを保存するだけでファイルを開きます。

{ | Export-Csv -Path c:\ ('security-log-{0}.csv' -f ([DateTime]::Now).ToString("MM-dd-yyyy") 

} 

Answer 1

あなたはそれを保存するワークブックにSaveAs() methodを呼び出すことができます。

$objWorkbook.SaveAs('C:\security-log-{0:MM-dd-yyyy}.csv' -f [datetime]::Now)