Revert "Suggesting modifications"

This reverts commit f21fe248fe.
This commit is contained in:
Doug Finke
2015-04-18 17:11:20 -04:00
parent f21fe248fe
commit 315ba5089a
4 changed files with 29 additions and 76 deletions

View File

@@ -43,77 +43,36 @@ function Import-Excel {
} }
} }
function Export-ExcelSheet {
[CmdletBinding()]
param
(
[Parameter(Mandatory = $true)]
[String]
$Path,
[String]
$OutputPath = '.\',
[String]
$SheetName,
[string]
$Encoding = 'UTF8',
[string]
$Extension = '.txt',
[string]
$Delimiter = ';'
)
$Path = (Resolve-Path $Path).Path
$xl = New-Object -TypeName OfficeOpenXml.ExcelPackage -ArgumentList $Path
$workbook = $xl.Workbook
$targetSheets = $workbook.Worksheets | Where {$_.Name -Match $SheetName}
$params = @{} + $PSBoundParameters
$params.Remove("OutputPath")
$params.Remove("SheetName")
$params.NoTypeInformation = $true
Foreach ($sheet in $targetSheets)
{
Write-Verbose "Exporting sheet: $($sheet.Name)"
$params.Path = "$($OutputPath)\$($Sheet.Name)$($Extension)"
Import-Excel $Path -Sheet $($sheet.Name) | Export-Csv @params
}
}
function Import-ExcelAllSheet function Import-ExcelAllSheet
{ {
[CmdletBinding()] [CmdletBinding()]
param param
( (
[Parameter(Mandatory = $true)] [Parameter(Mandatory = $true)]
[String] [String]
$Path, $Path,
[String] [String]
$OutputPath = '.\', $OutputPath = '.\',
[string] [string]
$Encoding = 'UTF8', $Encoding = 'UTF8',
[string] [string]
$Extension = '.txt', $Extension = '.txt',
[string] [string]
$Delimiter = ';' $Delimiter = ';'
) )
$FullName = (Resolve-Path $Path).Path $FullName = (Resolve-Path $Path).Path
$xl = New-Object -TypeName OfficeOpenXml.ExcelPackage -ArgumentList $FullName $xl = New-Object -TypeName OfficeOpenXml.ExcelPackage -ArgumentList $FullName
$workbook = $xl.Workbook $workbook = $xl.Workbook
Foreach ($sheet in $workbook.Worksheets) Foreach ($sheet in $workbook.Worksheets)
{ {
Write-Verbose "Exporting sheet: $($sheet.name)" Write-Verbose "Exporting sheet: $($sheet.name)"
Import-Excel -FullName $FullName -Sheet $($sheet.Name) | Export-Csv -Path "$($OutputPath)\$($Sheet.Name)$($Extension)" -Delimiter $Delimiter -NoTypeInformation -Encoding $Encoding Import-Excel -FullName $FullName -Sheet $($sheet.Name) | Export-Csv -Path "$($OutputPath)\$($Sheet.Name)$($Extension)" -Delimiter $Delimiter -NoTypeInformation -Encoding $Encoding
} }
} }

Binary file not shown.

View File

@@ -1,3 +0,0 @@
"sheet10"
""
"sheet10"

View File

@@ -1,3 +0,0 @@
"sheet20"
""
"sheet20"