Update and rename ConvertTo-ExcelXlsx.ps1 to ConvertToExcelXlsx.ps1

This commit is contained in:
Mikkel Nordberg
2017-06-29 16:19:07 +02:00
committed by GitHub
parent 097f11a661
commit 675ba9d664
2 changed files with 53 additions and 50 deletions

View File

@@ -1,50 +0,0 @@
Function ConvertTo-ExcelXlsx {
[CmdletBinding()]
PARAM
(
[parameter(Mandatory=$true, ValueFromPipeline)]
[string]$Path,
[parameter(Mandatory=$false)]
[switch]$Force
)
if(-Not ($Path | Test-Path) ){
throw "File not found"
}
if(-Not ($Path | Test-Path -PathType Leaf) ){
throw "Folder paths are not allowed"
}
$xlFixedFormat = 51 #Constant for XLSX Workbook
$xlsFile = Get-Item -Path $Path
$xlsxPath = "{0}x" -f $xlsFile.FullName
if($xlsFile.Extension -ne ".xls"){
throw "Expected .xls extension"
}
if(Test-Path -Path $xlsxPath){
if($Force){
try {
Remove-Item $xlsxPath -Force
} catch {
throw "{0} already exists and cannot be removed. The file may be locked by another application." -f $xlsxPath
}
Write-Verbose $("Removed {0}" -f $xlsxPath)
} else {
throw "{0} already exists!" -f $xlsxPath
}
}
try{
$Excel = New-Object -ComObject "Excel.Application"
} catch {
throw "Could not create Excel.Application ComObject. Please verify that Excel is installed."
}
$Excel.Visible = $false
$Excel.Workbooks.Open($xlsFile.FullName) | Out-Null
$Excel.ActiveWorkbook.SaveAs($xlsxPath, $xlFixedFormat)
$Excel.ActiveWorkbook.Close()
$Excel.Quit()
}

53
ConvertToExcelXlsx.ps1 Normal file
View File

@@ -0,0 +1,53 @@
Function ConvertTo-ExcelXlsx {
[CmdletBinding()]
Param
(
[parameter(Mandatory=$true, ValueFromPipeline)]
[string]$Path,
[parameter(Mandatory=$false)]
[switch]$Force
)
Process
{
if(-Not ($Path | Test-Path) ){
throw "File not found"
}
if(-Not ($Path | Test-Path -PathType Leaf) ){
throw "Folder paths are not allowed"
}
$xlFixedFormat = 51 #Constant for XLSX Workbook
$xlsFile = Get-Item -Path $Path
$xlsxPath = "{0}x" -f $xlsFile.FullName
if($xlsFile.Extension -ne ".xls"){
throw "Expected .xls extension"
}
if(Test-Path -Path $xlsxPath){
if($Force){
try {
Remove-Item $xlsxPath -Force
} catch {
throw "{0} already exists and cannot be removed. The file may be locked by another application." -f $xlsxPath
}
Write-Verbose $("Removed {0}" -f $xlsxPath)
} else {
throw "{0} already exists!" -f $xlsxPath
}
}
try{
$Excel = New-Object -ComObject "Excel.Application"
} catch {
throw "Could not create Excel.Application ComObject. Please verify that Excel is installed."
}
$Excel.Visible = $false
$Excel.Workbooks.Open($xlsFile.FullName) | Out-Null
$Excel.ActiveWorkbook.SaveAs($xlsxPath, $xlFixedFormat)
$Excel.ActiveWorkbook.Close()
$Excel.Quit()
}
}