BoaterDave
May 21st, 2011, 04:43 PM
#Requires -Version 2.0
[CmdletBinding()]
Param
([Parameter(Mandatory=$true,
Position=1,
ValueFromPipeline=$true,
ValueFromPipelineByPropertyName=$false)]
[String]$CSVname,
[Parameter(Mandatory=$false,
Position=2,
ValueFromPipeline=$false,
ValueFromPipelineByPropertyName=$false)]
[String]$XLSname,
[Int]$xlExcel8 = 56,
[Switch]$Open
)#End Param
Begin
{
Write-Host "`nConverting from CSV to XLS . . .`n"
$path = gci $CSVName -EA 0
if ($XLSname -eq "")
{
$path.fullname
[String]$XLSname = (($path.fullname -split "\.")[0] + ".xls").tostring()
#[String]$XLSname
}
}#Begin
Process
{
if (Test-path -Path $path -EA 0)
{
write-host "Creating Excel Report . . .`n"
$Excel = New-Object -ComObject excel.application
$Excel.visible = $False
$Excel.displayalerts=$False
$WorkBook = $Excel.Workbooks.Open($path)
$WorkSheet = $Workbook.worksheets.Item(1)
$Resize = $WorkSheet.UsedRange
$Resize.EntireColumn.AutoFit() | Out-Null
$WorkBook.SaveAs($XLSname, $xlExcel8)
$Excel.quit()
write-host "File saved to Output to:" $XLSname
}
else
{
"No input file specified, please provide correct path to CSV."
}
}#Process
End
{
if ($open)
{
ii $XLSname -EA 0
}
$XLSname = $Null
}#End
[CmdletBinding()]
Param
([Parameter(Mandatory=$true,
Position=1,
ValueFromPipeline=$true,
ValueFromPipelineByPropertyName=$false)]
[String]$CSVname,
[Parameter(Mandatory=$false,
Position=2,
ValueFromPipeline=$false,
ValueFromPipelineByPropertyName=$false)]
[String]$XLSname,
[Int]$xlExcel8 = 56,
[Switch]$Open
)#End Param
Begin
{
Write-Host "`nConverting from CSV to XLS . . .`n"
$path = gci $CSVName -EA 0
if ($XLSname -eq "")
{
$path.fullname
[String]$XLSname = (($path.fullname -split "\.")[0] + ".xls").tostring()
#[String]$XLSname
}
}#Begin
Process
{
if (Test-path -Path $path -EA 0)
{
write-host "Creating Excel Report . . .`n"
$Excel = New-Object -ComObject excel.application
$Excel.visible = $False
$Excel.displayalerts=$False
$WorkBook = $Excel.Workbooks.Open($path)
$WorkSheet = $Workbook.worksheets.Item(1)
$Resize = $WorkSheet.UsedRange
$Resize.EntireColumn.AutoFit() | Out-Null
$WorkBook.SaveAs($XLSname, $xlExcel8)
$Excel.quit()
write-host "File saved to Output to:" $XLSname
}
else
{
"No input file specified, please provide correct path to CSV."
}
}#Process
End
{
if ($open)
{
ii $XLSname -EA 0
}
$XLSname = $Null
}#End