updated readme

Replace empty string with NULL when generating SQL inserts. Fixes #288

AddConditionalFormatting.ps1

@@ -0,0 +1,117 @@
+Function Add-ConditionalFormatting {
+<#
+.Synopsis
+    Adds contitional formatting to worksheet
+.Example
+    $excel = $avdata | Export-Excel -Path (Join-path $FilePath "\Machines.XLSX" ) -WorksheetName "Server Anti-Virus" -AutoSize -FreezeTopRow -AutoFilter -PassThru
+
+    Add-ConditionalFormatting -WorkSheet $excel.Workbook.Worksheets[1] -Address "b":b1048576" -ForeGroundColor "RED"     -RuleType ContainsText -ConditionValue "2003"
+    Add-ConditionalFormatting -WorkSheet $excel.Workbook.Worksheets[1] -Address "i2:i1048576" -ForeGroundColor "RED"     -RuleType ContainsText -ConditionValue "Disabled"
+    $excel.Workbook.Worksheets[1].Cells["D1:G1048576"].Style.Numberformat.Format = [cultureinfo]::CurrentCulture.DateTimeFormat.ShortDatePattern
+    $excel.Workbook.Worksheets[1].Row(1).style.font.bold = $true
+    $excel.Save() ; $excel.Dispose()
+
+    Here Export-Excel is called with the -passThru parameter so the Excel Package object is stored in $Excel
+    The desired worksheet is selected and the then columns B and i are conditially formatted (excluding the top row) to show
+    Fixed formats are then applied to dates in columns D..G and the top row is formatted
+    Finally the workbook is saved and the Excel closed.
+
+#>
+    Param (
+        #The worksheet where the format is to be applied
+        [Parameter(Mandatory = $true, ParameterSetName = "NamedRule")]
+        [Parameter(Mandatory = $true, ParameterSetName = "DataBar")]
+        [Parameter(Mandatory = $true, ParameterSetName = "ThreeIconSet")]
+        [Parameter(Mandatory = $true, ParameterSetName = "FourIconSet")]
+        [Parameter(Mandatory = $true, ParameterSetName = "FiveIconSet")]
+        [OfficeOpenXml.ExcelWorksheet]$WorkSheet ,
+        #The area of the worksheet where the format is to be applied
+        [Parameter(Mandatory = $true, ParameterSetName = "NamedRule")]
+        [Parameter(Mandatory = $true, ParameterSetName = "DataBar")]
+        [Parameter(Mandatory = $true, ParameterSetName = "ThreeIconSet")]
+        [Parameter(Mandatory = $true, ParameterSetName = "FourIconSet")]
+        [Parameter(Mandatory = $true, ParameterSetName = "FiveIconSet")]
+        [OfficeOpenXml.ExcelAddress]$Range ,
+        #One or more row(s), Column(s) and/or block(s) of cells to format
+        [Parameter(Mandatory = $true, ParameterSetName = "NamedRuleAddress")]
+        [Parameter(Mandatory = $true, ParameterSetName = "DataBarAddress")]
+        [Parameter(Mandatory = $true, ParameterSetName = "ThreeIconSetAddress")]
+        [Parameter(Mandatory = $true, ParameterSetName = "FourIconSetAddress")]
+        [Parameter(Mandatory = $true, ParameterSetName = "FiveIconSetAddress")]
+        $Address ,
+        #One of the standard named rules - Top / Bottom / Less than / Greater than / Contains etc
+        [Parameter(Mandatory = $true, ParameterSetName = "NamedRule", Position = 3)]
+        [Parameter(Mandatory = $true, ParameterSetName = "NamedRuleAddress", Position = 3)]
+        [OfficeOpenXml.ConditionalFormatting.eExcelConditionalFormattingRuleType]$RuleType ,
+        #Text colour for matching objects
+        [Alias("ForeGroundColour")]
+        [System.Drawing.Color]$ForeGroundColor,
+        #colour for databar type charts
+        [Parameter(Mandatory = $true, ParameterSetName = "DataBar")]
+        [Parameter(Mandatory = $true, ParameterSetName = "DataBarAddress")]
+        [Alias("DataBarColour")]
+        [System.Drawing.Color]$DataBarColor,
+        #One of the three-icon set types (e.g. Traffic Lights)
+        [Parameter(Mandatory = $true, ParameterSetName = "ThreeIconSet")]
+        [Parameter(Mandatory = $true, ParameterSetName = "ThreeIconSetAddress")]
+        [OfficeOpenXml.ConditionalFormatting.eExcelconditionalFormatting3IconsSetType]$ThreeIconsSet,
+        #A four-icon set name
+        [Parameter(Mandatory = $true, ParameterSetName = "FourIconSet")]
+        [Parameter(Mandatory = $true, ParameterSetName = "FourIconSetAddress")]
+        [OfficeOpenXml.ConditionalFormatting.eExcelconditionalFormatting4IconsSetType]$FourIconsSet,
+        #A five-icon set name
+        [Parameter(Mandatory = $true, ParameterSetName = "FiveIconSet")]
+        [Parameter(Mandatory = $true, ParameterSetName = "FiveIconSetAddress")]
+        [OfficeOpenXml.ConditionalFormatting.eExcelconditionalFormatting5IconsSetType]$FiveIconsSet,
+        #A value for the condition (e.g. "2000" if the test is 'lessthan 2000')
+        [string]$ConditionValue,
+        #A second value for the conditions like between x and Y
+        [string]$ConditionValue2,
+        #Background colour for matching items
+        [System.Drawing.Color]$BackgroundColor,
+        #Background pattern for matching items
+        [OfficeOpenXml.Style.ExcelFillStyle]$BackgroundPattern = [OfficeOpenXml.Style.ExcelFillStyle]::Solid,
+        #Secondary colour when a background pattern requires it
+        [System.Drawing.Color]$PatternColor,
+        #Sets the numeric format for matching items
+        $NumberFormat,
+        #Put matching items in bold face
+        [switch]$Bold,
+        #Put matching items in italic
+        [switch]$Italic,
+        #Underline matching items
+        [switch]$Underline,
+        #Strikethrough text of matching items
+        [switch]$StrikeThru
+    )
+    #Allow add conditional formatting to work like Set-Format (with single ADDRESS parameter) split it to get worksheet and Range of cells.  
+    If ($Address -and -not $WorkSheet -and -not $Range) {
+        $WorkSheet = $Address.Worksheet[0]
+        $Range     = $Address.Address 
+    }    
+    If ($ThreeIconsSet) {$rule = $WorkSheet.ConditionalFormatting.AddThreeIconSet($Range , $ThreeIconsSet)}
+    elseif ($FourIconsSet) {$rule = $WorkSheet.ConditionalFormatting.AddFourIconSet( $Range , $FourIconsSet) }
+    elseif ($FiveIconsSet) {$rule = $WorkSheet.ConditionalFormatting.AddFiveIconSet( $Range , $IconType)     }
+    elseif ($DataBarColor) {$rule = $WorkSheet.ConditionalFormatting.AddDatabar(     $Range , $DataBarColor) }
+    else {                  $rule = ($WorkSheet.ConditionalFormatting)."Add$RuleType"($Range)}
+
+    if ($ConditionValue -and $RuleType -match "Top|Botom") {$rule.Rank = $ConditionValue }
+    if ($ConditionValue -and $RuleType -match "StdDev") {$rule.StdDev = $ConditionValue }
+    if ($ConditionValue -and $RuleType -match "Than|Equal|Expression") {$rule.Formula = $ConditionValue }
+    if ($ConditionValue -and $RuleType -match "Text|With") {$rule.Text = $ConditionValue }
+    if ($ConditionValue -and
+        $ConditionValue2 -and $RuleType -match "Between") {
+        $rule.Formula = $ConditionValue
+        $rule.Formula2 = $ConditionValue2
+    }
+
+    if ($NumberFormat) {$rule.Style.NumberFormat.Format = $NumberFormat }
+    if ($Underline) {$rule.Style.Font.Underline = [OfficeOpenXml.Style.ExcelUnderLineType]::Single }
+    if ($Bold) {$rule.Style.Font.Bold = $true}
+    if ($Italic) {$rule.Style.Font.Italic = $true}
+    if ($StrikeThru) {$rule.Style.Font.Strike = $true}
+    if ($ForeGroundColor) {$rule.Style.Font.Color.color = $ForeGroundColor   }
+    if ($BackgroundColor) {$rule.Style.Fill.BackgroundColor.color = $BackgroundColor   }
+    if ($BackgroundPattern) {$rule.Style.Fill.PatternType = $BackgroundPattern }
+    if ($PatternColor) {$rule.Style.Fill.PatternColor.color = $PatternColor      }
+}

ColorCompletion.ps1

@@ -0,0 +1,16 @@
+Function ColorCompletion {
+    param($commandName, $parameterName, $wordToComplete, $commandAst, $fakeBoundParameter)
+    [System.Drawing.KnownColor].GetFields() | Where-Object {$_.IsStatic -and $_.name -like "$wordToComplete*" } |
+        Sort-Object name | ForEach-Object {New-CompletionResult $_.name $_.name
+    }
+}
+
+if (Get-Command -Name register-argumentCompleter -ErrorAction SilentlyContinue) {
+    Register-ArgumentCompleter -CommandName Export-Excel               -ParameterName TitleBackgroundColor -ScriptBlock $Function:ColorCompletion
+    Register-ArgumentCompleter -CommandName Add-ConditionalFormatting  -ParameterName ForeGroundColor      -ScriptBlock $Function:ColorCompletion
+    Register-ArgumentCompleter -CommandName Add-ConditionalFormatting  -ParameterName DataBarColor         -ScriptBlock $Function:ColorCompletion
+    Register-ArgumentCompleter -CommandName Add-ConditionalFormatting  -ParameterName BackgroundColor      -ScriptBlock $Function:ColorCompletion
+    Register-ArgumentCompleter -CommandName Set-Format                 -ParameterName FontColor            -ScriptBlock $Function:ColorCompletion
+    Register-ArgumentCompleter -CommandName Set-Format                 -ParameterName BackgroundColor      -ScriptBlock $Function:ColorCompletion
+    Register-ArgumentCompleter -CommandName Set-Format                 -ParameterName PatternColor         -ScriptBlock $Function:ColorCompletion
+}

ConvertExcelToImageFile.ps1

@@ -0,0 +1,74 @@
+Function Convert-XlRangeToImage {
+<#
+    .Synopsis
+     Gets the specified part of an Excel file and exports it as an image
+    .Description
+    Excel allows charts to be exported directly to a file, but can't do this with the rest of a sheet. To work round this this function
+    * Opens a copy of Excel and loads a file
+    * Selects a worksheet and then a range of cells in that worksheet
+    * Copies the select to the clipboard
+    * Saves the clipboard contents as an image file (it will save as .JPG unless the file name ends .BMP or .PNG)
+    * Copies a single cell to the clipboard (to prevent the "you have put a lot in the clipboard" message appearing)
+    * Closes Excel
+#>
+Param (
+    #Path to the Excel file
+    [parameter(Mandatory=$true)]
+    $Path,
+    #Worksheet name - if none is specified "Sheet1" will be assumed
+    $workSheetname = "Sheet1" ,
+    #Range of cells within the sheet, e.g "A1:Z99"
+    [parameter(Mandatory=$true)]
+    $range,
+    #A bmp, png or jpg file where the result will be saved
+    $destination = "$pwd\temp.png",
+    #If specified opens the image in the default viewer.
+    [switch]$show
+)
+    $extension   = $destination -replace '^.*\.(\w+)$' ,'$1'
+    if ($extension -in @('JPEG','BMP','PNG'))  {
+           $Format = [system.Drawing.Imaging.ImageFormat]$extension
+    }       #if we don't recognise the extension OR if it is JPG with an E, use JPEG format
+    else { $Format = [system.Drawing.Imaging.ImageFormat]::Jpeg}
+    Write-Progress -Activity "Exporting $range of $workSheetname in $Path" -Status "Starting Excel"
+    $xlApp  = New-Object -ComObject "Excel.Application"
+    Write-Progress -Activity "Exporting $range of $workSheetname in $Path" -Status "Opening Workbook and copying data"
+    $xlWbk  = $xlApp.Workbooks.Open($Path)
+    $xlWbk.Worksheets($workSheetname).Select()
+    $xlWbk.ActiveSheet.Range($range).Select() | Out-Null
+    $xlApp.Selection.Copy()                   | Out-Null
+    Write-Progress -Activity "Exporting $range of $workSheetname in $Path" -Status "Saving copied data"
+    # Get-Clipboard came in with PS5. Older versions can use [System.Windows.Clipboard] but it is ugly.
+    $image  = Get-Clipboard -Format Image
+    $image.Save($destination, $Format)
+    Write-Progress -Activity "Exporting $range of $workSheetname in $Path" -Status "Closing Excel"
+    $xlWbk.ActiveSheet.Range("a1").Select()   | Out-Null
+    $xlApp.Selection.Copy()                   | Out-Null
+    $xlApp.Quit()
+    Write-Progress -Activity "Exporting $range of $workSheetname in $Path" -Completed
+    if ($show) {Start-Process -FilePath $destination}
+    else       {Get-Item      -Path     $destination}
+}
+<#
+del demo*.xlsx
+
+$workSheetname = 'Processes'
+$Path          = "$pwd\demo.xlsx"
+$myData        = Get-Process | Select-Object -Property Name,WS,CPU,Description,company,startTime
+
+$excelPackage  = $myData | Export-Excel -KillExcel -Path $Path -WorkSheetname $workSheetname -ClearSheet -AutoSize -AutoFilter -BoldTopRow -FreezeTopRow -PassThru
+$workSheet     = $excelPackage.Workbook.Worksheets[$workSheetname]
+$range         = $workSheet.Dimension.Address
+Set-Format                -WorkSheet $workSheet -Range "b:b"      -NumberFormat "#,###"            -AutoFit
+Set-Format                -WorkSheet $workSheet -Range "C:C"      -NumberFormat "#,##0.00"         -AutoFit
+Set-Format                -WorkSheet $workSheet -Range "F:F"      -NumberFormat "dd MMMM HH:mm:ss" -AutoFit
+Add-ConditionalFormatting -WorkSheet $workSheet -Range "c2:c1000" -DataBarColor Blue
+Add-ConditionalFormatting -WorkSheet $workSheet -Range "b2:B1000" -RuleType GreaterThan -ConditionValue '104857600' -ForeGroundColor "Red" -Bold
+
+Export-Excel -ExcelPackage $excelPackage -WorkSheetname $workSheetname
+
+Convert-XlRangeToImage -Path $Path -workSheetname $workSheetname -range $range -destination  "$pwd\temp.png"  -show
+#>
+
+
+#Convert-XlRangeToImage -Path $Path -workSheetname $workSheetname -range $range -destination  "$pwd\temp.png"  -show

ConvertFromExcelToSQLInsert.ps1

@@ -1,4 +1,93 @@
 function ConvertFrom-ExcelToSQLInsert {
+    <#
+    .SYNOPSIS
+        Generate SQL insert statements from Excel spreadsheet.
+
+    .DESCRIPTION
+        Generate SQL insert statements from Excel spreadsheet.
+
+    .PARAMETER TableName
+        Name of the target database table.
+
+    .PARAMETER Path
+        Path to an existing .XLSX file
+
+        This parameter is passed to Import-Excel as is.
+
+    .PARAMETER WorkSheetname
+        Specifies the name of the worksheet in the Excel workbook to import. By default, if no name is provided, the first worksheet will be imported.
+
+        This parameter is passed to Import-Excel as is.
+
+    .PARAMETER StartRow
+        The row from where we start to import data, all rows above the StartRow are disregarded. By default this is the first row.
+
+        When the parameters ‘-NoHeader’ and ‘-HeaderName’ are not provided, this row will contain the column headers that will be used as property names. When one of both parameters are provided, the property names are automatically created and this row will be treated as a regular row containing data.
+
+    .PARAMETER Header
+        Specifies custom property names to use, instead of the values defined in the column headers of the TopRow.
+
+        In case you provide less header names than there is data in the worksheet, then only the data with a corresponding header name will be imported and the data without header name will be disregarded.
+
+        In case you provide more header names than there is data in the worksheet, then all data will be imported and all objects will have all the property names you defined in the header names. As such, the last properties will be blanc as there is no data for them.
+
+    .PARAMETER NoHeader
+        Automatically generate property names (P1, P2, P3, ..) instead of the ones defined in the column headers of the TopRow.
+
+        This switch is best used when you want to import the complete worksheet ‘as is’ and are not concerned with the property names.
+
+    .PARAMETER DataOnly
+        Import only rows and columns that contain data, empty rows and empty columns are not imported.
+
+
+    .PARAMETER ConvertEmptyStringsToNull
+        If specified, cells without any data are replaced with NULL, instead of an empty string.
+
+        This is to address behviors in certain DBMS where an empty string is insert as 0 for INT column, instead of a NULL value.
+
+    .EXAMPLE
+        Generate SQL insert statements from Movies.xlsx file, leaving blank cells as empty strings:
+
+        ----------------------------------------------------------
+        | File: Movies.xlsx            -           Sheet: Sheet1 |
+        ----------------------------------------------------------
+        |           A            B            C                  |
+        |1     Movie Name      Year         Rating               |
+        |2     The Bodyguard   1992           9                  |
+        |3     The Matrix      1999           8                  |
+        |4     Skyfall         2012           9                  |
+        |5     The Avengers    2012                              |
+        ----------------------------------------------------------
+
+        PS C:\> Import-Excel -TableName "Movies" -Path 'C:\Movies.xlsx'
+        INSERT INTO Movies ('Movie Name', 'Year', 'Rating') Values('The Bodyguard', '1992', '9');
+        INSERT INTO Movies ('Movie Name', 'Year', 'Rating') Values('The Matrix', '1999', '8');
+        INSERT INTO Movies ('Movie Name', 'Year', 'Rating') Values('Skyfall', '2012', '9');
+        INSERT INTO Movies ('Movie Name', 'Year', 'Rating') Values('The Avengers', '2012', '');
+
+    .EXAMPLE
+        Generate SQL insert statements from Movies.xlsx file, specify NULL instead of an empty string.
+
+        ----------------------------------------------------------
+        | File: Movies.xlsx            -           Sheet: Sheet1 |
+        ----------------------------------------------------------
+        |           A            B            C                  |
+        |1     Movie Name      Year         Rating               |
+        |2     The Bodyguard   1992           9                  |
+        |3     The Matrix      1999           8                  |
+        |4     Skyfall         2012           9                  |
+        |5     The Avengers    2012                              |
+        ----------------------------------------------------------
+
+        PS C:\> ConvertFrom-ExcelToSQLInsert -TableName "Movies" -Path "C:\Movies.xlsx" -ConvertEmptyStringsToNull
+        INSERT INTO Movies ('Movie Name', 'Year', 'Rating') Values('The Bodyguard', '1992', '9');
+        INSERT INTO Movies ('Movie Name', 'Year', 'Rating') Values('The Matrix', '1999', '8');
+        INSERT INTO Movies ('Movie Name', 'Year', 'Rating') Values('Skyfall', '2012', '9');
+        INSERT INTO Movies ('Movie Name', 'Year', 'Rating') Values('The Avengers', '2012', NULL);
+
+    .NOTES
+    #>
+    [CmdletBinding()]
     param(
         [Parameter(Mandatory = $true)]
         $TableName,
@@ -8,39 +97,34 @@ function ConvertFrom-ExcelToSQLInsert {
         $Path,
         [Alias("Sheet")]
         $WorkSheetname = 1,
-        [int]$HeaderRow = 1,
+        [Alias('HeaderRow', 'TopRow')]
+        [ValidateRange(1, 9999)]
+        [Int]$StartRow,
         [string[]]$Header,
         [switch]$NoHeader,
-        [switch]$DataOnly
+        [switch]$DataOnly,
+        [switch]$ConvertEmptyStringsToNull
     )
 
     $null = $PSBoundParameters.Remove('TableName')
+    $null = $PSBoundParameters.Remove('ConvertEmptyStringsToNull')
+
     $params = @{} + $PSBoundParameters
 
     ConvertFrom-ExcelData @params {
         param($propertyNames, $record)
 
         $ColumnNames = "'" + ($PropertyNames -join "', '") + "'"
-        $values = foreach ($propertyName in $PropertyNames) { $record.$propertyName }
-        $targetValues = "'" + ($values -join "', '") + "'"
+        $values = foreach ($propertyName in $PropertyNames) {
+            if ($ConvertEmptyStringsToNull.IsPresent -and [string]::IsNullOrEmpty($record.$propertyName)) {
+                'NULL'
+            }
+            else {
+                "'" + $record.$propertyName + "'"
+            }
+        }
+        $targetValues = ($values -join ", ")
 
         "INSERT INTO {0} ({1}) Values({2});" -f $TableName, $ColumnNames, $targetValues
     }
-    # $data = Import-Excel @params    
-    
-    # $PropertyNames = $data[0].psobject.Properties |
-    #     Where-Object {$_.membertype -match 'property'} |
-    #     Select-Object -ExpandProperty name
-    
-    # $ColumnNames = "'" + ($PropertyNames -join "', '") + "'"
-
-    # foreach ($record in $data) {
-    #     $values = $(foreach ($propertyName in $PropertyNames) {
-    #             $record.$propertyName
-    #         })
-
-    #     $targetValues = "'" + ($values -join "', '") + "'"
-
-    #     "INSERT INTO {0} ({1}) Values({2});" -f $TableName, $ColumnNames, $targetValues
-    # }
 }

ConvertFromExcelToSQLInsert.tests.ps1

@@ -0,0 +1,34 @@
+Import-Module .\ImportExcel.psd1 -Force
+
+$xlFile = ".\testSQL.xlsx"
+
+Describe "ConvertFrom-ExcelToSQLInsert" {
+
+    BeforeEach {
+
+        $([PSCustomObject]@{
+            Name="John"
+            Age=$null
+        }) | Export-Excel $xlFile
+    }
+
+    AfterAll {
+        Remove-Item $xlFile -Recurse -Force -ErrorAction Ignore
+    }
+
+    It "Should be empty double single quotes" {
+        $expected="INSERT INTO Sheet1 ('Name', 'Age') Values('John', '');"
+
+        $actual = ConvertFrom-ExcelToSQLInsert -Path $xlFile Sheet1
+
+        $actual | should be $expected
+    }
+
+     It "Should have NULL" {
+        $expected="INSERT INTO Sheet1 ('Name', 'Age') Values('John', NULL);"
+
+        $actual = ConvertFrom-ExcelToSQLInsert -Path $xlFile Sheet1 -ConvertEmptyStringsToNull
+
+        $actual | should be $expected
+    }
+}

Examples/CustomReporting/CustomReport.ps1

@@ -0,0 +1,72 @@
+Import-Module ..\..\ImportExcel.psd1 -Force
+
+$f = ".\dashboard.xlsx"
+Remove-Item $f -ErrorAction Ignore
+
+$data = @"
+From,To,RDollars,RPercent,MDollars,MPercent,Revenue,Margin
+Atlanta,New York,3602000,.0809,955000,.09,245,65
+New York,Washington,4674000,.105,336000,.03,222,16
+Chicago,New York,4674000,.0804,1536000,.14,550,43
+New York,Philadelphia,12180000,.1427,-716000,-.07,321,-25
+New York,San Francisco,3221000,.0629,1088000,.04,436,21
+New York,Phoneix,2782000,.0723,467000,.10,674,33
+"@ | ConvertFrom-Csv
+
+$data | Export-Excel $f -AutoSize
+
+$excel = Open-ExcelPackage $f
+
+$sheet1 = $excel.Workbook.Worksheets["sheet1"]
+
+$sheet1.View.ShowGridLines = $false
+$sheet1.View.ShowHeaders = $false
+
+Set-Format -Address $sheet1.Cells["C:C"] -NumberFormat "$#,##0" -WrapText -HorizontalAlignment Center
+Set-Format -Address $sheet1.Cells["D:D"] -NumberFormat "#.#0%"  -WrapText -HorizontalAlignment Center
+
+Set-Format -Address $sheet1.Cells["E:E"] -NumberFormat "$#,##0" -WrapText -HorizontalAlignment Center
+Set-Format -Address $sheet1.Cells["F:F"] -NumberFormat "#.#0%"  -WrapText -HorizontalAlignment Center
+
+Set-Format -Address $sheet1.Cells["G:H"] -WrapText -HorizontalAlignment Center
+
+## Insert Rows/Columns
+$sheet1.InsertRow(1, 1)
+
+foreach ($col in Write-Output 2 4 6 8 10 12 14) {
+    $sheet1.InsertColumn($col, 1)
+    $sheet1.Column($col).width = .75
+}
+
+Set-Format -Address $sheet1.Cells["E:E"] -Width 12
+Set-Format -Address $sheet1.Cells["I:I"] -Width 12
+
+$BorderBottom = "Thick"
+$BorderColor = "LightBlue"
+
+Set-Format -Address $sheet1.Cells["A2"]    -BorderBottom $BorderBottom -BorderColor $BorderColor
+
+Set-Format -Address $sheet1.Cells["C2"]    -BorderBottom $BorderBottom -BorderColor $BorderColor
+Set-Format -Address $sheet1.Cells["E2:G2"] -BorderBottom $BorderBottom -BorderColor $BorderColor
+Set-Format -Address $sheet1.Cells["I2:K2"] -BorderBottom $BorderBottom -BorderColor $BorderColor
+Set-Format -Address $sheet1.Cells["M2:O2"] -BorderBottom $BorderBottom -BorderColor $BorderColor
+
+Set-Format -Address $sheet1.Cells["A2:C8"] -FontColor GrayText
+
+$HorizontalAlignment = "Center"
+Set-Format -Address $sheet1.Cells["F1"] -HorizontalAlignment $HorizontalAlignment -Bold -Value Revenue
+Set-Format -Address $sheet1.Cells["J1"] -HorizontalAlignment $HorizontalAlignment -Bold -Value Margin
+Set-Format -Address $sheet1.Cells["N1"] -HorizontalAlignment $HorizontalAlignment -Bold -Value Passenger
+
+Set-Format -Address $sheet1.Cells["E2"] -Value '($)'
+Set-Format -Address $sheet1.Cells["G2"] -Value '%'
+Set-Format -Address $sheet1.Cells["I2"] -Value '($)'
+Set-Format -Address $sheet1.Cells["K2"] -Value '%'
+
+Set-Format -Address $sheet1.Cells["C10"] -HorizontalAlignment Right -Bold -Value "Grand Total Calculation"
+Set-Format -Address $sheet1.Cells["E10"] -Formula "=Sum(E3:E8)" -Bold
+Set-Format -Address $sheet1.Cells["I10"] -Formula "=Sum(I3:I8)" -Bold
+Set-Format -Address $sheet1.Cells["M10"] -Formula "=Sum(M3:M8)" -Bold
+Set-Format -Address $sheet1.Cells["O10"] -Formula "=Sum(O3:O8)" -Bold
+
+Close-ExcelPackage $excel -Show

Examples/PivotTableFilters/testPivotFilter.ps1

@@ -0,0 +1,22 @@
+Import-Module ..\..\ImportExcel.psd1 -Force
+
+$xlFile=".\testPivot.xlsx"
+Remove-Item $xlFile -ErrorAction Ignore
+
+
+$data =@"
+Region,Area,Product,Units,Cost
+North,A1,Apple,100,.5
+South,A2,Pear,120,1.5
+East,A3,Grape,140,2.5
+West,A4,Banana,160,3.5
+North,A1,Pear,120,1.5
+North,A1,Grape,140,2.5
+"@ | ConvertFrom-Csv
+
+$data |
+    Export-Excel $xlFile -Show `
+        -AutoSize -AutoFilter `
+        -IncludePivotTable `
+        -PivotRows Product `
+        -PivotData @{"Units"="sum"} -PivotFilter Region, Area 

Examples/SQL+FillColumns+Pivot/Example.ps1

@@ -0,0 +1,88 @@
+ ipmo C:\Users\mcp\Documents\GitHub\ImportExcel\ImportExcel.psd1     -Force -Verbose                                                                                                                 
+
+$sql           = @"
+  SELECT     rootfile.baseName     ,  rootfile.extension   , Image.fileWidth         AS width             ,  image.fileHeight AS height ,  
+             metadata.dateDay      ,  metadata.dateMonth   , metadata.dateYear       ,  Image.captureTime AS dateTaken,
+             metadata.hasGPS       ,  metadata.GPSLatitude , metadata.GPSLongitude   ,
+             metadata.focalLength  ,  metadata.flashFired  , metadata.ISOSpeedRating AS ISOSpeed, 
+             metadata.Aperture     AS apertureValue        , metadata.ShutterSpeed AS shutterSpeedValue,
+             Image.bitdepth        ,  image.colorLabels    ,
+             Camera.Value          AS cameraModel          , LensRef.value          AS lensModel                        
+      FROM   Adobe_images                  image        
+      JOIN   AgLibraryFile              rootFile  ON   rootfile.id_local =      image.rootFile      
+      JOIN   AgharvestedExifMetadata    metadata  ON      image.id_local =   metadata.image   
+ LEFT JOIN   AgInternedExifLens          LensRef  ON    LensRef.id_Local =   metadata.lensRef
+ LEFT JOIN   AgInternedExifCameraModel    Camera  ON     Camera.id_local =  metadata.cameraModelRef  
+"@  
+``
+#Sql Statement gets 20 columns of data from Adobe lightroom database
+#Define a pivot table and chart for total pictures with each lens.  
+
+$pt = @{"LensPivot" = @{ "PivotTableName"    =   "LensPivot"; 
+                         "SourceWorkSheet"   =   "Sheet1" ;
+                         "PivotRows"         =   "LensModel" ;
+                         "PivotData"         = @{"basename" = "Count"}  ;
+                         "IncludePivotChart" =    $true ;
+                         "NoLegend"          =    $true ;
+                         "ShowPercent"       =    $true ; 
+                         "ChartType"         =   "Pie"  ;
+                         "ChartTitle"        =   "Split by Lens" }
+}   
+
+#we want to add 3 columns, translate Apperture value and Shutter speed value into familar f/ and seconds notation, and use these and ISO to calculate EV level
+$Avalue        = {"=IF(P$ROW>6.63,TEXT(ROUND(Sqrt(Power(2,O$ROW)),1),`"`"`"f/`"`"0.0`")," +
+                          "TEXT(ROUND(Sqrt(Power(2,O$ROW)),1),`"`"`"f/`"`"0.0`"))"}
+$Svalue        = {"=IF(P$ROW>2,TEXT(ROUND(POWER(2,P$ROW),0),`"`"`"1/`"`"0`"`"sec`"`"`"),"+
+                        "IF(P$ROW>3.32,TEXT(ROUND(1/POWER(2,P$ROW),2),`"0.0`"`"Sec`"`"`"),"+
+                            "TEXT(ROUND(1/POWER(2,P$ROW),2),`"0`"`"Sec`"`"`")))"}
+$evValue       = {"=ROUND(P$Row+O$Row-(LOG(N$Row/100,2)),0)" }
+
+#remove and recreate the file 
+Remove-Item -Path "~\Documents\temp.xlsx" -ErrorAction SilentlyContinue
+
+#Open a connection to the ODBC source "LR" (which points to the SQLLite DB for Lightroom), run the SQL query, and drop into Excel - in sheet1, autosizing columns. 
+$e = Send-SQLDataToExcel   -Path "~\Documents\temp.xlsx" -WorkSheetname "Sheet1" -Connection "DSN=LR" -SQL $sql -AutoSize -Passthru
+
+#Add columns, then format them and hide the ones which aren't of interest. 
+Set-Column   -Worksheet    $e.workbook.Worksheets["sheet1"] -Column 21  -Value $Avalue  -Heading "Apperture" 
+Set-Column   -Worksheet    $e.workbook.Worksheets["sheet1"] -Column 22  -Value $Svalue  -Heading "Shutter"
+Set-Column   -Worksheet    $e.workbook.Worksheets["sheet1"] -Column 23  -Value $Evvalue -Heading "Ev" 
+Set-Format   -Address      $e.workbook.Worksheets["sheet1" ].Column(21) -HorizontalAlignment Left  -AutoFit   
+Set-Format   -Address      $e.workbook.Worksheets["sheet1" ].Column(22) -HorizontalAlignment Right -AutoFit
+@(5,6,7,13,15,16,17,18) | ForEach-Object {
+  Set-Format -Address      $e.workbook.Worksheets["sheet1" ].Column($_) -Hidden 
+}
+
+#Center the column labels.  
+Set-Format   -Address      $e.workbook.Worksheets["sheet1" ].Row(1)     -HorizontalAlignment Center
+
+#Format the data as a nice Table, Create the pivot table & chart defined above, show the file in Excel in excel after saving.    
+Export-Excel -ExcelPackage $e      -WorkSheetname "sheet1"  -TableName  "Table" -PivotTableDefinition $pt -Show 
+
+############################################################
+
+Remove-Item  .\demo3.xlsx
+#Database query to get race wins, Poles and fastest lapes for the 25 best drivers; we already have a connection to the DB in $dbSessions
+$session =  $DbSessions["f1"] 
+$SQL     =  @"
+    SELECT TOP 25 DriverName, 
+                  Count(RaceDate)   AS Races,
+                  Count(Win)        AS Wins, 
+                  Count(Pole)       AS Poles, 
+                  Count(FastestLap) AS Fastlaps 
+    FROM  Results 
+    GROUP BY DriverName 
+    ORDER BY (Count(win)) DESC
+"@ 
+
+#Run the query and put the results in workshet "Winners", autosize the columns and hold on to the ExcelPackage object 
+$Excel   =  Send-SQLDataToExcel -SQL $sql -Session $session -path .\demo3.xlsx -WorkSheetname "Winners"   -AutoSize -Passthru
+#Create and format columns for the ratio of Wins to poles and fast laps. 
+Set-Column   -ExcelPackage $Excel -WorkSheetname "Winners" -column 6  -Heading "WinsToPoles" -Value {"=D$row/C$row"} 
+Set-Column   -ExcelPackage $Excel -WorkSheetname "Winners" -column 7  -Heading "WinsToFast"  -Value {"=E$row/C$row"} 
+6..7 | ForEach-Object {
+    Set-Format -Address    $Excel.Workbook.Worksheets["Winners"].column($_) -NumberFormat "0.0%" -AutoFit }
+#Define a chart to show the relationship of lest on an XY Grid, create the ranges required in the, add the chart and show the file in Excel in excel after saving.  
+$chart = New-ExcelChart -NoLegend -ChartType XYScatter -XRange WinsToFast -YRange WinsToPoles -ShowCategory -Column 7 -Width 2000 -Height 700
+Export-Excel -ExcelPackage $Excel -WorkSheetname "Winners" -AutoNameRange -ExcelChartDefinition $chart -Show 
+

Examples/SQL+FillColumns+Pivot/Example2.ps1

@@ -0,0 +1,22 @@
+ipmo C:\Users\mcp\Documents\GitHub\ImportExcel\ImportExcel.psd1 -Force
+
+Get-SQL -Session f1 -Excel  -Connection C:\Users\mcp\OneDrive\Public\F1\f1Results.xlsx -showtables -Verbose
+
+del .\demo3.xlsx
+$session = $DbSessions["f1"]
+
+$SQL     =  "SELECT top 25 DriverName,  Count(RaceDate) as Races , 
+                    Count(Win) as Wins, Count(Pole) as Poles, Count(FastestLap) as Fastlaps 
+             FROM Results GROUP BY DriverName 
+             order by (count(win)) desc" 
+$Excel   =  Send-SQLDataToExcel -SQL $sql -Session $session -path .\demo3.xlsx -WorkSheetname "Winners" -AutoSize -AutoNameRange -BoldTopRow -FreezeTopRow -Passthru  
+
+$ws = $Excel.Workbook.Worksheets["Winners"] 
+
+Set-Row    -Worksheet $ws -Heading "Average"     -Value {"=Average($columnName`2:$columnName$endrow)"}  -NumberFormat "0.0"  -Bold
+Set-Column -Worksheet $ws -Heading "WinsToPoles" -Value {"=D$row/C$row"}           -Column 6            -AutoSize -AutoNameRange
+Set-Column -Worksheet $ws -Heading "WinsToFast"  -Value {"=E$row/C$row"}           -Column 7            -AutoSize -AutoNameRange
+
+Set-Format -WorkSheet $ws -Range "F2:G50" -NumberFormat "0.0%"
+$chart = New-ExcelChart -NoLegend -ChartType XYScatter -XRange WinsToFast -YRange WinsToPoles -Column 7 -Width 2000 -Height 700 -Title "Poles vs fastlaps"
+Export-Excel -ExcelPackage $Excel -WorkSheetname "Winners" -ExcelChartDefinition $chart -Show

Examples/SetColumnBackgroundColor/SetColumnBackgroundColor.ps1

@@ -0,0 +1,9 @@
+
+$p = ps | select Company, Handles | Export-Excel c:\temp\testBackgroundColor.xlsx -ClearSheet -KillExcel -PassThru
+
+$ws        = $p.Workbook.WorkSheets[1]
+$totalRows = $ws.Dimension.Rows
+
+Set-Format -Address $ws.Cells["B2:B$($totalRows)"] -BackgroundColor LightBlue
+
+Export-Excel -ExcelPackage $p -show

Examples/TryMultiplePivotTables.ps1

@@ -0,0 +1,30 @@
+# To ship, is to choose 
+
+#ipmo .\ImportExcel.psd1 -Force
+
+$pt=[ordered]@{}
+
+$pt.ServiceInfo=@{    
+    SourceWorkSheet='Services'
+    PivotRows = "Status"    
+    PivotData= @{'Status'='count'}
+    IncludePivotChart=$true
+    ChartType='BarClustered3D'
+}
+
+$pt.ProcessInfo=@{
+    SourceWorkSheet='Processes'
+    PivotRows = "Company"    
+    PivotData= @{'Company'='count'}
+    IncludePivotChart=$true
+    ChartType='PieExploded3D'
+}
+
+$gsv=Get-Service | Select-Object status, Name, displayName, starttype
+$ps=Get-Process | Select-Object Name,Company, Handles
+
+$file = "c:\temp\testPT.xlsx"
+rm $file -ErrorAction Ignore
+
+$gsv| Export-Excel -Path $file -AutoSize -WorkSheetname Services
+$ps | Export-Excel -Path $file -AutoSize -WorkSheetname Processes -PivotTableDefinition $pt -Show 

Examples/TryMultiplePivotTablesFromOneSheet.ps1

@@ -0,0 +1,26 @@
+Import-Module ..\ImportExcel.psd1 -Force
+
+$file = "C:\Temp\test.xlsx"
+
+Remove-Item $file -ErrorAction Ignore -Force
+
+$base = @{
+    SourceWorkSheet   = 'gsv'
+    PivotData         = @{'Status' = 'count'}
+    IncludePivotChart = $true
+    # ChartType         = 'BarClustered3D'
+}
+
+$ptd = [ordered]@{}
+
+# $ptd.gpt1 = $base + @{ PivotRows = "ServiceType" }
+# $ptd.gpt2 = $base + @{ PivotRows = "Status" }
+# $ptd.gpt3 = $base + @{ PivotRows = "StartType" }
+# $ptd.gpt4 = $base + @{ PivotRows = "CanStop" }
+
+$ptd += New-PivotTableDefinition @base servicetype -PivotRows servicetype -ChartType Area3D
+$ptd += New-PivotTableDefinition @base status -PivotRows status -ChartType PieExploded3D
+$ptd += New-PivotTableDefinition @base starttype -PivotRows starttype -ChartType BarClustered3D
+$ptd += New-PivotTableDefinition @base canstop -PivotRows canstop -ChartType ConeColStacked
+
+Get-Service | Export-Excel -path $file -WorkSheetname gsv -Show -PivotTableDefinition $ptd

Examples/XlRangeToImage/XlRangeToImage.ps1

@@ -0,0 +1,23 @@
+ipmo .\ImportExcel.psd1 -Force
+
+. .\ConvertExcelToImageFile.ps1
+
+$xlFileName = "C:\Temp\testPNG.xlsx"
+
+rm C:\Temp\testPNG.xlsx -ErrorAction Ignore
+
+$range = @"
+Region,Item,Cost
+North,Pear,1
+South,Apple,2
+East,Grapes,3
+West,Berry,4
+North,Pear,1
+South,Apple,2
+East,Grapes,3
+West,Berry,4
+"@ | ConvertFrom-Csv | 
+    Export-Excel $xlFileName -ReturnRange `
+        -ConditionalText (New-ConditionalText Apple), (New-ConditionalText Berry -ConditionalTextColor White -BackgroundColor Purple) 
+
+Convert-XlRangeToImage -Path $xlFileName -workSheetname sheet1 -range $range -Show

Export-Excel.Tests.ps1

@@ -1,64 +1,94 @@
-# Contributed by https://github.com/W1M0R
+#Requires -Modules Pester
+#Requires -Modules Assert
 
-Import-Module ImportExcel -Force 
+$here = Split-Path -Parent $MyInvocation.MyCommand.Path
+$sut = (Split-Path -Leaf $MyInvocation.MyCommand.Path) -replace '\.Tests\.', '.'
 
-function New-TestWorkbook {
-    $testWorkbook = "$($PSScriptRoot)\test.xlsx"
-    
-    Remove-Item $testWorkbook -ErrorAction Ignore
-    $testWorkbook
+Import-Module $here -Force
+
+$WarningPreference = 'SilentlyContinue'
+$ProgressPreference = 'SilentlyContinue'
+
+Function Test-isNumeric {
+    Param (
+        [Parameter(ValueFromPipeline)]$x
+    )
+
+    Return $x -is [byte]  -or $x -is [int16]  -or $x -is [int32]  -or $x -is [int64]  `
+       -or $x -is [sbyte] -or $x -is [uint16] -or $x -is [uint32] -or $x -is [uint64] `
+       -or $x -is [float] -or $x -is [double] -or $x -is [decimal]
 }
 
-function Remove-TestWorkbook {
-    New-TestWorkbook | Out-Null
+$fakeData = [PSCustOmobject]@{
+    Property_1_Date      = (Get-Date).ToString('d') # US '10/16/2017' BE '16/10/2107'
+    Property_2_Formula   = '=SUM(G2:H2)'
+    Property_3_String    = 'My String'
+    Property_4_String    = 'a'
+    Property_5_IPAddress = '10.10.25.5'
+    Property_6_Number    = '0'
+    Property_7_Number    = '5'
+    Property_8_Number    = '007'
+    Property_9_Number    = (33).ToString('F2') # US '33.00' BE '33,00'
+    Property_10_Number   = (5/3).ToString('F2') # US '1.67' BE '1,67'
+    Property_11_Number   = (15999998/3).ToString('N2') # US '5,333,332.67' BE '5.333.332,67'
+    Property_12_Number   = '1.555,83'
+    Property_13_PhoneNr  = '+32 44' 
+    Property_14_PhoneNr  = '+32 4 4444 444'
+    Property_15_PhoneNr  =  '+3244444444'
 }
 
-function New-TestDataCsv {
-@"
-ID,Product,Quantity,Price,Total
-12001,Nails,37,3.99,147.63
-12002,Hammer,5,12.10,60.5
-12003,Saw,12,15.37,184.44
-01200,Drill,20,8,160  
-00120,Crowbar,7,23.48,164.36
-true,Bla,7,82,12
-false,Bla,7,82,12
-2009-05-01 14:57:32.8,Yay,1,3,2
-"@ | ConvertFrom-Csv 
-}
+$Path = 'Test.xlsx'
 
-Describe "Export-Excel" {
+Describe 'Export-Excel' {
+    in $TestDrive {
+        Describe 'Number conversion' {
+            Context 'numerical values expected' {
+                #region Create test file                
+                $fakeData | Export-Excel -Path $Path
+                
+                $Path = $ExecutionContext.SessionState.Path.GetUnresolvedProviderPathFromPSPath($Path)
+                $Excel = New-Object OfficeOpenXml.ExcelPackage $Path
+                $Worksheet = $Excel.Workbook.WorkSheets[1]
+                #endregion
 
-    $csvData  = New-TestDataCsv
-    $workbook = New-TestWorkbook
+                it 'zero' {
+                    $fakeData.Property_6_Number | Should -BeExactly '0'
+                    $Worksheet.Cells[2, 6].Text | Should -BeExactly $fakeData.Property_6_Number
+                    $Worksheet.Cells[2, 6].Value | Test-isNumeric | Should -Be $true
+                }
 
-    Context "Importing CSV data from a here string" {
-        It "All properties are type [string]" {
-            $csvData | % {
-                $_.PSObject.Properties | % {
-                    $_.Value -is [string] | Should Be $true
+                It 'regular number' {
+                    $fakeData.Property_7_Number | Should -BeExactly '5'
+                    $Worksheet.Cells[2, 7].Text | Should -BeExactly $fakeData.Property_7_Number
+                    $Worksheet.Cells[2, 7].Value | Test-isNumeric | Should -Be $true
+                }
+                
+                It 'number starting with zero' {
+                    $fakeData.Property_8_Number | Should -BeExactly '007'
+                    $Worksheet.Cells[2, 8].Text | Should -BeExactly '7'
+                    $Worksheet.Cells[2, 8].Value | Test-isNumeric | Should -Be $true
+                }
+                
+                It 'decimal number' {
+                    # US '33.00' BE '33,00'
+                    $fakeData.Property_9_Number | Should -BeExactly (33).ToString('F2')
+                    $Worksheet.Cells[2, 9].Text | Should -BeExactly '33'
+                    $Worksheet.Cells[2, 9].Value | Test-isNumeric | Should -Be $true
+
+                    # US '1.67' BE '1,67'
+                    $fakeData.Property_10_Number | Should -BeExactly (5/3).ToString('F2')
+                    $Worksheet.Cells[2, 10].Text | Should -BeExactly $fakeData.Property_10_Number
+                    $Worksheet.Cells[2, 10].Value | Test-isNumeric | Should -Be $true
+                }
+
+                It 'thousand seperator and decimal number' {
+                    # US '5,333,332.67' BE '5.333.332,67'
+                    # Excel BE '5333332,67'
+                    $fakeData.Property_11_Number | Should -BeExactly (15999998/3).ToString('N2')
+                    $Worksheet.Cells[2, 11].Text | Should -BeExactly $fakeData.Property_11_Number
+                    $Worksheet.Cells[2, 11].Value | Test-isNumeric | Should -Be $true
                 }
             }
         }
-        It "Leading zeroes are preserved" {
-            $csvData[4] | Select-Object -ExpandProperty ID | Should Be "00120"
-        }
     }
-
-    Context "Piping CSV data to Export-Excel" {
-
-        $xlPkg = $csvData | Export-Excel $workbook -PassThru
-        $ws = $xlPkg.Workbook.WorkSheets[1]
-
-        It "Exports numeric strings as numbers" {
-            $csvData[2] | Select-Object -ExpandProperty ID | Should Be "12003"
-            $ws.Cells["A4"].Value -is [double] | Should Be $true
-            $ws.Cells["A4"].Value | Should Be 12003
-        }
-
-        $xlPkg.Save()
-        $xlPkg.Dispose()
-    }
-
-    Remove-TestWorkbook
 }

Export-Excel.ps1

@@ -1,17 +1,87 @@
-Function Export-Excel {
+Function Export-Excel {
     <#
         .SYNOPSIS
             Export data to an Excel worksheet.
 
         .DESCRIPTION
             Export data to an Excel file and where possible try to convert numbers so Excel recognizes them as numbers instead of text. After all. Excel is a spreadsheet program used for number manipulation and calculations. In case the number conversion is not desired, use the parameter '-NoNumberConversion *'.
-
+        .PARAMETER Path
+            Path to a new or existing .XLSX file
+        .PARAMETER  ExcelPackage
+            An object representing an Excel Package - usually this is returned by specifying -Passthru allowing multiple commands to work on the same Workbook without saving and reloading each time.
+        .PARAMETER WorkSheetName
+            The name of a sheet within the workbook - "Sheet1" by default
+        .PARAMETER ClearSheet
+            If specified Export-Excel will remove any existing worksheet with the selected name. The Default behaviour is to overwrite cells in this sheet as needed (but leaving non-overwritten ones in place)
+        .PARAMETER Append
+            If specified data will be added to the end of an existing sheet, using the same column headings.
+        .PARAMETER TargetData
+            Data to insert onto the worksheet - this is often provided from the pipeline.
+        .PARAMETER ExcludeProperty
+            Speficies properties which may exist in the target data but should not be placed on the worksheet
+        .PARAMETER Title
+            Text of a title to be placed in Cell A1
+        .PARAMETER TitleBold
+            Sets the title in boldface type
+        .PARAMETER TitleSize
+            Sets the point size for the title
+        .PARAMETER TitleBackgroundColor
+            Sets the cell background to solid and the chose colour for the title cell
+        .PARAMETER Password
+            Sets password protection on the workbook
+        .PARAMETER IncludePivotTable
+            Adds a Pivot table using the data in the worksheet
+        .PARAMETER PivotRows
+            Name(s) columns from the spreadhseet which will prvoide the row name(s) in the pivot table
+        .PARAMETER PivotColumns
+            Name(s) columns from the spreadhseet which will prvoide the Column name(s) in the pivot table
+        .PARAMETER PivotData
+            Hash table in the form ColumnName = Average|Count|CountNums|Max|Min|Product|None|StdDev|StdDevP|Sum|Var|VarP to provide the data in the Pivot table
+        .PARAMETER PivotTableDefinition,
+            HashTable(s) with Sheet PivotTows, PivotColumns, PivotData, IncludePivotChart and ChartType values to make it easier to specify a definition or multiple Pivots.
+        .PARAMETER IncludePivotChart,
+             Include a chart with the Pivot table - implies Include Pivot Table.
+        .PARAMETER NoLegend
+            Exclude the legend from the pivot chart
+        .PARAMETER ShowCategory
+            Add category labels to the pivot chart
+        .PARAMETER ShowPercent
+            Add Percentage labels to the pivot chart
         .PARAMETER ConditionalText
             Applies a 'Conditional formatting rule' in Excel on all the cells. When specific conditions are met a rule is triggered.
-
         .PARAMETER NoNumberConversion
             By default we convert all values to numbers if possible, but this isn't always desirable. NoNumberConversion allows you to add exceptions for the conversion. Wildcards (like '*') are allowed.
+        .PARAMETER BoldTopRow
+            Makes the top Row boldface.
+        .PARAMETER NoHeader
+            Does not put field names at the top of columns
+        .PARAMETER RangeName
+            Makes the data in the worksheet a named range
+        .PARAMETER TableName
+            Makes the data in the worksheet a table with a name applies a style to it. Name must not contain spaces
+        .PARAMETER TableStyle
+            Selects the style for the named table - defaults to 'Medium6'
+        .PARAMETER ExcelChartDefinition
+            A hash table containing ChartType, Title, NoLegend, ShowCategory, ShowPecent, Yrange, Xrange and SeriesHeader for one or more [non-pivot] charts
+        .PARAMETER HideSheet
+            Name(s) of Sheet(s) to hide in the workbook
+        .PARAMETER KillExcel
+            Closes Excel - prevents errors writing to the file because Excel has it open
+        .PARAMETER AutoNameRange
+            Makes each column  a named range
+        .PARAMETER StartRow
+            Row to start adding data. 1 by default. Row 1 will contain the title if any. Then headers will appear (Unless -No header is specified) then the data appears
+        .PARAMETER StartColumn
+            Column to start adding data - 1 by default
 
+        .PARAMETER FreezeTopRow
+            Freezes headers etc. in the top row
+        .PARAMETER FreezeFirstColumn
+            Freezes titles etc. in the left column
+        .PARAMETER FreezeTopRowFirstColumn
+             Freezes top row and left column (equivalent to Freeze pane 2,2 )
+        .PARAMETER FreezePane
+             Freezes panes at specified coordinates (in the form  RowNumber , ColumnNumber)
         .PARAMETER AutoFilter
             Enables the 'Filter' in Excel on the complete header row. So users can easily sort, filter and/or search the data in the select column from within Excel.
 
@@ -23,7 +93,7 @@ Function Export-Excel {
 
         .PARAMETER NumberFormat
             Formats all values that can be converted to a number to the format specified.
-            
+
             Examples:
             # integer (not really needed unless you need to round numbers, Excel with use default cell properties)
             '0'
@@ -51,6 +121,8 @@ Function Export-Excel {
 
         .PARAMETER Show
             Opens the Excel file immediately after creation. Convenient for viewing the results instantly without having to search for the file first.
+        .PARAMETER PassThru
+            If specified, Export-Excel returns an object representing the Excel package without saving the package first. To save it you need to call the save or Saveas method or send it back to Export-Excel
 
         .EXAMPLE
             Get-Process | Export-Excel .\Test.xlsx -show
@@ -63,7 +135,7 @@ Function Export-Excel {
                 Verbose = $true
             }
             Remove-Item -Path $ExcelParams.Path -Force -EA Ignore
-            Write-Output -1 668 34 777 860 -0.5 119 -0.1 234 788 | 
+            Write-Output -1 668 34 777 860 -0.5 119 -0.1 234 788 |
                 Export-Excel @ExcelParams -NumberFormat '[Blue]$#,##0.00;[Red]-$#,##0.00'
 
             Exports all data to the Excel file 'Excel.xslx' and colors the negative values in 'Red' and the positive values in 'Blue'. It will also add a dollar sign '$' in front of the rounded numbers to two decimal characters behind the comma.
@@ -86,7 +158,7 @@ Function Export-Excel {
                 Number3   = '1.555,83'
                 Number4   = '1.2'
                 Number5   = '-31'
-                PhoneNr1  = '+32 44' 
+                PhoneNr1  = '+32 44'
                 PhoneNr2  = '+32 4 4444 444'
                 PhoneNr3  =  '+3244444444'
             } | Export-Excel @ExcelParams -NoNumberConversion IPAddress, Number1
@@ -111,7 +183,7 @@ Function Export-Excel {
                 Number3   = '1.555,83'
                 Number4   = '1.2'
                 Number5   = '-31'
-                PhoneNr1  = '+32 44' 
+                PhoneNr1  = '+32 44'
                 PhoneNr2  = '+32 4 4444 444'
                 PhoneNr3  =  '+3244444444'
             } | Export-Excel @ExcelParams -NoNumberConversion *
@@ -178,7 +250,7 @@ Function Export-Excel {
             $Array = $Obj1, $Obj2, $Obj3
             $Array | Out-GridView -Title 'Not showing Member3 and Member4'
             $Array | Update-FirstObjectProperties | Export-Excel @ExcelParams -WorkSheetname Numbers
-            
+
             Updates the first object of the array by adding property 'Member3' and 'Member4'. Afterwards. all objects are exported to an Excel file and all column headers are visible.
 
         .EXAMPLE
@@ -189,30 +261,92 @@ Function Export-Excel {
 
         .EXAMPLE
             Get-Service | Export-Excel 'c:\temp\test.xlsx'  -Show -IncludePivotTable -PivotRows status -PivotData @{status='count'}
-        
+
+        .EXAMPLE
+            $pt = [ordered]@{}
+            $pt.pt1=@{ SourceWorkSheet   = 'Sheet1';
+                       PivotRows         = 'Status'
+                       PivotData         = @{'Status'='count'}
+                       IncludePivotChart = $true
+                       ChartType         = 'BarClustered3D'
+            }
+            $pt.pt2=@{ SourceWorkSheet   = 'Sheet2';
+                       PivotRows         = 'Company'
+                       PivotData         = @{'Company'='count'}
+                       IncludePivotChart = $true
+                       ChartType         = 'PieExploded3D'
+            }
+            Remove-Item  -Path .\test.xlsx
+            Get-Service | Select-Object    -Property Status,Name,DisplayName,StartType | Export-Excel -Path .\test.xlsx -AutoSize
+            Get-Process | Select-Object    -Property Name,Company,Handles,CPU,VM       | Export-Excel -Path .\test.xlsx -AutoSize -WorkSheetname 'sheet2'
+            Export-Excel -Path .\test.xlsx -PivotTableDefinition $pt -Show
+
+            This example defines two pivot tables. Then it puts Service data on Sheet1 with one call to Export-Excel and Process Data on sheet2 with a second call to Export-Excel
+            The thrid and final call adds the two pivot tables and opens the spreadsheet in Excel
+
+
+        .EXAMPLE
+            Remove-Item  -Path .\test.xlsx
+            $excel = Get-Service | Select-Object -Property Status,Name,DisplayName,StartType | Export-Excel -Path .\test.xlsx -PassThru
+            $excel.Workbook.Worksheets["Sheet1"].Row(1).style.font.bold = $true
+            $excel.Workbook.Worksheets["Sheet1"].Column(3 ).width = 29
+            $excel.Workbook.Worksheets["Sheet1"].Column(3 ).Style.wraptext = $true
+            $excel.Save()
+            $excel.Dispose()
+            Start-Process .\test.xlsx
+
+            This example uses -passthrough - put service information into sheet1 of the work book and saves the excelPackageObject in $Excel
+            It then uses the package object to apply formatting, and then saves the workbook and disposes of the object before loading the document in Excel.
+
+        .EXAMPLE
+            $excel = Get-Process | Select-Object -Property Name,Company,Handles,CPU,PM,NPM,WS | Export-Excel -Path .\test.xlsx -ClearSheet -WorkSheetname "Processes" -PassThru
+            $sheet = $excel.Workbook.Worksheets["Processes"]
+            $sheet.Column(1) | Set-Format -Bold -AutoFit
+            $sheet.Column(2) | Set-Format -Width 29 -WrapText
+            $sheet.Column(3) | Set-Format -HorizontalAlignment Right -NFormat "#,###"
+            Set-Format -Address $sheet.Cells["E1:H1048576"]  -HorizontalAlignment Right -NFormat "#,###"
+            Set-Format -Address $sheet.Column(4)  -HorizontalAlignment Right -NFormat "#,##0.0" -Bold
+            Set-Format -Address $sheet.Row(1) -Bold -HorizontalAlignment Center
+            Add-ConditionalFormatting -WorkSheet $sheet -Range "D2:D1048576" -DataBarColor Red
+            Add-ConditionalFormatting -WorkSheet $sheet -Range "G2:G1048576" -RuleType GreaterThan -ConditionValue "104857600" -ForeGroundColor Red
+            foreach ($c in 5..9) {Set-Format $sheet.Column($c)  -AutoFit }
+            Export-Excel -ExcelPackage $excel -WorkSheetname "Processes" -IncludePivotChart -ChartType ColumnClustered -NoLegend -PivotRows company  -PivotData @{'Name'='Count'}  -Show
+
+            This a more sophisticated version of the previous example showing different ways of using Set-Format, and also adding conditional formatting.
+            In the final command a Pivot chart is added and the workbook is opened in Excel.
+
         .LINK
             https://github.com/dfinke/ImportExcel
     #>
 
-    [CmdLetBinding()]
+    [CmdletBinding(DefaultParameterSetName = 'Default')]
     Param(
-        $Path,
-        [Parameter(ValueFromPipeline=$true)]
+        [Parameter(ParameterSetName = "Default", Position = 0)]
+        [Parameter(ParameterSetName = "Table"  , Position = 0)]
+        [String]$Path,
+        [Parameter(Mandatory = $true, ParameterSetName = "PackageDefault")]
+        [Parameter(Mandatory = $true, ParameterSetName = "PackageTable")]
+        [OfficeOpenXml.ExcelPackage]$ExcelPackage,
+        [Parameter(ValueFromPipeline = $true)]
         $TargetData,
+        [String]$Password,
         [String]$WorkSheetname = 'Sheet1',
+        [switch]$ClearSheet,
+        [switch]$Append,
         [String]$Title,
         [OfficeOpenXml.Style.ExcelFillStyle]$TitleFillPattern = 'None',
         [Switch]$TitleBold,
         [Int]$TitleSize = 22,
         [System.Drawing.Color]$TitleBackgroundColor,
+        [Switch]$IncludePivotTable,
         [String[]]$PivotRows,
         [String[]]$PivotColumns,
         $PivotData,
+        [String[]]$PivotFilter,
         [Switch]$PivotDataToColumn,
-        [String]$Password,
-        [OfficeOpenXml.Drawing.Chart.eChartType]$ChartType = 'Pie',
-        [Switch]$IncludePivotTable,
+        [Hashtable]$PivotTableDefinition,
         [Switch]$IncludePivotChart,
+        [OfficeOpenXml.Drawing.Chart.eChartType]$ChartType = 'Pie',
         [Switch]$NoLegend,
         [Switch]$ShowCategory,
         [Switch]$ShowPercent,
@@ -223,25 +357,31 @@ Function Export-Excel {
         [Switch]$FreezeFirstColumn,
         [Switch]$FreezeTopRowFirstColumn,
         [Int[]]$FreezePane,
+        [Parameter(ParameterSetName = 'Default')]
+        [Parameter(ParameterSetName = 'PackageDefault')]
         [Switch]$AutoFilter,
         [Switch]$BoldTopRow,
         [Switch]$NoHeader,
         [String]$RangeName,
-        [ValidateScript({
-            if ($_.Contains(' ')) {
-                throw 'Tablename has spaces.'
-            }
-            elseif (-not $_) {
-                throw 'Tablename is null or empty.'
-            }
-            elseif ($_[0] -notmatch '[a-z]') {
-                throw 'Tablename start with invalid character.'
-            }
-            else {
-                $true
-            }
-        })] 
+        [ValidateScript( {
+                if ($_.Contains(' ')) {
+                    throw 'Tablename has spaces.'
+                }
+                elseif (-not $_) {
+                    throw 'Tablename is null or empty.'
+                }
+                elseif ($_[0] -notmatch '[a-z]') {
+                    throw 'Tablename starts with an invalid character.'
+                }
+                else {
+                    $true
+                }
+            })]
+        [Parameter(ParameterSetName = 'Table'        , Mandatory = $true)]
+        [Parameter(ParameterSetName = 'PackageTable' , Mandatory = $true)]
         [String]$TableName,
+        [Parameter(ParameterSetName = 'Table')]
+        [Parameter(ParameterSetName = 'PackageTable')]
         [OfficeOpenXml.Table.TableStyles]$TableStyle = 'Medium6',
         [Object[]]$ExcelChartDefinition,
         [String[]]$HideSheet,
@@ -251,14 +391,28 @@ Function Export-Excel {
         [Int]$StartColumn = 1,
         [Switch]$PassThru,
         [String]$Numberformat = 'General',
+        [string[]]$ExcludeProperty,
         [String[]]$NoNumberConversion,
         [Object[]]$ConditionalFormat,
         [Object[]]$ConditionalText,
         [ScriptBlock]$CellStyleSB,
-        [Switch]$Now
+        [Parameter(ParameterSetName = 'Now')]
+        # [Parameter(ParameterSetName = 'TableNow')]
+        [Switch]$Now,
+        [Switch]$ReturnRange,
+        [Switch]$NoTotalsInPivot,
+        [Switch]$ReZip
     )
 
     Begin {
+        function Find-WorkSheet {
+            param (
+                $WorkSheetName
+            )
+
+            $pkg.Workbook.Worksheets | Where-Object {$_.name -match $WorkSheetName}
+        }
+
         Function Add-CellValue {
             <#
             .SYNOPSIS
@@ -296,8 +450,8 @@ Function Export-Excel {
                     #endregion
                 }
 
-                {(($NoNumberConversion) -and ($NoNumberConversion -contains $Name)) -or 
-                ($NoNumberConversion -eq '*')} {
+                {(($NoNumberConversion) -and ($NoNumberConversion -contains $Name)) -or
+                    ($NoNumberConversion -eq '*')} {
                     #regioon Save a value without converting to number
                     $TargetCell.Value = $_
                     Write-Verbose "Cell '$Row`:$ColumnIndex' header '$Name' add value '$($TargetCell.Value)' unconverted"
@@ -307,11 +461,11 @@ Function Export-Excel {
 
                 Default {
                     #region Save a value as a number if possible
-                    if ($Number = ConvertTo-Number $_) {
+                    if (($Number = ConvertTo-Number $_) -ne $null) {
                         $TargetCell.Value = $Number
                         $targetCell.Style.Numberformat.Format = $Numberformat
                         Write-Verbose "Cell '$Row`:$ColumnIndex' header '$Name' add value '$($TargetCell.Value)' as number converted from '$_' with format '$Numberformat'"
-                    } 
+                    }
                     else {
                         $TargetCell.Value = $_
                         Write-Verbose "Cell '$Row`:$ColumnIndex' header '$Name' add value '$($TargetCell.Value)' as string"
@@ -342,7 +496,7 @@ Function Export-Excel {
             if ($TitleBackgroundColor -AND ($TitleFillPattern -ne 'None')) {
                 $ws.Cells[$Row, $StartColumn].Style.Fill.BackgroundColor.SetColor($TitleBackgroundColor)
             }
-            else {
+            elseif ($TitleBackgroundColor) {
                 Write-Warning "Title Background Color ignored. You must set the TitleFillPattern parameter to a value other than 'None'. Try 'Solid'."
             }
         }
@@ -359,9 +513,9 @@ Function Export-Excel {
 
             $R = $null
 
-            if ([Double]::TryParse([String]$Value,[System.Globalization.NumberStyles]::Any,
-                        [System.Globalization.NumberFormatInfo]::CurrentInfo, [Ref]$R)) {
-                $R        
+            if ([Double]::TryParse([String]$Value, [System.Globalization.NumberStyles]::Any,
+                    [System.Globalization.NumberFormatInfo]::CurrentInfo, [Ref]$R)) {
+                $R
             }
         }
 
@@ -374,52 +528,78 @@ Function Export-Excel {
             Get-Process excel -ErrorAction Ignore | Stop-Process
             while (Get-Process excel -ErrorAction Ignore) {}
         }
-
         Try {
             $script:Header = $null
-
+            if ($append -and $clearSheet) {throw "You can't use -Append AND -ClearSheet."}
             if ($KillExcel) {
                 Stop-ExcelProcess
             }
 
-            if ($Now) {
-                $Path = [System.IO.Path]::GetTempFileName() -replace '\.tmp','.xlsx'                
+            if ($PSBoundParameters.Keys.Count -eq 0 -Or $Now) {
+                $Path = [System.IO.Path]::GetTempFileName() -replace '\.tmp', '.xlsx'
                 $Show = $true
                 $AutoSize = $true
-                $AutoFilter = $true
+                if (!$TableName) {
+                    $AutoFilter = $true
+                }
             }
 
-            $Path = $ExecutionContext.SessionState.Path.GetUnresolvedProviderPathFromPSPath($Path)
+            if ($ExcelPackage) {
+                $pkg = $ExcelPackage
+                $Path = $pkg.File
+            }
+            Else {
+                $Path = $ExecutionContext.SessionState.Path.GetUnresolvedProviderPathFromPSPath($Path)
 
-            if (Test-Path $Path) {
-                Write-Debug "Path '$Path' already exists"
+                $targetPath = Split-Path $Path
+                if (!(Test-Path $targetPath)) {
+                    Write-Debug "Base path $($targetPath) does not exist, creating"
+                    $null = mkdir $targetPath -ErrorAction Ignore
+                }
+                elseif (Test-Path $Path) {
+                    Write-Debug "Path '$Path' already exists"
+                }
+
+                $pkg = New-Object OfficeOpenXml.ExcelPackage $Path
             }
 
-            $pkg = New-Object OfficeOpenXml.ExcelPackage $Path
-            $ws  = $pkg | Add-WorkSheet -WorkSheetname $WorkSheetname -NoClobber:$NoClobber
-
+            [OfficeOpenXml.ExcelWorksheet]$ws = $pkg | Add-WorkSheet -WorkSheetname $WorkSheetname -NoClobber:$NoClobber -ClearSheet:$ClearSheet  #Add worksheet doesn't take any action for -noClobber
             foreach ($format in $ConditionalFormat ) {
                 $target = "Add$($format.Formatter)"
                 $rule = ($ws.ConditionalFormatting).PSObject.Methods[$target].Invoke($format.Range, $format.IconType)
                 $rule.Reverse = $format.Reverse
             }
 
-            $Row = $StartRow
-
-            if ($Title) {
-                Add-Title
-
-                $Row += 1
+            if ($append) {
+                $headerRange = $ws.Dimension.Address -replace "\d+$", "1"
+                #if there is a title or anything else above the header row, specifying StartRow will skip it.
+                if ($StartRow -ne 1) {$headerRange = $headerRange -replace "1", "$StartRow"}
+                #$script:Header     = $ws.Cells[$headerrange].Value
+                #using a slightly odd syntax otherwise header ends up as a 2D array
+                $ws.Cells[$headerRange].Value | foreach -Begin {$Script:header = @()} -Process {$Script:header += $_ }
+                $row = $ws.Dimension.Rows
+                Write-Debug -Message ("Appending: headers are " + ($script:Header -join ", ") + "Start row $row")
             }
+            elseif ($Title) {
+                #Can only add a title if not appending
+                $Row = $StartRow
+                Add-Title
+                $Row ++ ; $startRow ++
+            }
+            else {
+                $Row = $StartRow
 
+            }
+            $ColumnIndex = $StartColumn
             $firstTimeThru = $true
             $isDataTypeValueType = $false
             $pattern = 'string|bool|byte|char|decimal|double|float|int|long|sbyte|short|uint|ulong|ushort'
-        } 
+        }
         Catch {
             if ($AlreadyExists) {
+                #Is this set anywhere ?
                 throw "Failed exporting worksheet '$WorkSheetname' to '$Path': The worksheet '$WorkSheetname' already exists."
-            } 
+            }
             else {
                 throw "Failed exporting worksheet '$WorkSheetname' to '$Path': $_"
             }
@@ -427,69 +607,76 @@ Function Export-Excel {
     }
 
     Process {
-        Try {
-            if ($firstTimeThru) {
-                $firstTimeThru = $false
-                $isDataTypeValueType = $TargetData.GetType().name -match $pattern
-                Write-Debug "DataTypeName is '$($TargetData.GetType().name)' isDataTypeValueType '$isDataTypeValueType'"
-            }
-
-            if ($isDataTypeValueType) {
-                $ColumnIndex = $StartColumn
-
-                Add-CellValue -TargetCell $ws.Cells[$Row, $ColumnIndex] -CellValue $TargetData
-
-                $ColumnIndex += 1
-                $Row += 1
-            } 
-            else {
-                #region Add headers
-                if (-not $script:Header) {
-                    $ColumnIndex = $StartColumn
-                    $script:Header = $TargetData.PSObject.Properties.Name
-
-                    if ($NoHeader) {
-                        # Don't push the headers to the spread sheet
-                        $Row -= 1
-                    } 
-                    else {
-                        foreach ($Name in $script:Header) {
-                            $ws.Cells[$Row, $ColumnIndex].Value = $Name
-                            Write-Verbose "Cell '$Row`:$ColumnIndex' add header '$Name'"
-                            $ColumnIndex += 1
-                        }
-                    }
+        if ($TargetData) {
+            Try {
+                if ($firstTimeThru) {
+                    $firstTimeThru = $false
+                    $isDataTypeValueType = $TargetData.GetType().name -match $pattern
+                    Write-Debug "DataTypeName is '$($TargetData.GetType().name)' isDataTypeValueType '$isDataTypeValueType'"
                 }
-                #endregion
 
-                $Row += 1
-                $ColumnIndex = $StartColumn
+                if ($isDataTypeValueType) {
+                    $ColumnIndex = $StartColumn
 
-                foreach ($Name in $script:Header) {
-                    #region Add non header values
-                    Add-CellValue -TargetCell $ws.Cells[$Row, $ColumnIndex] -CellValue $TargetData.$Name
+                    Add-CellValue -TargetCell $ws.Cells[$Row, $ColumnIndex] -CellValue $TargetData
 
                     $ColumnIndex += 1
+                    $Row += 1
+                }
+                else {
+                    #region Add headers
+                    if (-not $script:Header) {
+                        $ColumnIndex = $StartColumn
+                        $script:Header = $TargetData.PSObject.Properties.Name | Where-Object {$_ -notin $ExcludeProperty}
+
+                        if ($NoHeader) {
+                            # Don't push the headers to the spread sheet
+                            $Row -= 1
+                        }
+                        else {
+                            foreach ($Name in $script:Header) {
+                                $ws.Cells[$Row, $ColumnIndex].Value = $Name
+                                Write-Verbose "Cell '$Row`:$ColumnIndex' add header '$Name'"
+                                $ColumnIndex += 1
+                            }
+                        }
+                    }
                     #endregion
+
+                    $Row += 1
+                    $ColumnIndex = $StartColumn
+
+                    foreach ($Name in $script:Header) {
+                        #region Add non header values
+                        Add-CellValue -TargetCell $ws.Cells[$Row, $ColumnIndex] -CellValue $TargetData.$Name
+
+                        $ColumnIndex += 1
+                        #endregion
+                    }
                 }
             }
-       }
-        Catch {
-            throw "Failed exporting worksheet '$WorkSheetname' to '$Path': $_"
+            Catch {
+                throw "Failed exporting worksheet '$WorkSheetname' to '$Path': $_"
+            }
         }
     }
 
     End {
         Try {
             if ($AutoNameRange) {
-                $totalRows = $ws.Dimension.Rows
+                if (-not $script:header) {
+                    $headerRange = $ws.Dimension.Address -replace "\d+$", "1"
+                    #if there is a title or anything else above the header row, specifying StartRow will skip it.
+                    if ($StartRow -ne 1) {$headerRange = $headerRange -replace "1", "$StartRow"}
+                    #using a slightly odd syntax otherwise header ends up as a 2D array
+                    $ws.Cells[$headerRange].Value | foreach -Begin {$Script:header = @()} -Process {$Script:header += $_ }
+                }
+                $totalRows = $ws.Dimension.End.Row
                 $totalColumns = $ws.Dimension.Columns
-
-                foreach($c in 0..($totalColumns-1)) {
-                    $targetRangeName = "$($script:Header[$c])"                
-
-                    $targetColumn = $c+1
-                    $theCell = $ws.Cells[2,$targetColumn,$totalRows,$targetColumn ]
+                foreach ($c in 0..($totalColumns - 1)) {
+                    $targetRangeName = "$($script:Header[$c])"
+                    $targetColumn = $c + $StartColumn
+                    $theCell = $ws.Cells[($startrow + 1), $targetColumn, $totalRows , $targetColumn ]
                     $ws.Names.Add($targetRangeName, $theCell) | Out-Null
 
                     if ([OfficeOpenXml.FormulaParsing.ExcelUtilities.ExcelAddressUtil]::IsValidAddress($targetRangeName)) {
@@ -499,12 +686,12 @@ Function Export-Excel {
             }
 
             if ($Title) {
-                $startAddress = "A2"
+                $startAddress = $ws.Dimension.Start.address -replace "$($ws.Dimension.Start.row)`$", "$($ws.Dimension.Start.row + 1)"
             }
             else {
                 $startAddress = $ws.Dimension.Start.Address
             }
-            
+
             $dataRange = "{0}:{1}" -f $startAddress, $ws.Dimension.End.Address
 
             Write-Debug "Data Range '$dataRange'"
@@ -515,27 +702,113 @@ Function Export-Excel {
 
             if (-not [String]::IsNullOrEmpty($TableName)) {
                 $csr = $StartRow
-                if ($Title) {
-                    $csr += 1
-                }
+
                 $csc = $StartColumn
                 $cer = $ws.Dimension.End.Row
-                $cec = $script:Header.Count
+                $cec = $ws.Dimension.End.Column # was $script:Header.Count
 
-                $targetRange = $ws.Cells[$csr, $csc, $cer,$cec]
+                $targetRange = $ws.Cells[$csr, $csc, $cer, $cec]
+                #if we're appending data the table may already exist: but excel doesn't like the result if I put
+                # if ($ws.Tables[$TableName]) {$ws.Tables.Delete($TableName) }
                 $tbl = $ws.Tables.Add($targetRange, $TableName)
                 $tbl.TableStyle = $TableStyle
             }
+            
+            $PivotTableStartCell = "A1"
+            if($PivotFilter) {$PivotTableStartCell = "A3"}
 
-            if ($IncludePivotTable) {
+            if ($PivotTableDefinition) {
+                foreach ($item in $PivotTableDefinition.GetEnumerator()) {
+                    $targetName = $item.Key
+                    $pivotTableName = $targetName #+ 'PivotTable'
+                    #Make sure the Pivot table sheet doesn't already exist
+                    try {     $pkg.Workbook.Worksheets.Delete(    $pivotTableName) } catch {}
+                    $wsPivot = $pkg | Add-WorkSheet -WorkSheetname $pivotTableName -NoClobber:$NoClobber
+                    $pivotTableDataName = $targetName + 'PivotTableData'
+
+                    if (!$item.Value.SourceWorkSheet) {
+                        $pivotTable = $wsPivot.PivotTables.Add($wsPivot.Cells[$PivotTableStartCell], $ws.Cells[$dataRange], $pivotTableDataName)
+                    }
+                    else {
+                        $workSheet = Find-WorkSheet $item.Value.SourceWorkSheet
+
+                        if ($workSheet) {
+                            $targetStartAddress = $workSheet.Dimension.Start.Address
+                            $targetDataRange = "{0}:{1}" -f $targetStartAddress, $workSheet.Dimension.End.Address
+
+                            $pivotTable = $wsPivot.PivotTables.Add($wsPivot.Cells[$PivotTableStartCell], $workSheet.Cells[$targetDataRange], $pivotTableDataName)
+                        }
+                    }
+
+                    switch ($item.Value.Keys) {
+                        "PivotRows" {
+                            foreach ($Row in $item.Value.PivotRows) {
+                                $null = $pivotTable.RowFields.Add($pivotTable.Fields[$Row])
+                            }
+                        }
+
+                        "PivotColumns" {
+                            foreach ($Column in $item.Value.PivotColumns) {
+                                $null = $pivotTable.ColumnFields.Add($pivotTable.Fields[$Column])
+                            }
+                        }
+
+                        "PivotData" {
+                            $pivotData = $item.Value.PivotData
+                            if ($PivotData -is [HashTable] -or $PivotData -is [System.Collections.Specialized.OrderedDictionary]) {
+                                $PivotData.Keys | ForEach-Object {
+                                    $df = $pivotTable.DataFields.Add($pivotTable.Fields[$_])
+                                    $df.Function = $PivotData.$_
+                                }
+                            }
+                            else {
+                                foreach ($Item in $PivotData) {
+                                    $df = $pivotTable.DataFields.Add($pivotTable.Fields[$Item])
+                                    $df.Function = 'Count'
+                                }
+                            }
+
+                            if ($PivotDataToColumn) {
+                                $pivotTable.DataOnRows = $false
+                            }
+                        }
+
+                        "IncludePivotChart" {
+                            $ChartType = "Pie"
+                            if ($item.Value.ChartType) {
+                                $ChartType = $item.Value.ChartType
+                            }
+
+                            $chart = $wsPivot.Drawings.AddChart('PivotChart', $ChartType, $pivotTable)
+                            $chart.SetPosition(0, 0, 4, 0)  #Changed position to top row, next to a chart which doesn't pivot on columns
+                            $chart.SetSize(600, 400)
+                            if ($chart.DataLabel) {
+                                $chart.DataLabel.ShowCategory = [boolean]$item.value.ShowCategory
+                                $chart.DataLabel.ShowPercent = [boolean]$item.value.ShowPercent
+                            }
+                            if ([boolean]$item.value.NoLegend) {$chart.Legend.Remove()}
+                            if ($item.value.ChartTitle) {$chart.Title.Text = $item.value.chartTitle}
+                        }
+                    }
+
+                    if($item.Value.NoTotalsInPivot) {
+                        $pivotTable.RowGrandTotals = $false
+                    }
+                }
+            }
+
+            if ($IncludePivotTable -or $IncludePivotChart) {
+                #changed so -includePivotChart Implies -includePivotTable.
                 $pivotTableName = $WorkSheetname + 'PivotTable'
+                #Make sure the Pivot table sheet doesn't already exist
+                try {     $pkg.Workbook.Worksheets.Delete(    $pivotTableName) } catch {}
                 $wsPivot = $pkg | Add-WorkSheet -WorkSheetname $pivotTableName -NoClobber:$NoClobber
 
                 $wsPivot.View.TabSelected = $true
 
-                $pivotTableDataName=$WorkSheetname + 'PivotTableData'
+                $pivotTableDataName = $WorkSheetname + 'PivotTableData'
 
-                $pivotTable = $wsPivot.PivotTables.Add($wsPivot.Cells['A1'], $ws.Cells[$dataRange], $pivotTableDataName)
+                $pivotTable = $wsPivot.PivotTables.Add($wsPivot.Cells[$PivotTableStartCell], $ws.Cells[$dataRange], $pivotTableDataName)
 
                 if ($PivotRows) {
                     foreach ($Row in $PivotRows) {
@@ -567,48 +840,60 @@ Function Export-Excel {
                     }
                 }
 
+                if($NoTotalsInPivot) {
+                    $pivotTable.RowGrandTotals = $false
+                }
+
                 if ($IncludePivotChart) {
                     $chart = $wsPivot.Drawings.AddChart('PivotChart', $ChartType, $pivotTable)
-                    $chart.DataLabel.ShowCategory = $ShowCategory
-                    $chart.DataLabel.ShowPercent = $ShowPercent
-
+                    if ($chart.DataLabel) {
+                        $chart.DataLabel.ShowCategory = $ShowCategory
+                        $chart.DataLabel.ShowPercent  = $ShowPercent
+                    }
+                    $chart.SetPosition(0, 26, 2, 26)  # if Pivot table is rows+data only it will be 2 columns wide if has pivot columns we don't know how wide it will be
                     if ($NoLegend) {
                         $chart.Legend.Remove()
                     }
 
-                    $chart.SetPosition(1, 0, 6, 0)
-                    $chart.SetSize(600, 400)
                 }
             }
 
+            if($pivotTable -and $PivotFilter) {
+
+                foreach($pFilter in $PivotFilter) {
+                    $null = $pivotTable.PageFields.Add($pivotTable.Fields[$pFilter])
+                }
+            }
+
+
             if ($Password) {
                 $ws.Protection.SetPassword($Password)
             }
 
             if ($AutoFilter) {
-                $ws.Cells[$dataRange].AutoFilter=$true
+                $ws.Cells[$dataRange].AutoFilter = $true
             }
 
             if ($FreezeTopRow) {
-                $ws.View.FreezePanes(2,1)
+                $ws.View.FreezePanes(2, 1)
             }
 
             if ($FreezeTopRowFirstColumn) {
-                $ws.View.FreezePanes(2,2)
+                $ws.View.FreezePanes(2, 2)
             }
 
             if ($FreezeFirstColumn) {
-                $ws.View.FreezePanes(1,2)
+                $ws.View.FreezePanes(1, 2)
             }
 
             if ($FreezePane) {
-                $freezeRow,$freezeColumn=$FreezePane
+                $freezeRow, $freezeColumn = $FreezePane
                 if (-not $freezeColumn -or $freezeColumn -eq 0) {
-                    $freezeColumn=1
+                    $freezeColumn = 1
                 }
 
                 if ($freezeRow -gt 1) {
-                    $ws.View.FreezePanes($freezeRow,$freezeColumn)
+                    $ws.View.FreezePanes($freezeRow, $freezeColumn)
                 }
             }
             if ($BoldTopRow) {
@@ -629,42 +914,43 @@ Function Export-Excel {
                 $pkg.Workbook.WorkSheets[$Sheet].Hidden = 'Hidden'
             }
 
-            $chartCount=0
+            $chartCount = 0
             foreach ($chartDef in $ExcelChartDefinition) {
-                $ChartName = 'Chart' + (Split-Path -Leaf ([System.IO.path]::GetTempFileName())) -replace 'tmp|\.',''
+                $ChartName = 'Chart' + (Split-Path -Leaf ([System.IO.path]::GetTempFileName())) -replace 'tmp|\.', ''
                 $chart = $ws.Drawings.AddChart($ChartName, $chartDef.ChartType)
                 $chart.Title.Text = $chartDef.Title
 
                 if ($chartDef.NoLegend) {
                     $chart.Legend.Remove()
                 }
-            
+
                 if ($chart.Datalabel -ne $null) {
-                    $chart.Datalabel.ShowCategory  = $chartDef.ShowCategory
-                    $chart.Datalabel.ShowPercent   = $chartDef.ShowPercent
+                    $chart.Datalabel.ShowCategory = $chartDef.ShowCategory
+                    $chart.Datalabel.ShowPercent = $chartDef.ShowPercent
                 }
 
-                $chart.SetPosition($chartDef.Row, $chartDef.RowOffsetPixels,$chartDef.Column, $chartDef.ColumnOffsetPixels)
+                $chart.SetPosition($chartDef.Row, $chartDef.RowOffsetPixels, $chartDef.Column, $chartDef.ColumnOffsetPixels)
                 $chart.SetSize($chartDef.Width, $chartDef.Height)
 
                 $chartDefCount = @($chartDef.YRange).Count
                 if ($chartDefCount -eq 1) {
-                    $Series=$chart.Series.Add($chartDef.YRange, $chartDef.XRange)
-                
-                    $SeriesHeader=$chartDef.SeriesHeader
+                    $Series = $chart.Series.Add($chartDef.YRange, $chartDef.XRange)
+
+                    $SeriesHeader = $chartDef.SeriesHeader
                     if (-not $SeriesHeader) {
                         $SeriesHeader = 'Series 1'
                     }
 
                     $Series.Header = $SeriesHeader
-                } else {
-                    for($idx = 0; $idx -lt $chartDefCount; $idx += 1) {
-                        $Series=$chart.Series.Add($chartDef.YRange[$idx], $chartDef.XRange)                    
+                }
+                else {
+                    for ($idx = 0; $idx -lt $chartDefCount; $idx += 1) {
+                        $Series = $chart.Series.Add($chartDef.YRange[$idx], $chartDef.XRange)
 
                         if ($chartDef.SeriesHeader.Count -gt 0) {
                             $SeriesHeader = $chartDef.SeriesHeader[$idx]
                         }
-                    
+
                         if (-not $SeriesHeader) {
                             $SeriesHeader = "Series $($idx)"
                         }
@@ -679,14 +965,14 @@ Function Export-Excel {
                 foreach ($targetConditionalText in $ConditionalText) {
                     $target = "Add$($targetConditionalText.ConditionalType)"
 
-                    $Range=$targetConditionalText.Range
+                    $Range = $targetConditionalText.Range
                     if (-not $Range) {
                         $Range = $ws.Dimension.Address
                     }
 
-                    $rule=($ws.Cells[$Range].ConditionalFormatting).PSObject.Methods[$target].Invoke()
+                    $rule = ($ws.Cells[$Range].ConditionalFormatting).PSObject.Methods[$target].Invoke()
 
-                    if ($targetConditionalText.Text) {                
+                    if ($targetConditionalText.Text) {
                         if ($targetConditionalText.ConditionalType -match 'equal|notequal|lessthan|lessthanorequal|greaterthan|greaterthanorequal') {
                             $rule.Formula = $targetConditionalText.Text
                         }
@@ -709,9 +995,32 @@ Function Export-Excel {
 
             if ($PassThru) {
                 $pkg
-            } 
+            }
             else {
+                if ($ReturnRange) {
+                    $ws.Dimension.Address
+                }
+
+
+
                 $pkg.Save()
+
+                if ($ReZip) {
+                    write-verbose "Re-Zipping $($pkg.file) using .NET ZIP library"
+                    $zipAssembly = "System.IO.Compression.Filesystem"
+                    try {
+                        Add-Type -assembly $zipAssembly -ErrorAction stop
+                    } catch {
+                        write-error "The -ReZip parameter requires .NET Framework 4.5 or later to be installed. Recommend to install Powershell v4+"
+                        continue
+                    }
+                    
+                    $TempZipPath = Join-Path -path ([System.IO.Path]::GetTempPath()) -ChildPath ([System.IO.Path]::GetRandomFileName())
+                    [io.compression.zipfile]::ExtractToDirectory($pkg.File,$TempZipPath) | Out-Null
+                    Remove-Item $pkg.File -Force
+                    [io.compression.zipfile]::CreateFromDirectory($TempZipPath,$pkg.File) | Out-Null
+                }
+
                 $pkg.Dispose()
 
                 if ($Show) {
@@ -724,3 +1033,27 @@ Function Export-Excel {
         }
     }
 }
+
+function New-PivotTableDefinition {
+    param(
+        [Parameter(Mandatory)]
+        [Alias("PivtoTableName")]#Previous typo - use alias to avoid breaking scripts
+        $PivotTableName,
+        $SourceWorkSheet,
+        $PivotRows,
+        [hashtable]$PivotData,
+        $PivotColumns,
+        [Switch]$IncludePivotChart,
+        [OfficeOpenXml.Drawing.Chart.eChartType]$ChartType = 'Pie',
+        [Switch]$NoLegend,
+        [Switch]$ShowCategory,
+        [Switch]$ShowPercent,
+        [String]$ChartTitle,
+        [Switch]$NoTotalsInPivot
+    )
+
+    $parameters = @{} + $PSBoundParameters
+    $parameters.Remove('PivotTableName')
+
+    @{$PivotTableName = $parameters}
+}

Export-charts.ps1

@@ -0,0 +1,51 @@
+<#
+    .Synopsis
+        Exports the charts in an Excel spreadSheet 
+    .Example
+        Export-Charts .\test,xlsx
+        Exports the charts in test.xlsx to JPEG files in the current directory.
+
+    .Example
+        Export-Charts -path  .\test,xlsx  -destination [System.Environment+SpecialFolder]::MyDocuments -outputType PNG -passthrough 
+        Exports the charts to PNG files in MyDocuments , and returns file objects representing the newly created files 
+
+#>
+Param (
+    #Path to the Excel file whose chars we will export.  
+    $Path          = "C:\Users\public\Documents\stats.xlsx", 
+    #If specified, output file objects representing the image files.  
+    [switch]$passthru, 
+    #Format to write - JPG by default 
+    [ValidateSet("JPG","PNG","GIF")]
+    $OutputType = "JPG", 
+    #Folder to write image files to (defaults to same one as the Excel file is in) 
+    $Destination
+)
+
+#if no output folder was specified, set destination to the folder where the Excel file came from 
+if (-not $Destination) {$Destination = Split-Path -Path $path -Parent } 
+
+#Call up Excel and tell it to open the file. 
+try   { $excelApp      = New-Object -ComObject "Excel.Application" } 
+catch { Write-Warning "Could not start Excel application - which usually means it is not installed."  ; return } 
+
+try   { $excelWorkBook = $excelApp.Workbooks.Open($path) } 
+catch { Write-Warning "Could not start Excel application - which usually means it is not installed."  ; return } 
+
+
+#For each worksheet, for each chart, jump to the chart, create a filename of "WorksheetName_ChartTitle.jpg", and export the file. 
+foreach ($excelWorkSheet in $excelWorkBook.Worksheets) {
+    #note somewhat unusual way of telling excel we want all the charts. 
+    foreach ($excelchart in $excelWorkSheet.ChartObjects([System.Type]::Missing))  {
+        #if you don't go to the chart the image will be zero size ! 
+        $excelApp.Goto($excelchart.TopLeftCell,$true)
+        $imagePath  = Join-Path -Path $Destination -ChildPath ($excelWorkSheet.Name + "_" + ($excelchart.Chart.ChartTitle.Text -split "\s\d\d:\d\d,")[0] + ".$OutputType")
+        if ( $excelchart.Chart.Export($imagePath, $OutputType, $false) ) {  # Export returs true/false for success/failure 
+            if ($passThru) {Get-Item -Path $imagePath }                     # when succesful return a file object (-passthru) or print a verbose message, write warning for any failures 
+            else {Write-Verbose -Message "Exported $imagePath"}
+        } 
+        else     {Write-Warning -Message "Failure exporting $imagePath" } 
+    }
+}
+
+$excelApp.Quit()

GetExcelTable.ps1

@@ -0,0 +1,104 @@
+Function Get-ExcelTableName {
+    Param (
+        $Path,
+        $WorksheetName
+    )
+
+    $Path = (Resolve-Path $Path).ProviderPath
+    $Stream = New-Object -TypeName System.IO.FileStream -ArgumentList $Path, 'Open', 'Read', 'ReadWrite'
+
+    $Excel = New-Object -TypeName OfficeOpenXml.ExcelPackage -ArgumentList $Stream
+
+    if ($WorksheetName) {
+        $Worksheet = $Excel.Workbook.Worksheets[$WorkSheetName]
+    } else {
+        $Worksheet = $Excel.Workbook.Worksheets | Select-Object -First 1
+    }
+
+    foreach($TableName in $Worksheet.Tables.Name) {
+        [PSCustomObject][Ordered]@{
+            WorksheetName=$Worksheet.Name
+            TableName=$TableName
+        }
+    }
+
+    $Stream.Close()
+    $Stream.Dispose()
+    $Excel.Dispose()
+    $Excel = $null    
+}
+
+Function Get-ExcelTable {
+    Param (
+        $Path,
+        $TableName,
+        $WorksheetName
+    )
+
+    $Path = (Resolve-Path $Path).ProviderPath
+    $Stream = New-Object -TypeName System.IO.FileStream -ArgumentList $Path, 'Open', 'Read', 'ReadWrite'
+
+    $Excel = New-Object -TypeName OfficeOpenXml.ExcelPackage -ArgumentList $Stream
+
+    if ($WorksheetName) {
+        $Worksheet = $Excel.Workbook.Worksheets[$WorkSheetName]
+    } else {
+        $Worksheet = $Excel.Workbook.Worksheets | Select-Object -First 1
+    }
+
+    if($TableName) {
+        $Table = $Worksheet.Tables[$TableName]
+    } else {
+        $Table = $Worksheet.Tables | Select-Object -First 1
+    }
+
+    $rowCount = $Table.Address.Rows
+    $colCount = $Table.Address.Columns
+
+    $digits = "0123456789".ToCharArray()
+
+    $start, $end=$Table.Address.Address.Split(':')
+
+    $pos=$start.IndexOfAny($digits)
+    [int]$startCol=ConvertFrom-ExcelColumnName $start.Substring(0,$pos)
+    [int]$startRow=$start.Substring($pos)
+
+    $propertyNames = for($col=$startCol; $col -lt ($startCol+$colCount); $col+= 1) {
+        $Worksheet.Cells[$startRow, $col].value
+    }
+    
+    $startRow++
+    for($row=$startRow; $row -lt ($startRow+$rowCount); $row += 1) {
+        $nr=[ordered]@{}
+        $c=0
+        for($col=$startCol; $col -lt ($startCol+$colCount); $col+= 1) {
+            $nr.($propertyNames[$c]) = $Worksheet.Cells[$row, $col].value
+            $c++
+        }
+        [pscustomobject]$nr
+    }
+
+    $Stream.Close()
+    $Stream.Dispose()
+    $Excel.Dispose()
+    $Excel = $null
+}
+
+function ConvertFrom-ExcelColumnName {
+    param($columnName)
+
+    $sum=0
+    $columnName.ToCharArray() |
+        ForEach {
+            $sum*=26
+            $sum+=[char]$_.tostring().toupper()-[char]'A'+1
+        } 
+    $sum
+}
+
+cls
+
+ipmo .\ImportExcel.psd1 -Force
+
+#Get-ExcelTableName .\testTable.xlsx | Get-ExcelTable .\testTable.xlsx 
+Get-ExcelTable .\testTable.xlsx Table3

ImportExcel.Tests.ps1

@@ -2070,4 +2070,15 @@ Context 'special cases' {
             }
         }
     }
+}
+
+Context 'General Tests' {
+    in $TestDrive {
+        Describe 'Get Help' {
+            it 'New-Plot' {
+                #Get-Help : Unable to find type [PSPlot].
+                {Help New-Plot} | Should -Not -Throw
+            }
+        }
+    }
 }

ImportExcel.psd1

@@ -4,7 +4,7 @@
 RootModule = 'ImportExcel.psm1'
 
 # Version number of this module.
-ModuleVersion = '4.0.2'
+ModuleVersion = '4.0.13'
 
 # ID used to uniquely identify this module
 GUID = '60dd4136-feff-401a-ba27-a84458c57ede'
@@ -19,7 +19,10 @@ CompanyName = 'Doug Finke'
 Copyright = 'c 2015 All rights reserved.'
 
 # Description of the functionality provided by this module
-Description = 'PowerShell module to import/export Excel spreadsheets, without Excel'
+    Description   = @'
+PowerShell module to import/export Excel spreadsheets, without Excel.
+Check out the How To Videos https://www.youtube.com/watch?v=U3Ne_yX4tYo&list=PL5uoqS92stXioZw-u-ze_NtvSo0k0K0kq
+'@
 
 # Minimum version of the Windows PowerShell engine required by this module
 # PowerShellVersion = ''

ImportExcel.psm1

@@ -1,6 +1,8 @@
-Add-Type -Path "$($PSScriptRoot)\EPPlus.dll"
+Add-Type -Path "$($PSScriptRoot)\EPPlus.dll"
 
+. $PSScriptRoot\AddConditionalFormatting.ps1
 . $PSScriptRoot\Charting.ps1
+. $PSScriptRoot\ColorCompletion.ps1
 . $PSScriptRoot\ConvertFromExcelData.ps1
 . $PSScriptRoot\ConvertFromExcelToSQLInsert.ps1
 . $PSScriptRoot\ConvertToExcelXlsx.ps1
@@ -20,17 +22,23 @@ Add-Type -Path "$($PSScriptRoot)\EPPlus.dll"
 . $PSScriptRoot\New-ConditionalText.ps1
 . $PSScriptRoot\New-ExcelChart.ps1
 . $PSScriptRoot\New-PSItem.ps1
+. $PSScriptRoot\Open-ExcelPackage.ps1
 . $PSScriptRoot\Pivot.ps1
+. $PSScriptRoot\Send-SQLDataToExcel.ps1
 . $PSScriptRoot\Set-CellStyle.ps1
+. $PSScriptRoot\Set-Column.ps1
+. $PSScriptRoot\Set-Row.ps1
+. $PSScriptRoot\SetFormat.ps1
 . $PSScriptRoot\TrackingUtils.ps1
 . $PSScriptRoot\Update-FirstObjectProperties.ps1
+. $PSScriptRoot\ConvertExcelToImageFile.ps1
 
+New-Alias -Name Use-ExcelData -Value "ConvertFrom-ExcelData" -Force
 
 if ($PSVersionTable.PSVersion.Major -ge 5) {
     . $PSScriptRoot\Plot.ps1
 
     Function New-Plot {
-        [OutputType([PSPlot])]
         Param()
 
         [PSPlot]::new()
@@ -46,25 +54,25 @@ Function Import-Excel {
      <#
     .SYNOPSIS
         Create custom objects from the rows in an Excel worksheet.
- 
-    .DESCRIPTION 
-        The Import-Excel cmdlet creates custom objects from the rows in an Excel worksheet. Each row represents one object. All of this is possible without installing Microsoft Excel and by using the .NET library <EFBFBD>EPPLus.dll<EFBFBD>.
+
+    .DESCRIPTION
+        The Import-Excel cmdlet creates custom objects from the rows in an Excel worksheet. Each row represents one object. All of this is possible without installing Microsoft Excel and by using the .NET library ‘EPPLus.dll’.
 
         By default, the property names of the objects are retrieved from the column headers. Because an object cannot have a blanc property name, only columns with column headers will be imported.
 
-        If the default behavior is not desired and you want to import the complete worksheet <EFBFBD>as is<EFBFBD>, the parameter <EFBFBD>-NoHeader<EFBFBD> can be used. In case you want to provide your own property names, you can use the parameter <EFBFBD>-HeaderName<EFBFBD>. 
+        If the default behavior is not desired and you want to import the complete worksheet ‘as is’, the parameter ‘-NoHeader’ can be used. In case you want to provide your own property names, you can use the parameter ‘-HeaderName’.
 
-    .PARAMETER Path 
+    .PARAMETER Path
         Specifies the path to the Excel file.
- 
+
     .PARAMETER WorksheetName
-        Specifies the name of the worksheet in the Excel workbook to import. By default, if no name is provided, the first worksheet will be imported.        
+        Specifies the name of the worksheet in the Excel workbook to import. By default, if no name is provided, the first worksheet will be imported.
 
     .PARAMETER DataOnly
         Import only rows and columns that contain data, empty rows and empty columns are not imported.
 
     .PARAMETER HeaderName
-        Specifies custom property names to use, instead of the values defined in the column headers of the TopRow. 
+        Specifies custom property names to use, instead of the values defined in the column headers of the TopRow.
 
         In case you provide less header names than there is data in the worksheet, then only the data with a corresponding header name will be imported and the data without header name will be disregarded.
 
@@ -73,18 +81,18 @@ Function Import-Excel {
     .PARAMETER NoHeader
         Automatically generate property names (P1, P2, P3, ..) instead of the ones defined in the column headers of the TopRow.
 
-        This switch is best used when you want to import the complete worksheet <EFBFBD>as is<EFBFBD> and are not concerned with the property names.
+        This switch is best used when you want to import the complete worksheet ‘as is’ and are not concerned with the property names.
 
     .PARAMETER StartRow
-        The row from where we start to import data, all rows above the StartRow are disregarded. By default this is the first row. 
+        The row from where we start to import data, all rows above the StartRow are disregarded. By default this is the first row.
 
-        When the parameters <EFBFBD>-NoHeader<EFBFBD> and <EFBFBD>-HeaderName<EFBFBD> are not provided, this row will contain the column headers that will be used as property names. When one of both parameters are provided, the property names are automatically created and this row will be treated as a regular row containing data.
+        When the parameters ‘-NoHeader’ and ‘-HeaderName’ are not provided, this row will contain the column headers that will be used as property names. When one of both parameters are provided, the property names are automatically created and this row will be treated as a regular row containing data.
 
     .PARAMETER Password
         Accepts a string that will be used to open a password protected Excel file.
 
     .EXAMPLE
-        Import data from an Excel worksheet. One object is created for each row. The property names of the objects consist of the column names defined in the first row. In case a column doesn<EFBFBD>t have a column header (usually in row 1 when <EFBFBD>-StartRow<EFBFBD> is not used), then the unnamed columns will be skipped and the data in those columns will not be imported.
+        Import data from an Excel worksheet. One object is created for each row. The property names of the objects consist of the column names defined in the first row. In case a column doesn’t have a column header (usually in row 1 when ‘-StartRow’ is not used), then the unnamed columns will be skipped and the data in those columns will not be imported.
 
         ----------------------------------------------
         | File: Movies.xlsx     -      Sheet: Actors |
@@ -96,7 +104,7 @@ Function Import-Excel {
         ----------------------------------------------
 
         PS C:\> Import-Excel -Path 'C:\Movies.xlsx' -WorkSheetname Actors
- 
+
         First Name: Chuck
         Address   : California
 
@@ -106,7 +114,7 @@ Function Import-Excel {
         Notice that column 'B' is not imported because there's no value in cell 'B1' that can be used as property name for the objects.
 
     .EXAMPLE
-        Import the complete Excel worksheet <EFBFBD>as is<EFBFBD> by using the <EFBFBD>-NoHeader<EFBFBD> switch. One object is created for each row. The property names of the objects will be automatically generated (P1, P2, P3, ..).
+        Import the complete Excel worksheet ‘as is’ by using the ‘-NoHeader’ switch. One object is created for each row. The property names of the objects will be automatically generated (P1, P2, P3, ..).
 
         ----------------------------------------------
         | File: Movies.xlsx     -      Sheet: Actors |
@@ -118,23 +126,23 @@ Function Import-Excel {
         ----------------------------------------------
 
         PS C:\> Import-Excel -Path 'C:\Movies.xlsx' -WorkSheetname Actors -NoHeader
- 
+
         P1: First Name
-        P2: 
+        P2:
         P3: Address
-    
+
         P1: Chuck
         P2: Norris
         P3: California
-    
+
         P1: Jean-Claude
         P2: Vandamme
         P3: Brussels
 
         Notice that the column header (row 1) is imported as an object too.
- 
+
      .EXAMPLE
-        Import data from an Excel worksheet. One object is created for each row. The property names of the objects consist of the names defined in the parameter <EFBFBD>-HeaderName<EFBFBD>. The properties are named starting from the most left column (A) to the right. In case no value is present in one of the columns, that property will have an empty value.
+        Import data from an Excel worksheet. One object is created for each row. The property names of the objects consist of the names defined in the parameter ‘-HeaderName’. The properties are named starting from the most left column (A) to the right. In case no value is present in one of the columns, that property will have an empty value.
 
         ----------------------------------------------------------
         | File: Movies.xlsx            -           Sheet: Movies |
@@ -147,7 +155,7 @@ Function Import-Excel {
         ----------------------------------------------------------
 
         PS C:\> Import-Excel -Path 'C:\Movies.xlsx' -WorkSheetname Movies -HeaderName 'Movie name', 'Year', 'Rating', 'Genre'
- 
+
         Movie name: The Bodyguard
         Year      : 1992
         Rating    : 9
@@ -169,9 +177,9 @@ Function Import-Excel {
         Genre     :
 
         Notice that empty rows are imported and that data for the property 'Genre' is not present in the worksheet. As such, the 'Genre' property will be blanc for all objects.
-        
+
      .EXAMPLE
-        Import data from an Excel worksheet. One object is created for each row. The property names of the objects are automatically generated by using the switch <EFBFBD>-NoHeader<EFBFBD> (P1, P@, P#, ..). The switch <EFBFBD>-DataOnly<EFBFBD> will speed up the import because empty rows and empty columns are not imported.
+        Import data from an Excel worksheet. One object is created for each row. The property names of the objects are automatically generated by using the switch ‘-NoHeader’ (P1, P@, P#, ..). The switch ‘-DataOnly’ will speed up the import because empty rows and empty columns are not imported.
 
         ----------------------------------------------------------
         | File: Movies.xlsx            -           Sheet: Movies |
@@ -183,12 +191,12 @@ Function Import-Excel {
         |4     Skyfall         2012           9                  |
         ----------------------------------------------------------
 
-        PS C:\> Import-Excel -Path 'C:\Movies.xlsx' -WorkSheetname Movies <EFBFBD>NoHeader -DataOnly
- 
+        PS C:\> Import-Excel -Path 'C:\Movies.xlsx' -WorkSheetname Movies –NoHeader -DataOnly
+
         P1: The Bodyguard
         P2: 1992
         P3: 9
-        
+
         P1: The Matrix
         P2: 1999
         P3: 8
@@ -200,7 +208,7 @@ Function Import-Excel {
         Notice that empty rows and empty columns are not imported.
 
  .EXAMPLE
-        Import data from an Excel worksheet. One object is created for each row. The property names are provided with the <EFBFBD>-HeaderName<EFBFBD> parameter. The import will start from row 2 and empty columns and rows are not imported.
+        Import data from an Excel worksheet. One object is created for each row. The property names are provided with the ‘-HeaderName’ parameter. The import will start from row 2 and empty columns and rows are not imported.
 
         ----------------------------------------------------------
         | File: Movies.xlsx            -           Sheet: Actors |
@@ -211,14 +219,14 @@ Function Import-Excel {
         |3     Jean-Claude               Vandamme     Brussels   |
         ----------------------------------------------------------
 
-        PS C:\> Import-Excel -Path 'C:\Movies.xlsx' -WorkSheetname Actors -DataOnly -HeaderName 'FirstName', 'SecondName', 'City' <EFBFBD>StartRow 2
-         
+        PS C:\> Import-Excel -Path 'C:\Movies.xlsx' -WorkSheetname Actors -DataOnly -HeaderName 'FirstName', 'SecondName', 'City' –StartRow 2
+
         FirstName : Jean-Claude
         SecondName: Vandamme
         City      : Brussels
 
-        Notice that only 1 object is imported with only 3 properties. Column B and row 2 are empty and have been disregarded by using the switch '-DataOnly'. The property names have been named with the values provided with the parameter '-HeaderName'. Row number 1 with <EFBFBD>Chuck Norris<EFBFBD> has not been imported, because we started the import from row 2 with the parameter <EFBFBD>-StartRow 2<EFBFBD>.
-            
+        Notice that only 1 object is imported with only 3 properties. Column B and row 2 are empty and have been disregarded by using the switch '-DataOnly'. The property names have been named with the values provided with the parameter '-HeaderName'. Row number 1 with ‘Chuck Norris’ has not been imported, because we started the import from row 2 with the parameter ‘-StartRow 2’.
+
     .LINK
         https://github.com/dfinke/ImportExcel
 
@@ -229,7 +237,7 @@ Function Import-Excel {
     Param (
         [Alias('FullName')]
         [Parameter(ValueFromPipelineByPropertyName, ValueFromPipeline, Position=0, Mandatory)]
-        [ValidateScript({(Test-Path -Path $_ -PathType Leaf) -and ($_ -match '.xls$|.xlsx$')})]
+        [ValidateScript( {(Test-Path -Path $_ -PathType Leaf) -and ($_ -match '.xls$|.xlsx$|.xlsm$')})]
         [String]$Path,
         [Alias('Sheet')]
         [Parameter(Position=1)]
@@ -259,9 +267,9 @@ Function Import-Excel {
                 [String]$Name,
                 $Value
             )
-            
+
             Try {
-                $NewRow.$Name = $Value            
+                $NewRow.$Name = $Value
                 Write-Verbose "Import cell '$($Worksheet.Cells[$R, $P.Column].Address)' with property name '$Name' and value '$Value'"
             }
             Catch {
@@ -281,7 +289,7 @@ Function Import-Excel {
                 [Parameter(Mandatory)]
                 [Int]$StartRow
             )
-            
+
             Try {
                 if ($NoHeader) {
                     $i = 0
@@ -346,7 +354,7 @@ Function Import-Excel {
                 $Worksheet = $Excel.Workbook.Worksheets | Select-Object -First 1
             }
             #endregion
-            
+
             #region Set the top row
             if (((-not ($NoHeader -or $HeaderName)) -and ($StartRow -eq 0))) {
                 $StartRow = 1
@@ -385,7 +393,7 @@ Function Import-Excel {
 
                 #region Filter out rows with data in columns that don't have a column header
                 if ($DataOnly -and (-not $NoHeader)) {
-                    $Rows = $CellsWithValues.Start | where {$PropertyNames.Column -contains $_.Column} | 
+                    $Rows = $CellsWithValues.Start | where {$PropertyNames.Column -contains $_.Column} |
                         Sort-Object Row -Unique | Select-Object -ExpandProperty Row
                 }
                 #endregion
@@ -408,7 +416,7 @@ Function Import-Excel {
                         foreach ($P in $PropertyNames) {
                             Add-Property -Name $P.Value -Value $Worksheet.Cells[$R, $P.Column].Value
                         }
-                    
+
                         [PSCustomObject]$NewRow
                     }
                     #endregion
@@ -434,11 +442,12 @@ function Add-WorkSheet {
         [OfficeOpenXml.ExcelPackage] $ExcelPackage,
         [Parameter(Mandatory=$true)]
         [string] $WorkSheetname,
+        [switch] $ClearSheet,
         [Switch] $NoClobber
     )
 
     $ws = $ExcelPackage.Workbook.Worksheets[$WorkSheetname]
-
+    if($ClearSheet -and $ws) {$ExcelPackage.Workbook.Worksheets.Delete($WorkSheetname) ; $ws = $null }
     if(!$ws) {
         Write-Verbose "Add worksheet '$WorkSheetname'"
         $ws=$ExcelPackage.Workbook.Worksheets.Add($WorkSheetname)

Install.ps1

@@ -20,14 +20,19 @@ Begin {
         Write-Verbose "$ModuleName module installation started"
 
         $Files = @(
+            'AddConditionalFormatting.ps1',
             'Charting.ps1',
+            'ColorCompletion.ps1',
             'ConvertFromExcelData.ps1',
             'ConvertFromExcelToSQLInsert.ps1',
+            'ConvertExcelToImageFile.ps1',
             'ConvertToExcelXlsx.ps1',
             'Copy-ExcelWorkSheet.ps1',
             'EPPlus.dll',
+            'Export-charts.ps1',
             'Export-Excel.ps1',
             'Export-ExcelSheet.ps1',
+            'formatting.ps1',
             'Get-ExcelColumnName.ps1',
             'Get-ExcelSheetInfo.ps1',
             'Get-ExcelWorkbookInfo.ps1',
@@ -43,9 +48,14 @@ Begin {
             'New-ConditionalText.ps1',
             'New-ExcelChart.ps1',
             'New-PSItem.ps1',
+            'Open-ExcelPackage.ps1',
             'Pivot.ps1',
-            'Plot.ps1',
+            'plot.ps1',
+            'Send-SqlDataToExcel.ps1',
             'Set-CellStyle.ps1',
+            'Set-Column.ps1',
+            'Set-Row.ps1',
+            'SetFormat.ps1',
             'TrackingUtils.ps1',
             'Update-FirstObjectProperties.ps1'
         )

InstallModule.ps1

@@ -1,9 +1,9 @@
-<# 
-    .SYNOPSIS   
+<#
+    .SYNOPSIS
         Install the module in the PowerShell module folder.
 
     .DESCRIPTION
-        Install the module in the PowerShell module folder by copying all the files.    
+        Install the module in the PowerShell module folder by copying all the files.
 #>
 
 [CmdLetBinding()]
@@ -22,13 +22,18 @@ Begin {
             '*.dll',
             '*.psd1',
             '*.psm1',
+            'AddConditionalFormatting.ps1',
             'Charting.ps1',
+            'ColorCompletion.ps1',
             'ConvertFromExcelData.ps1',
             'ConvertFromExcelToSQLInsert.ps1',
+            'ConvertExcelToImageFile.ps1',
             'ConvertToExcelXlsx.ps1',
             'Copy-ExcelWorkSheet.ps1',
+            'Export-Charts.ps1',
             'Export-Excel.ps1',
             'Export-ExcelSheet.ps1',
+            'formatting.ps1',
             'Get-ExcelColumnName.ps1',
             'Get-ExcelSheetInfo.ps1',
             'Get-ExcelWorkbookInfo.ps1',
@@ -38,13 +43,18 @@ Begin {
             'Import-Html.ps1',
             'InferData.ps1',
             'Invoke-Sum.ps1',
-            'New-ConditionalText.ps1',
             'New-ConditionalFormattingIconSet.ps1',
+            'New-ConditionalText.ps1',
             'New-ExcelChart.ps1',
             'New-PSItem.ps1',
+            'Open-ExcelPackage.ps1',
             'Pivot.ps1',
             'Plot.ps1',
+            'Send-SQLDataToExcel.ps1',
             'Set-CellStyle.ps1',
+            'Set-Column.ps1',
+            'Set-Row.ps1',
+            'SetFormat.ps1',
             'TrackingUtils.ps1',
             'Update-FirstObjectProperties.ps1'
         )

Open-ExcelPackage.ps1

@@ -0,0 +1,50 @@
+Function Open-ExcelPackage  {
+<#
+.Synopsis 
+    Returns an Excel Package Object with for the specified XLSX ile 
+.Example
+    $excel  = Open-ExcelPackage -path $xlPath 
+    $sheet1 = $excel.Workbook.Worksheets["sheet1"] 
+    set-Format -Address $sheet1.Cells["E1:S1048576"], $sheet1.Cells["V1:V1048576"]  -NFormat ([cultureinfo]::CurrentCulture.DateTimeFormat.ShortDatePattern) 
+    close-ExcelPackage $excel -Show
+
+   This will open the file at $xlPath, select sheet1 apply formatting to two blocks of the sheet and close the package 
+#>
+    [OutputType([OfficeOpenXml.ExcelPackage])]
+    Param ([Parameter(Mandatory=$true)]$path,
+           [switch]$KillExcel)
+
+        if($KillExcel)         {
+            Get-Process -Name "excel" -ErrorAction Ignore | Stop-Process
+            while (Get-Process -Name "excel" -ErrorAction Ignore) {}
+        }
+
+        $Path          = $ExecutionContext.SessionState.Path.GetUnresolvedProviderPathFromPSPath($Path)
+        if (Test-Path $path) {New-Object -TypeName OfficeOpenXml.ExcelPackage -ArgumentList $Path }
+        Else                 {Write-Warning "Could not find $path" } 
+ }
+
+Function Close-ExcelPackage {
+<#
+.Synopsis 
+    Closes an Excel Package, saving, saving under a new name or abandoning changes and opening the file as required 
+#>
+    Param (
+    #File to close
+    [parameter(Mandatory=$true, ValueFromPipeline=$true)]
+    [OfficeOpenXml.ExcelPackage]$ExcelPackage,
+    #Open the file
+    [switch]$Show, 
+    #Abandon the file without saving
+    [Switch]$NoSave,
+    #Save file with a new name (ignored if -NoSaveSpecified)
+    $SaveAs
+    )
+    if ( $NoSave)      {$ExcelPackage.Dispose()}
+    else {
+          if ($SaveAs) {$ExcelPackage.SaveAs( $SaveAs ) } 
+          Else         {$ExcelPackage.Save(); $SaveAs = $ExcelPackage.File.FullName }
+          $ExcelPackage.Dispose() 
+          if ($show)   {Start-Process -FilePath $SaveAs } 
+    }
+}

README.md

@@ -5,6 +5,9 @@ This PowerShell Module allows you to read and write Excel files without installi
 
 ![](https://raw.githubusercontent.com/dfinke/ImportExcel/master/images/testimonial.png)
 
+# How to Vidoes
+* [PowerShell Excel Module - ImportExcel](https://www.youtube.com/watch?v=U3Ne_yX4tYo&list=PL5uoqS92stXioZw-u-ze_NtvSo0k0K0kq)
+
 Installation
 -
 #### [PowerShell V5](https://www.microsoft.com/en-us/download/details.aspx?id=50395) and Later
@@ -27,6 +30,146 @@ iex (new-object System.Net.WebClient).DownloadString('https://raw.github.com/dfi
 ```
 
 # What's new
+
+#### 4/22/2018
+Thanks to the community yet again
+- [ili101](https://github.com/ili101) for fixes and features
+    - Removed `[PSPlot]` as OutputType. Fixes it throwing an error
+- [Nasir Zubair](https://github.com/nzubair) added `ConvertEmptyStringsToNull` to the function `ConvertFrom-ExcelToSQLInsert`
+    - If specified, cells without any data are replaced with NULL, instead of an empty string. This is to address behviors in certain DBMS where an empty string is insert as 0 for INT column, instead of a NULL value.
+
+
+#### 4/10/2018
+-New parameter `-ReZip`. It ReZips the xlsx so it can be imported to PowerBI
+
+Thanks to [Justin Grote](https://github.com/JustinGrote) for finding and fixing the error that Excel files created do not import to PowerBI online. Plus, thank you to [CrashM](https://github.com/CrashM) for confirming the fix.
+
+Super helpful!
+
+#### 3/31/2018
+- Updated `Set-Format`
+    * Added parameters to set borders for cells, including top, bottm, left and right
+    * Added parameters to set `value` and `formula`
+
+```powershell
+$data = @"
+From,To,RDollars,RPercent,MDollars,MPercent,Revenue,Margin
+Atlanta,New York,3602000,.0809,955000,.09,245,65
+New York,Washington,4674000,.105,336000,.03,222,16
+Chicago,New York,4674000,.0804,1536000,.14,550,43
+New York,Philadelphia,12180000,.1427,-716000,-.07,321,-25
+New York,San Francisco,3221000,.0629,1088000,.04,436,21
+New York,Phoneix,2782000,.0723,467000,.10,674,33
+"@
+```
+
+![](https://github.com/dfinke/ImportExcel/blob/master/images/CustomReport.png?raw=true)
+
+
+- Added `-PivotFilter` parameter, allows you to set up a filter so you can drill down into a subset of the overall dataset.
+
+```powershell
+$data =@"
+Region,Area,Product,Units,Cost
+North,A1,Apple,100,.5
+South,A2,Pear,120,1.5
+East,A3,Grape,140,2.5
+West,A4,Banana,160,3.5
+North,A1,Pear,120,1.5
+North,A1,Grape,140,2.5
+"@
+```
+
+![](https://github.com/dfinke/ImportExcel/blob/master/images/PivotTableFilter.png?raw=true)
+
+
+#### 3/14/2018
+- Thank you to [James O'Neill](https://twitter.com/jamesoneill), fixed bugs with ChangeDatabase parameter which would prevent it working
+
+####
+* Added -Force to New-Alias
+* Add example to set the background color of a column
+* Supports excluding Row Grand Totals for PivotTables
+* Allow xlsm files to be read
+* Fix `Set-Column.ps1`, `Set-Row.ps1`, `SetFormat.ps1`, `formatting.ps1` **$falsee** and **$BorderRound**
+#### 1/1/2018
+* Added switch `[Switch]$NoTotalsInPivot`. Allows hiding of  the row totals in the pivot table.
+Thanks you to [jameseholt](https://github.com/jameseholt) for the request.
+
+```powershell
+    get-process | where Company | select Company, Handles, WorkingSet |
+        export-excel C:\temp\testColumnGrand.xlsx `
+            -Show -ClearSheet  -KillExcel `
+            -IncludePivotTable -PivotRows Company -PivotData @{"Handles"="average"} -NoTotalsInPivot
+```
+
+* Fixed when using certain a `ChartType` for the Pivot Table Chart, would throw an error
+* Fixed - when you specify a file, and the directory does not exit, it now creates it
+
+#### 11/23/2017
+More great additions and thanks to [James O'Neill](https://twitter.com/jamesoneill)
+
+* Added `Convert-XlRangeToImage` Gets the specified part of an Excel file and exports it as an image
+* Fixed a typo in the message at line 373.
+* Now catch an attempt to both clear the sheet and append to it.
+* Fixed some issues when appending to sheets where the header isn't in row 1 or the data doesn't start in column 1.
+* Added support for more settings when creating a pivot chart.
+* Corrected a typo PivotTableName was PivtoTableName in definition of New-PivotTableDefinition
+* Add-ConditionalFormat and Set-Format added to the parameters so each has the choice of working more like the other.
+* Added Set-Row and Set-Column - fill a formula down or across.
+* Added Send-SQLDataToExcel. Insert a rowset and then call Export-Excel for ranges, charts, pivots etc
+
+#### 10/30/2017
+Huge thanks to [James O'Neill](https://twitter.com/jamesoneill). PowerShell aficionado. He always brings a flare when working with PowerShell. This is no exception.
+
+(Check out the examples `help Export-Excel -Examples`)
+
+* New parameter `Package` allows an ExcelPackage object returned by `-passThru` to be passed in
+* New parameter `ExcludeProperty` to remove unwanted properties without needing to go through `select-object`
+* New parameter `Append` code to read the existing headers and move the insertion point below the current data
+* New parameter `ClearSheet`  which removes the worksheet and any past data
+
+* Remove any existing Pivot table before trying to [re]create it
+* Check for inserting a pivot table so if `-InsertPivotChart` is specified it implies `-InsertPivotTable`
+
+(Check out the examples `help Export-Excel -Examples`)
+
+* New function `Export-Charts` (requires Excel to be installed) - Export Excel charts out as JPG files
+* New function `Add-ConditionalFormatting` Adds contitional formatting to worksheet
+* New function `Set-Format` Applies Number, font, alignment and colour formatting to a range of Excel Cells
+* `ColorCompletion` an argument completer for `Colors` for params across functions
+
+I also worked out the parameters so you can do this, which is the same as passing `-Now`. It creates an Excel file name for you, does an auto fit and sets up filters.
+
+`ps | select Company, Handles | Export-Excel`
+
+#### 10/13/2017
+Added `New-PivotTableDefinition`. You can create and wire up a PivotTable to a WorkSheet. You can also create as many PivotTable Worksheets to point a one Worksheet. Or, you create many Worksheets and many corresponding PivotTable Worksheets.
+
+Here you can create a WorkSheet with the data from `Get-Service`. Then create four PivotTables, pointing to the data each pivoting on a differnt dimension and showing a differnet chart
+
+```powershell
+$base = @{
+    SourceWorkSheet   = 'gsv'
+    PivotData         = @{'Status' = 'count'}
+    IncludePivotChart = $true
+}
+
+$ptd = [ordered]@{}
+
+$ptd += New-PivotTableDefinition @base servicetype -PivotRows servicetype -ChartType Area3D
+$ptd += New-PivotTableDefinition @base status -PivotRows status -ChartType PieExploded3D
+$ptd += New-PivotTableDefinition @base starttype -PivotRows starttype -ChartType BarClustered3D
+$ptd += New-PivotTableDefinition @base canstop -PivotRows canstop -ChartType ConeColStacked
+
+Get-Service | Export-Excel -path $file -WorkSheetname gsv -Show -PivotTableDefinition $ptd
+```
+
+#### 10/4/2017
+Thanks to https://github.com/ili101 :
+- Fix Bug, Unable to find type [PSPlot]
+- Fix Bug, AutoFilter with TableName create corrupted Excel file.
+
 #### 10/2/2017
 Thanks to [Jeremy Brun](https://github.com/jeremytbrun)
 Fixed issues related to use of -Title parameter combined with column formatting parameters.

RemoveWorksheet.ps1

@@ -0,0 +1,35 @@
+Function Remove-WorkSheet {
+    Param (
+        $Path,
+        $WorksheetName
+    )
+
+    $Path = (Resolve-Path $Path).ProviderPath
+
+    $Excel = New-Object -TypeName OfficeOpenXml.ExcelPackage $Path
+
+    $workSheet = $Excel.Workbook.Worksheets[$WorkSheetName]
+    
+    if($workSheet) {
+        if($Excel.Workbook.Worksheets.Count -gt 1) {
+            $Excel.Workbook.Worksheets.Delete($workSheet)
+        } else {
+            throw "Cannot delete $WorksheetName. A workbook must contain at least one visible worksheet"
+        }
+
+    } else {
+        throw "$WorksheetName not found"
+    }
+
+    $Excel.Save()
+    $Excel.Dispose()   
+}
+
+cls
+
+ipmo .\ImportExcel.psd1 -Force
+
+$names = Get-ExcelSheetInfo C:\Temp\testDelete.xlsx 
+$names | % { Remove-WorkSheet C:\Temp\testDelete.xlsx $_.Name}
+
+##Remove-WorkSheet C:\Temp\testDelete.xlsx sheet6

Send-SqlDataToExcel.ps1

@@ -0,0 +1,133 @@
+Function Send-SQLDataToExcel {
+<#
+    .Synopsis 
+        Runs a SQL query and inserts the results into an ExcelSheet, more efficiently than sending it via Export-Excel
+    .Description
+        This command takes either an object representing a session with a SQL server or ODBC database, or a connection String to make one.
+        It the runs a SQL command, and inserts the rows of data returned into a worksheet. 
+        It takes most of the parameters of Export-Excel, but it is more efficient than getting dataRows and piping them into Export-Excel,
+        data-rows have additional properties which need to be stripped off. 
+     .Example 
+       C:\> Send-SQLDataToExcel -MsSQLserver -Connection localhost -SQL  "select name,type,type_desc from [master].[sys].[all_objects]" -Path .\temp.xlsx -WorkSheetname master -AutoSize -FreezeTopRow -AutoFilter -BoldTopRow    
+       Connects to the local SQL server and selects 3 columns from [Sys].[all_objects] and exports then to a sheet named master with some basic header manager
+     .Example 
+        C:\> $SQL="SELECT top 25 DriverName, Count(RaceDate) as Races, Count(Win) as Wins, Count(Pole) as Poles, Count(FastestLap) as Fastlaps FROM Results GROUP BY DriverName ORDER BY (count(win)) DESC" 
+        C:\> $Connection = 'Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};DriverId=790;ReadOnly=0;Dbq=C:\users\James\Documents\f1Results.xlsx;' 
+        C:\> Send-SQLDataToExcel -Connection  $connection -SQL $sql -path .\demo4.xlsx -WorkSheetname "Winners" -AutoSize -AutoNameRange  
+
+        This declares a SQL statement and creates an  ODBC connection string to read from an Excel file, it then runs the statement and outputs the resulting data to a new spreadsheet.  
+     .Example
+        C:\>  Send-SQLDataToExcel -path .\demo4.xlsx -WorkSheetname "LR" -Connection "DSN=LR" -sql "SELECT name AS CollectionName FROM AgLibraryCollection Collection ORDER BY CollectionName" 
+
+        This example uses an Existing ODBC datasource name "LR" which maps to an adobe lightroom database and gets a list of collection names into a worksheet 
+ 
+
+
+#>
+    param (
+        #Database connection string; either DSN=ODBC_Data_Source_Name, a full odbc or SQL Connection string, or the name of a SQL server 
+        [Parameter(ParameterSetName="SQLConnection", Mandatory=$true)]
+        [Parameter(ParameterSetName="ODBCConnection",Mandatory=$true)]
+        $Connection, 
+        #A pre-existing database session object 
+        [Parameter(ParameterSetName="ExistingSession",Mandatory=$true)] 
+        [System.Data.Common.DbConnection]$Session,
+        #Specifies the connection string is for SQL server not ODBC 
+        [Parameter(ParameterSetName="SQLConnection",Mandatory=$true)]
+        [switch]$MsSQLserver,
+        #Switches to a specific database on a SQL server
+        [Parameter(ParameterSetName="SQLConnection")]
+        [String]$DataBase,
+        #The SQL query to run 
+        [Parameter(Mandatory=$true)]
+        [string]$SQL, 
+        $Path, 
+        [String]$WorkSheetname = 'Sheet1',   
+        [Switch]$KillExcel, 
+        #If Specified, open the file created.
+        [Switch]$Show,
+        [String]$Title,
+        [OfficeOpenXml.Style.ExcelFillStyle]$TitleFillPattern = 'None',
+        [Switch]$TitleBold,
+        [Int]$TitleSize = 22,
+        [System.Drawing.Color]$TitleBackgroundColor,
+        [String]$Password,
+        [String[]]$PivotRows,
+        [String[]]$PivotColumns,
+        $PivotData,
+        [Switch]$PivotDataToColumn,        
+        [Hashtable]$PivotTableDefinition,
+        [Switch]$IncludePivotChart,
+        [OfficeOpenXml.Drawing.Chart.eChartType]$ChartType = 'Pie',
+        [Switch]$NoLegend,
+        [Switch]$ShowCategory,
+        [Switch]$ShowPercent,
+        [Switch]$AutoSize,
+        [Switch]$FreezeTopRow,
+        [Switch]$FreezeFirstColumn,
+        [Switch]$FreezeTopRowFirstColumn,
+        [Int[]]$FreezePane,
+        [Switch]$AutoFilter,
+        [Switch]$BoldTopRow,
+        [Switch]$NoHeader,
+        [String]$RangeName,
+        [String]$TableName,
+        [OfficeOpenXml.Table.TableStyles]$TableStyle = 'Medium6',
+        [Object[]]$ExcelChartDefinition,
+        [Switch]$AutoNameRange,
+        [Object[]]$ConditionalFormat,
+        [Object[]]$ConditionalText,
+        [ScriptBlock]$CellStyleSB,
+        [Int]$StartRow    = 1,
+        [Int]$StartColumn = 1,
+        #If Specified, return an ExcelPackage object to allow further work to be done on the file. 
+        [Switch]$Passthru
+    )
+    
+    if ($KillExcel) {
+            Get-Process excel -ErrorAction Ignore | Stop-Process
+            while (Get-Process excel -ErrorAction Ignore) {}
+    }
+    
+    #We were either given a session object or a connection string (with, optionally a MSSQLServer parameter)
+    # If we got -MSSQLServer, create a SQL connection, if we didn't but we got -Connection create an ODBC connection
+    if     ($MsSQLserver) {
+            if ($connection -notmatch "=") {$Connection = "server=$Connection;trusted_connection=true;timeout=60"} 
+            $Session = New-Object -TypeName System.Data.SqlClient.SqlConnection  -ArgumentList $Connection
+            if ($Session.State -ne 'Open') {$session.Open()} 
+            if ($DataBase) {$Session.ChangeDatabase($DataBase) }
+    }
+    elseif ($Connection)  {
+            $Session = New-Object -TypeName System.Data.Odbc.OdbcConnection      -ArgumentList $Connection ; $Session.ConnectionTimeout = 30
+    }
+
+    #A session was either passed in or just created. If it's a SQL one make a SQL DataAdapter, otherwise make an ODBC one 
+    if ($Session.gettype().name -match "SqlConnection") {  
+        $dataAdapter = New-Object -TypeName System.Data.SqlClient.SqlDataAdapter -ArgumentList (
+                       New-Object -TypeName System.Data.SqlClient.SqlCommand     -ArgumentList $sql, $Session)
+    }
+    else {
+        $dataAdapter = New-Object -TypeName System.Data.Odbc.OdbcDataAdapter     -ArgumentList (
+                       New-Object -TypeName System.Data.Odbc.OdbcCommand         -ArgumentList $sql, $Session ) 
+    }
+    
+    #Both adapter types output the same kind of table, create one and fill it from the adapter    
+    $dataTable       = New-Object -TypeName System.Data.DataTable
+    $rowCount        = $dataAdapter.fill($dataTable)
+    Write-Verbose "Query returned $rowcount row(s)" 
+
+    #ExportExcel user a -NoHeader parameter so that's what we use here, but needs to be the other way around. 
+    $PrintHeaders    = -not $NoHeader
+    if ($Title)  {$r = $StartRow +1 } 
+    else         {$r = $StartRow} 
+    #Get our Excel sheet and fill it with the data 
+    $excelPackage    = Export-Excel -Path $Path -WorkSheetname $WorkSheetname  -PassThru
+    $excelPackage.Workbook.Worksheets[$WorkSheetname].Cells[$r,$StartColumn].LoadFromDataTable($dataTable, $PrintHeaders )  | Out-Null
+    
+    #Call export-excel with any parameters which don't relate to the SQL query
+    "Connection", "Database" , "Session", "MsSQLserver", "Destination" , "sql" ,"Path" | foreach-object {$null = $PSBoundParameters.Remove($_) }
+    Export-Excel -ExcelPackage $excelPackage   @PSBoundParameters 
+
+    #If we were not passed a session close the session we created. 
+    if ($Connection)  {$Session.close() } 
+}

Set-Column.ps1

@@ -0,0 +1,139 @@
+Function Set-Column {
+<#
+    .SYNOPSIS
+        Adds a column to the existing data area in an Excel sheet, fills values and sets formatting
+    .DESCRIPTION
+        Set-Column takes a value which is either string containing a value or formula or a scriptblock
+        which evaluates to a string, and optionally a column number and fills that value down the column.
+        A column name can be specified and the new column can be made a named range.
+        The column can be formatted.
+    .Example
+        C:> Set-Column -Worksheet $ws -Heading "WinsToFastLaps"  -Value {"=E$row/C$row"} -Column 7 -AutoSize -AutoNameRange
+        Here $WS already contains a worksheet which contains counts of races won and fastest laps recorded by racing drivers (in columns C and E)
+        Set-Column specifies that Column 7 should have a heading of "WinsToFastLaps" and the data cells should contain =E2/C2 , =E3/C3
+        the data celss should become a named range, which will also be "WinsToFastLaps" the column width will be set automatically
+
+#>
+[cmdletbinding()]
+    Param (
+        [Parameter(ParameterSetName="Package",Mandatory=$true)]
+        [OfficeOpenXml.ExcelPackage]$ExcelPackage,
+        #Sheet to update
+        [Parameter(ParameterSetName="Package")]
+        $Worksheetname = "Sheet1",
+        [Parameter(ParameterSetName="sheet",Mandatory=$true)]
+        [OfficeOpenXml.ExcelWorksheet]
+        $Worksheet,
+        #Column to fill down - first column is 1. 0 will be interpreted as first unused column
+        $Column = 0 ,
+        [Int]$StartRow ,
+        #value, formula or script block for to fill in. Script block can use $row, $column [number], $ColumnName [letter(s)], $startRow, $startColumn, $endRow, $endColumn
+        [parameter(Mandatory=$true)]
+        $Value ,
+        #Optional column heading
+        $Heading ,
+        #Number format to apply to cells e.g. "dd/MM/yyyy HH:mm", "£#,##0.00;[Red]-£#,##0.00", "0.00%" , "##/##" , "0.0E+0" etc
+        [Alias("NFormat")]
+        $NumberFormat,
+        #Style of border to draw around the row
+        [OfficeOpenXml.Style.ExcelBorderStyle]$BorderAround,
+        #Colour for the text - if none specified it will be left as it it is
+        [System.Drawing.Color]$FontColor,
+        #Make text bold
+        [switch]$Bold,
+        #Make text italic
+        [switch]$Italic,
+        #Underline the text using the underline style in -underline type
+        [switch]$Underline,
+        #Should Underline use single or double, normal or accounting mode : default is single normal
+        [OfficeOpenXml.Style.ExcelUnderLineType]$UnderLineType = [OfficeOpenXml.Style.ExcelUnderLineType]::Single,
+        #StrikeThrough text
+        [switch]$StrikeThru,
+        #Subscript or superscript
+        [OfficeOpenXml.Style.ExcelVerticalAlignmentFont]$FontShift,
+        #Font to use - Excel defaults to Calibri
+        [String]$FontName,
+        #Point size for the text
+        [float]$FontSize,
+        #Change background colour
+        [System.Drawing.Color]$BackgroundColor,
+        #Background pattern - solid by default
+        [OfficeOpenXml.Style.ExcelFillStyle]$BackgroundPattern = [OfficeOpenXml.Style.ExcelFillStyle]::Solid ,
+        #Secondary colour for background pattern
+        [Alias("PatternColour")]
+        [System.Drawing.Color]$PatternColor,
+        #Turn on text wrapping
+        [switch]$WrapText,
+        #Position cell contents to left, right or centre ...
+        [OfficeOpenXml.Style.ExcelHorizontalAlignment]$HorizontalAlignment,
+        #Position cell contents to top bottom or centre
+        [OfficeOpenXml.Style.ExcelVerticalAlignment]$VerticalAlignment,
+        #Degrees to rotate text. Up to +90 for anti-clockwise ("upwards"), or to -90 for clockwise.
+        [ValidateRange(-90, 90)]
+        [int]$TextRotation ,
+        #Autofit cells to width
+        [Alias("AutoFit")]
+        [Switch]$AutoSize,
+        #Set cells to a fixed width, ignored if Autosize is specified
+        [float]$Width,
+        #Set the inserted data to be a named range (ignored if header is not specified) d
+        [Switch]$AutoNameRange,
+        [switch]$PassThru
+    )
+    #if we were passed a package object and a worksheet name , get the worksheet.
+    if ($ExcelPackage)   {$Worksheet   = $ExcelPackage.Workbook.Worksheets[$Worksheetname] }
+
+    #In a script block to build a formula, we may want any of corners or the columnname,
+    #if column and startrow aren't specified, assume first unused column, and first row
+    if (-not $StartRow)   {$startRow   = $Worksheet.Dimension.Start.Row    }
+    $StartColumn                       = $Worksheet.Dimension.Start.Column
+    $endColumn                         = $Worksheet.Dimension.End.Column
+    $endRow                            = $Worksheet.Dimension.End.Row
+    if ($Column  -lt 2 )  {$Column     = $endColumn    + 1 }
+    $ColumnName = [OfficeOpenXml.ExcelCellAddress]::new(1,$column).Address -replace "1",""
+
+    Write-Verbose -Message "Updating Column $ColumnName"
+    #If there is a heading, insert it and use it as the name for a range (if we're creating one)
+    if      ($Heading)                 {
+                                         $Worksheet.Cells[$StartRow, $Column].Value = $heading
+                                         $startRow ++
+      if    ($AutoNameRange)           { $Worksheet.Names.Add(  $heading, ($Worksheet.Cells[$startrow, $Column, $endRow, $Column]) ) | Out-Null }
+    }
+    #Fill in the data
+    if      ($value)                   { foreach ($row in ($StartRow.. $endRow)) {
+        if  ($Value -is [scriptblock]) { #re-create the script block otherwise variables from this function are out of scope.
+             $cellData = & ([scriptblock]::create( $Value ))
+             Write-Verbose  -Message     $cellData
+        }
+        else                           { $cellData = $Value}
+        if  ($cellData -match "^=")    { $Worksheet.Cells[$Row, $Column].Formula                           = $cellData           }
+        else                           { $Worksheet.Cells[$Row, $Column].Value                             = $cellData           }
+        if  ($cellData -is [datetime]) { $Worksheet.Cells[$Row, $Column].Style.Numberformat.Format         = 'm/d/yy h:mm'       }
+    }}
+    #region Apply formatting
+    if      ($Underline)               {
+                                         $Worksheet.Column(     $Column).Style.Font.UnderLine              = $true
+                                         $Worksheet.Column(     $Column).Style.Font.UnderLineType          = $UnderLineType
+    }
+    if      ($Bold)                    { $Worksheet.Column(     $Column).Style.Font.Bold                   = $true               }
+    if      ($Italic)                  { $Worksheet.Column(     $Column).Style.Font.Italic                 = $true               }
+    if      ($StrikeThru)              { $Worksheet.Column(     $Column).Style.Font.Strike                 = $true               }
+    if      ($FontShift)               { $Worksheet.Column(     $Column).Style.Font.VerticalAlign          = $FontShift          }
+    if      ($NumberFormat)            { $Worksheet.Column(     $Column).Style.Numberformat.Format         = $NumberFormat       }
+    if      ($TextRotation)            { $Worksheet.Column(     $Column).Style.TextRotation                = $TextRotation       }
+    if      ($WrapText)                { $Worksheet.Column(     $Column).Style.WrapText                    = $true               }
+    if      ($HorizontalAlignment)     { $Worksheet.Column(     $Column).Style.HorizontalAlignment         = $HorizontalAlignment}
+    if      ($VerticalAlignment)       { $Worksheet.Column(     $Column).Style.VerticalAlignment           = $VerticalAlignment  }
+    if      ($FontColor)               { $Worksheet.Column(     $Column).Style.Font.Color.SetColor(          $FontColor        ) }
+    if      ($BorderAround)             { $Worksheet.Column(     $Column).Style.Border.BorderAround(          $BorderAround     ) }
+    if      ($BackgroundColor)         {
+                                         $Worksheet.Column(     $Column).Style.Fill.PatternType            = $BackgroundPattern
+                                         $Worksheet.Column(     $Column).Style.Fill.BackgroundColor.SetColor($BackgroundColor  )
+         if ($PatternColor)            { $Worksheet.Column(     $Column).Style.Fill.PatternColor.SetColor(   $PatternColor     ) }
+     }
+     if     ($Autosize)                { $Worksheet.Column(     $Column).AutoFit()                                               }
+     elseif ($Width)                   { $Worksheet.Column(     $Column).Width                             = $Width              }
+     #endregion
+    #return the new data if -passthru was specified.
+    if     ($passThru)                 { $Worksheet.Column(     $Column)}
+}

Set-Row.ps1

@@ -0,0 +1,142 @@
+Function Set-Row {
+<#
+.Synopsis
+    Fills values into a row in a Excel spreadsheet
+.Description
+    Set-Row accepts either a Worksheet object or an Excel package object returned by Export-Excel and the name of a sheet,
+    and inserts the chosen contents into a row of the sheet.
+    The contents can be a constant "42" , a formula or a script block which is converted into a constant or formula.
+    The first cell of the row can optional be given a heading.
+.Example
+    Set-row -Worksheet $ws -Heading Total -Value {"=sum($columnName`2:$columnName$endrow)" }
+
+    $Ws contains a worksheet object, and no Row number is specified so Set-Row will select the next row after the end of the data in the sheet
+    The first cell will contain "Total", and each other cell will contain
+        =Sum(xx2:xx99)  - where xx is the column name, and 99 is the last row of data.
+        Note the use of `2 to Prevent 2 becoming part of the variable "ColumnName"
+    The script block can use $row, $column, $ColumnName, $startRow/Column $endRow/Column
+
+
+#>
+[cmdletbinding()]
+    Param (
+        #An Excel package object - e.g. from Export-Excel -passthru - requires a sheet name
+        [Parameter(ParameterSetName="Package",Mandatory=$true)]
+        [OfficeOpenXml.ExcelPackage]$ExcelPackage,
+        #the name  to update in the package
+        [Parameter(ParameterSetName="Package")]
+        $Worksheetname = "Sheet1",
+        #A worksheet object
+        [Parameter(ParameterSetName="sheet",Mandatory=$true)]
+        [OfficeOpenXml.Excelworksheet]
+        $Worksheet,
+        #Row to fill right - first row is 1. 0 will be interpreted as first unused row
+        $Row = 0 ,
+        #Position in the row to start from
+        [Int]$StartColumn,
+        #value, formula or script block for to fill in. Script block can use $row, $column [number], $ColumnName [letter(s)], $startRow, $startColumn, $endRow, $endColumn
+        [parameter(Mandatory=$true)]
+        $Value,
+        #Optional Row heading
+        $Heading ,
+        #Number format to apply to cells e.g. "dd/MM/yyyy HH:mm", "£#,##0.00;[Red]-£#,##0.00", "0.00%" , "##/##" , "0.0E+0" etc
+        [Alias("NFormat")]
+        $NumberFormat,
+        #Style of border to draw around the row
+        [OfficeOpenXml.Style.ExcelBorderStyle]$BorderAround,
+        #Colour for the text - if none specified it will be left as it it is
+        [System.Drawing.Color]$FontColor,
+        #Make text bold
+        [switch]$Bold,
+        #Make text italic
+        [switch]$Italic,
+        #Underline the text using the underline style in -underline type
+        [switch]$Underline,
+        #Should Underline use single or double, normal or accounting mode : default is single normal
+        [OfficeOpenXml.Style.ExcelUnderLineType]$UnderLineType = [OfficeOpenXml.Style.ExcelUnderLineType]::Single,
+        #StrikeThrough text
+        [switch]$StrikeThru,
+        #Subscript or superscript
+        [OfficeOpenXml.Style.ExcelVerticalAlignmentFont]$FontShift,
+        #Font to use - Excel defaults to Calibri
+        [String]$FontName,
+        #Point size for the text
+        [float]$FontSize,
+        #Change background colour
+        [System.Drawing.Color]$BackgroundColor,
+        #Background pattern - solid by default
+        [OfficeOpenXml.Style.ExcelFillStyle]$BackgroundPattern = [OfficeOpenXml.Style.ExcelFillStyle]::Solid ,
+        #Secondary colour for background pattern
+        [Alias("PatternColour")]
+        [System.Drawing.Color]$PatternColor,
+        #Turn on text wrapping
+        [switch]$WrapText,
+        #Position cell contents to left, right or centre ...
+        [OfficeOpenXml.Style.ExcelHorizontalAlignment]$HorizontalAlignment,
+        #Position cell contents to top bottom or centre
+        [OfficeOpenXml.Style.ExcelVerticalAlignment]$VerticalAlignment,
+        #Degrees to rotate text. Up to +90 for anti-clockwise ("upwards"), or to -90 for clockwise.
+        [ValidateRange(-90, 90)]
+        [int]$TextRotation ,
+        #Set cells to a fixed hieght
+        [float]$Height,
+        [switch]$PassThru
+    )
+
+    #if we were passed a package object and a worksheet name , get the worksheet.
+    if ($ExcelPackage)     {$Worksheet   = $ExcelPackage.Workbook.worksheets[$Worksheetname] }
+
+    #In a script block to build a formula, we may want any of corners or the columnname,
+    #if row and start column aren't specified assume first unused row, and first column
+    if (-not $StartColumn) {$StartColumn = $Worksheet.Dimension.Start.Column    }
+    $startRow                            = $Worksheet.Dimension.Start.Row   + 1
+    $endColumn                           = $Worksheet.Dimension.End.Column
+    $endRow                              = $Worksheet.Dimension.End.Row
+    if ($Row  -lt 2 )      {$Row         = $endRow + 1 }
+
+    Write-Verbose -Message "Updating Row $Row"
+    #Add a row label
+    if      ($Heading)                   {
+                                           $Worksheet.Cells[$Row, $StartColumn].Value = $Heading
+                                           $StartColumn ++
+    }
+    #Fill in the data
+    if      ($value) {foreach ($column in ($StartColumn..$EndColumn)) {
+        #We might want the column name in a script block
+        $ColumnName = [OfficeOpenXml.ExcelCellAddress]::new(1,$column).Address -replace "1",""
+        if  ($Value -is [scriptblock] ) {
+             #re-create the script block otherwise variables from this function are out of scope.
+             $cellData = & ([scriptblock]::create( $Value ))
+             Write-Verbose -Message $cellData
+        }
+        else{$cellData = $Value}
+        if  ($cellData -match "^=")      { $Worksheet.Cells[$Row, $column].Formula                    = $cellData           }
+        else                             { $Worksheet.Cells[$Row, $Column].Value                      = $cellData           }
+        if  ($cellData -is [datetime])   { $Worksheet.Cells[$Row, $Column].Style.Numberformat.Format  = 'm/d/yy h:mm'       }
+    }}
+    #region Apply formatting
+    if      ($Underline)                 {
+                                           $worksheet.row(  $Row  ).Style.Font.UnderLine              = $true
+                                           $worksheet.row(  $Row  ).Style.Font.UnderLineType          = $UnderLineType
+    }
+    if      ($Bold)                      { $worksheet.row(  $Row  ).Style.Font.Bold                   = $true               }
+    if      ($Italic)                    { $worksheet.row(  $Row  ).Style.Font.Italic                 = $true               }
+    if      ($StrikeThru)                { $worksheet.row(  $Row  ).Style.Font.Strike                 = $true               }
+    if      ($FontShift)                 { $worksheet.row(  $Row  ).Style.Font.VerticalAlign          = $FontShift          }
+    if      ($NumberFormat)              { $worksheet.row(  $Row  ).Style.Numberformat.Format         = $NumberFormat       }
+    if      ($TextRotation)              { $worksheet.row(  $Row  ).Style.TextRotation                = $TextRotation       }
+    if      ($WrapText)                  { $worksheet.row(  $Row  ).Style.WrapText                    = $true               }
+    if      ($HorizontalAlignment)       { $worksheet.row(  $Row  ).Style.HorizontalAlignment         = $HorizontalAlignment}
+    if      ($VerticalAlignment)         { $worksheet.row(  $Row  ).Style.VerticalAlignment           = $VerticalAlignment  }
+    if      ($Height)                    { $worksheet.row(  $Row  ).Height                            = $Height             }
+    if      ($FontColor)                 { $worksheet.row(  $Row  ).Style.Font.Color.SetColor(          $FontColor        ) }
+    if      ($BorderAround)               { $worksheet.row(  $Row  ).Style.Border.BorderAround(          $BorderAround     ) }
+    if      ($BackgroundColor)           {
+                                           $worksheet.row(  $Row  ).Style.Fill.PatternType            = $BackgroundPattern
+                                           $worksheet.row(  $Row  ).Style.Fill.BackgroundColor.SetColor($BackgroundColor  )
+         if ($PatternColor)              { $worksheet.row(  $Row  ).Style.Fill.PatternColor.SetColor(   $PatternColor     ) }
+    }
+    #endregion
+    #return the new data if -passthru was specified.
+    if ($passThru) {$Worksheet.Row($Row)}
+}

SetFormat.ps1

@@ -0,0 +1,191 @@
+Function Set-Format {
+<#
+.SYNOPSIS
+    Applies Number, font, alignment and colour formatting to a range of Excel Cells
+.EXAMPLE
+    $sheet.Column(3) | Set-Format -HorizontalAlignment Right -NumberFormat "#,###"
+    Selects column 3 from a sheet object (within a workbook object, which is a child of the ExcelPackage object) and passes it to Set-Format which formats as an integer with comma seperated groups
+.EXAMPLE
+    Set-Format -Address $sheet.Cells["E1:H1048576"]  -HorizontalAlignment Right -NumberFormat "#,###"
+    Instead of piping the address in this version specifies a block of cells and applies similar formatting
+
+#>
+    Param   (
+        #One or more row(s), Column(s) and/or block(s) of cells to format
+        [Parameter(ValueFromPipeline = $true,ParameterSetName="Address",Mandatory=$True)]
+        $Address ,
+        #The worksheet where the format is to be applied
+        [Parameter(ParameterSetName="SheetAndRange",Mandatory=$True)]
+        [OfficeOpenXml.ExcelWorksheet]$WorkSheet ,
+        #The area of the worksheet where the format is to be applied
+        [Parameter(ParameterSetName="SheetAndRange",Mandatory=$True)]
+        [OfficeOpenXml.ExcelAddress]$Range,
+        #Number format to apply to cells e.g. "dd/MM/yyyy HH:mm", "£#,##0.00;[Red]-£#,##0.00", "0.00%" , "##/##" , "0.0E+0" etc
+        [Alias("NFormat")]
+        $NumberFormat,
+        #Style of border to draw around the range
+        [OfficeOpenXml.Style.ExcelBorderStyle]$BorderAround,
+        [System.Drawing.Color]$BorderColor=[System.Drawing.Color]::Black,
+        [OfficeOpenXml.Style.ExcelBorderStyle]$BorderBottom,
+        [OfficeOpenXml.Style.ExcelBorderStyle]$BorderTop,
+        [OfficeOpenXml.Style.ExcelBorderStyle]$BorderLeft,
+        [OfficeOpenXml.Style.ExcelBorderStyle]$BorderRight,
+        #Colour for the text - if none specified it will be left as it it is
+        [System.Drawing.Color]$FontColor,
+        #Value for the cell
+        $Value,
+        #Formula for the cell
+        $Formula,
+        #Clear Bold, Italic, StrikeThrough and Underline and set colour to black
+        [switch]$ResetFont,
+        #Make text bold
+        [switch]$Bold,
+        #Make text italic
+        [switch]$Italic,
+        #Underline the text using the underline style in -underline type
+        [switch]$Underline,
+        #Should Underline use single or double, normal or accounting mode : default is single normal
+        [OfficeOpenXml.Style.ExcelUnderLineType]$UnderLineType = [OfficeOpenXml.Style.ExcelUnderLineType]::Single,
+        #StrikeThrough text
+        [switch]$StrikeThru,
+        #Subscript or superscript
+        [OfficeOpenXml.Style.ExcelVerticalAlignmentFont]$FontShift,
+        #Font to use - Excel defaults to Calibri
+        [String]$FontName,
+        #Point size for the text
+        [float]$FontSize,
+        #Change background colour
+        [System.Drawing.Color]$BackgroundColor,
+        #Background pattern - solid by default
+        [OfficeOpenXml.Style.ExcelFillStyle]$BackgroundPattern = [OfficeOpenXml.Style.ExcelFillStyle]::Solid ,
+        #Secondary colour for background pattern
+        [Alias("PatternColour")]
+        [System.Drawing.Color]$PatternColor,
+        #Turn on text wrapping
+        [switch]$WrapText,
+        #Position cell contents to left, right or centre ...
+        [OfficeOpenXml.Style.ExcelHorizontalAlignment]$HorizontalAlignment,
+        #Position cell contents to top bottom or centre
+        [OfficeOpenXml.Style.ExcelVerticalAlignment]$VerticalAlignment,
+        #Degrees to rotate text. Up to +90 for anti-clockwise ("upwards"), or to -90 for clockwise.
+        [ValidateRange(-90, 90)]
+        [int]$TextRotation ,
+        #Autofit cells to width  (columns or ranges only)
+        [Alias("AutoFit")]
+        [Switch]$AutoSize,
+        #Set cells to a fixed width (columns or ranges only), ignored if Autosize is specified
+        [float]$Width,
+        #Set cells to a fixed hieght  (rows or ranges only)
+        [float]$Height,
+        #Hide a row or column  (not a range)
+        [switch]$Hidden
+    )
+    begin {
+        #Allow Set-Format to take Worksheet and range parameters (like Add Contitional formatting) -  convert them to an address
+        if ($WorkSheet -and $Range) {$Address = $WorkSheet.Cells[$Range] }
+    }
+
+    process {
+        if   ($Address -is [Array])  {
+            [void]$PSBoundParameters.Remove("Address")
+            $Address | Set-Format @PSBoundParameters
+        }
+        else {
+            if ($ResetFont) {
+                $Address.Style.Font.Color.SetColor("Black")
+                $Address.Style.Font.Bold = $false
+                $Address.Style.Font.Italic = $false
+                $Address.Style.Font.UnderLine = $false
+                $Address.Style.Font.Strike = $false
+            }
+            if ($Underline) {
+                $Address.Style.Font.UnderLine = $true
+                $Address.Style.Font.UnderLineType = $UnderLineType
+            }
+            if ($Bold) {$Address.Style.Font.Bold = $true                }
+            if ($Italic) {$Address.Style.Font.Italic = $true                }
+            if ($StrikeThru) {$Address.Style.Font.Strike = $true                }
+            if ($FontShift) {$Address.Style.Font.VerticalAlign = $FontShift           }
+            if ($FontColor) {$Address.Style.Font.Color.SetColor( $FontColor    )      }
+            
+            if ($BorderAround) {
+                $Address.Style.Border.BorderAround($BorderAround, $BorderColor)
+            }            
+
+            if ($BorderBottom) {             
+                $Address.Style.Border.Bottom.Style=$BorderBottom
+                $Address.Style.Border.Bottom.Color.SetColor($BorderColor)
+            }
+
+            if ($BorderTop) {             
+                $Address.Style.Border.Top.Style=$BorderTop
+                $Address.Style.Border.Top.Color.SetColor($BorderColor)
+            }
+
+            if ($BorderLeft) {             
+                $Address.Style.Border.Left.Style=$BorderLeft
+                $Address.Style.Border.Left.Color.SetColor($BorderColor)
+            }
+
+            if ($BorderRight) {             
+                $Address.Style.Border.Right.Style=$BorderRight
+                $Address.Style.Border.Right.Color.SetColor($BorderColor)
+            }
+            
+            if ($NumberFormat) {$Address.Style.Numberformat.Format = $NumberFormat        }
+            if ($TextRotation) {$Address.Style.TextRotation = $TextRotation        }
+            if ($WrapText) {$Address.Style.WrapText = $true                }
+            if ($HorizontalAlignment) {$Address.Style.HorizontalAlignment = $HorizontalAlignment }
+            if ($VerticalAlignment) {$Address.Style.VerticalAlignment = $VerticalAlignment   }
+
+            if ($BackgroundColor) {
+                $Address.Style.Fill.PatternType = $BackgroundPattern
+                $Address.Style.Fill.BackgroundColor.SetColor($BackgroundColor)
+                if ($PatternColor) {
+                    $Address.Style.Fill.PatternColor.SetColor( $PatternColor)
+                }
+            }
+
+            if ($Height) {
+                if ($Address -is [OfficeOpenXml.ExcelRow]   ) {$Address.Height = $Height }
+                elseif ($Address -is [OfficeOpenXml.ExcelRange] ) {
+                    ($Address.Start.Row)..($Address.Start.Row + $Address.Rows) |
+                        ForEach-Object {$ws.Row($_).Height = $Height }
+                }
+                else {Write-Warning -Message ("Can set the height of a row or a range but not a {0} object" -f ($Address.GetType().name)) }
+            }
+            if ($Autosize) {
+                if ($Address -is [OfficeOpenXml.ExcelColumn]) {$Address.AutoFit() }
+                elseif ($Address -is [OfficeOpenXml.ExcelRange] ) {
+                    $Address.AutoFitColumns() 
+                }
+                else {Write-Warning -Message ("Can autofit a column or a range but not a {0} object" -f ($Address.GetType().name)) }
+
+            }
+            elseif ($Width) {
+                if ($Address -is [OfficeOpenXml.ExcelColumn]) {$Address.Width = $Width}
+                elseif ($Address -is [OfficeOpenXml.ExcelRange] ) {
+                    ($Address.Start.Column)..($Address.Start.Column + $Address.Columns - 1) |
+                        ForEach-Object {
+                            #$ws.Column($_).Width = $Width
+                            $Address.Worksheet.Column($_).Width = $Width
+                        }
+                }
+                else {Write-Warning -Message ("Can set the width of a column or a range but not a {0} object" -f ($Address.GetType().name)) }
+            }
+            if ($Hidden) {
+                if ($Address -is [OfficeOpenXml.ExcelRow] -or
+                    $Address -is [OfficeOpenXml.ExcelColumn]  ) {$Address.Hidden = $True}
+                else {Write-Warning -Message ("Can hide a row or a column but not a {0} object" -f ($Address.GetType().name)) }
+            }
+
+            if ($Value) {
+                $Address.Value = $Value                
+            }
+
+            if ($Formula) {
+                $Address.Formula = $Formula
+            }
+        }
+    }
+}

ToDo.md

@@ -0,0 +1 @@
+- [ ] Create an autocomplete for WorkSheetName param on ImportExcel

formatting.ps1

@@ -0,0 +1,235 @@
+Function Add-ConditionalFormatting {
+<#
+.Synopsis
+    Adds contitional formatting to worksheet
+.Example
+    $excel = $avdata | Export-Excel -Path (Join-path $FilePath "\Machines.XLSX" ) -WorksheetName "Server Anti-Virus" -AutoSize -FreezeTopRow -AutoFilter -PassThru
+
+    Add-ConditionalFormatting -WorkSheet $excel.Workbook.Worksheets[1] -Address "b":b1048576" -ForeGroundColor "RED"     -RuleType ContainsText -ConditionValue "2003"
+    Add-ConditionalFormatting -WorkSheet $excel.Workbook.Worksheets[1] -Address "i2:i1048576" -ForeGroundColor "RED"     -RuleType ContainsText -ConditionValue "Disabled"
+    $excel.Workbook.Worksheets[1].Cells["D1:G1048576"].Style.Numberformat.Format = [cultureinfo]::CurrentCulture.DateTimeFormat.ShortDatePattern
+    $excel.Workbook.Worksheets[1].Row(1).style.font.bold = $true
+    $excel.Save() ; $excel.Dispose()
+
+    Here Export-Excel is called with the -passThru parameter so the Excel Package object is stored in $Excel
+    The desired worksheet is selected and the then columns B and i are conditially formatted (excluding the top row) to show
+    Fixed formats are then applied to dates in columns D..G and the top row is formatted
+    Finally the workbook is saved and the Excel closed.
+
+#>
+    Param (
+        #The worksheet where the format is to be applied
+        [OfficeOpenXml.ExcelWorksheet]$WorkSheet ,
+        #The area of the worksheet where the format is to be applied
+        [OfficeOpenXml.ExcelAddress]$Range ,
+        #One of the standard named rules - Top / Bottom / Less than / Greater than / Contains etc
+        [Parameter(Mandatory=$true,ParameterSetName="NamedRule",Position=3)]
+        [OfficeOpenXml.ConditionalFormatting.eExcelConditionalFormattingRuleType]$RuleType ,
+        #Text colour for matching objects
+        [Alias("ForeGroundColour")]
+        [System.Drawing.Color]$ForeGroundColor,
+        #colour for databar type charts
+        [Parameter(Mandatory=$true,ParameterSetName="DataBar")]
+        [Alias("DataBarColour")]
+        [System.Drawing.Color]$DataBarColor,
+        #One of the three-icon set types (e.g. Traffic Lights)
+        [Parameter(Mandatory=$true,ParameterSetName="ThreeIconSet")]
+        [OfficeOpenXml.ConditionalFormatting.eExcelconditionalFormatting3IconsSetType]$ThreeIconsSet,
+        #A four-icon set name
+        [Parameter(Mandatory=$true,ParameterSetName="FourIconSet")]
+        [OfficeOpenXml.ConditionalFormatting.eExcelconditionalFormatting4IconsSetType]$FourIconsSet,
+        #A five-icon set name
+        [Parameter(Mandatory=$true,ParameterSetName="FiveIconSet")]
+        [OfficeOpenXml.ConditionalFormatting.eExcelconditionalFormatting5IconsSetType]$FiveIconsSet,
+        #A value for the condition (e.g. "2000" if the test is 'lessthan 2000')
+        [string]$ConditionValue,
+        #A second value for the conditions like between x and Y
+        [string]$ConditionValue2,
+        #Background colour for matching items
+        [System.Drawing.Color]$BackgroundColor,
+        #Background pattern for matching items
+        [OfficeOpenXml.Style.ExcelFillStyle]$BackgroundPattern =  [OfficeOpenXml.Style.ExcelFillStyle]::Solid,
+        #Secondary colour when a background pattern requires it
+        [System.Drawing.Color]$PatternColor,
+        #Sets the numeric format for matching items
+        $NumberFormat,
+        #Put matching items in bold face
+        [switch]$Bold,
+        #Put matching items in italic
+        [switch]$Italic,
+        #Underline matching items
+        [switch]$Underline,
+        #Strikethrough text of matching items
+        [switch]$StrikeThru
+    )
+
+    If      ($ThreeIconsSet)  {$rule =  $WorkSheet.ConditionalFormatting.AddThreeIconSet($Range , $ThreeIconsSet)}
+    elseif  ($FourIconsSet)   {$rule =  $WorkSheet.ConditionalFormatting.AddFourIconSet( $Range , $FourIconsSet) }
+    elseif  ($FiveIconsSet)   {$rule =  $WorkSheet.ConditionalFormatting.AddFiveIconSet( $Range , $IconType)     }
+    elseif  ($DataBarColor)   {$rule =  $WorkSheet.ConditionalFormatting.AddDatabar(     $Range , $DataBarColor) }
+    else    {                  $rule = ($WorkSheet.ConditionalFormatting)."Add$RuleType"($Range)}
+
+    if ($ConditionValue   -and $RuleType -match "Top|Botom")             {$rule.Rank      = $ConditionValue }
+    if ($ConditionValue   -and $RuleType -match "StdDev")                {$rule.StdDev    = $ConditionValue }
+    if ($ConditionValue   -and $RuleType -match "Than|Equal|Expression") {$rule.Formula   = $ConditionValue }
+    if ($ConditionValue   -and $RuleType -match "Text|With")             {$rule.Text      = $ConditionValue }
+    if ($ConditionValue   -and
+         $ConditionValue2 -and $RuleType -match "Between")               {$rule.Formula   = $ConditionValue
+                                                                          $rule.Formula2  = $ConditionValue2}
+
+    if ($NumberFormat)        {$rule.Style.NumberFormat.Format        = $NumberFormat }
+    if ($Underline)           {$rule.Style.Font.Underline             = [OfficeOpenXml.Style.ExcelUnderLineType]::Single }
+    if ($Bold)                {$rule.Style.Font.Bold                  = $true}
+    if ($Italic)              {$rule.Style.Font.Italic                = $true}
+    if ($StrikeThru)          {$rule.Style.Font.Strike                = $true}
+    if ($ForeGroundColor)     {$rule.Style.Font.Color.color           = $ForeGroundColor   }
+    if ($BackgroundColor)     {$rule.Style.Fill.BackgroundColor.color = $BackgroundColor   }
+    if ($BackgroundPattern)   {$rule.Style.Fill.PatternType           = $BackgroundPattern }
+    if ($PatternColor)        {$rule.Style.Fill.PatternColor.color    = $PatternColor      }
+}
+
+Function Set-Format {
+<#
+.SYNOPSIS
+    Applies Number, font, alignment and colour formatting to a range of Excel Cells
+.EXAMPLE
+    $sheet.Column(3) | Set-Format -HorizontalAlignment Right -NumberFormat "#,###"
+    Selects column 3 from a sheet object (within a workbook object, which is a child of the ExcelPackage object) and passes it to Set-Format which formats as an integer with comma seperated groups
+.EXAMPLE
+    Set-Format -Address $sheet.Cells["E1:H1048576"]  -HorizontalAlignment Right -NumberFormat "#,###"
+    Instead of piping the address in this version specifies a block of cells and applies similar formatting
+
+#>
+    Param   (
+        #One or more row(s), Column(s) and/or block(s) of cells to format
+        [Parameter(ValueFromPipeline=$true)]
+        [object[]]$Address ,
+        #Number format to apply to cells e.g. "dd/MM/yyyy HH:mm", "£#,##0.00;[Red]-£#,##0.00", "0.00%" , "##/##" , "0.0E+0" etc
+        [Alias("NFormat")]
+        $NumberFormat,
+        #Style of border to draw around the range
+        [OfficeOpenXml.Style.ExcelBorderStyle]$BorderAround,
+        #Colour for the text - if none specified it will be left as it it is
+        [System.Drawing.Color]$FontColor,
+        #Clear Bold, Italic, StrikeThrough and Underline and set colour to black
+        [switch]$ResetFont,
+        #Make text bold
+        [switch]$Bold,
+        #Make text italic
+        [switch]$Italic,
+        #Underline the text using the underline style in -underline type
+        [switch]$Underline,
+        #Should Underline use single or double, normal or accounting mode : default is single normal
+        [OfficeOpenXml.Style.ExcelUnderLineType]$UnderLineType = [OfficeOpenXml.Style.ExcelUnderLineType]::Single,
+        #StrikeThrough text
+        [switch]$StrikeThru,
+        #Subscript or superscript
+        [OfficeOpenXml.Style.ExcelVerticalAlignmentFont]$FontShift,
+        #Font to use - Excel defaults to Calibri
+        [String]$FontName,
+        #Point size for the text
+        [float]$FontSize,
+        #Change background colour
+        [System.Drawing.Color]$BackgroundColor,
+        #Background pattern - solid by default
+        [OfficeOpenXml.Style.ExcelFillStyle]$BackgroundPattern =[OfficeOpenXml.Style.ExcelFillStyle]::Solid ,
+        #Secondary colour for background pattern
+        [Alias("PatternColour")]
+        [System.Drawing.Color]$PatternColor,
+        #Turn on text wrapping
+        [switch]$WrapText,
+        #Position cell contents to left, right or centre ...
+        [OfficeOpenXml.Style.ExcelHorizontalAlignment]$HorizontalAlignment,
+        #Position cell contents to top bottom or centre
+        [OfficeOpenXml.Style.ExcelVerticalAlignment]$VerticalAlignment,
+        #Degrees to rotate text. Up to +90 for anti-clockwise ("upwards"), or to -90 for clockwise.
+        [ValidateRange(-90,90)]
+        [int]$TextRotation ,
+        #Autofit cells to width  (columns or ranges only)
+        [switch]$AutoFit,
+        #Set cells to a fixed width (columns or ranges only), ignored if Autofit is specified
+        [float]$Width,
+        #Set cells to a fixed hieght  (rows or ranges only)
+        [float]$Height,
+        #Hide a row or column  (not a range)
+        [switch]$Hidden
+    )
+    process {
+     Foreach ($range in $Address) {
+        if ($ResetFont)           {$Range.Style.Font.Color.SetColor("Black")
+                                   $Range.Style.Font.Bold          = $false
+                                   $Range.Style.Font.Italic        = $false
+                                   $Range.Style.Font.UnderLine     = $false
+                                   $Range.Style.Font.Strike        = $false
+        }
+        if ($Underline)           {$Range.Style.Font.UnderLine     = $true
+                                   $Range.Style.Font.UnderLineType  =$UnderLineType
+        }
+        if ($Bold)                {$Range.Style.Font.Bold          = $true                }
+        if ($Italic)              {$Range.Style.Font.Italic        = $true                }
+        if ($StrikeThru)          {$Range.Style.Font.Strike        = $true                }
+        if ($FontShift)           {$Range.Style.Font.VerticalAlign = $FontShift           }
+        if ($FontColor)           {$Range.Style.Font.Color.SetColor( $FontColor    )      }
+        if ($BorderAround)         {$Range.Style.Border.BorderAround( $BorderAround )      }
+        if ($NumberFormat)        {$Range.Style.Numberformat.Format= $NumberFormat        }
+        if ($TextRotation)        {$Range.Style.TextRotation       = $TextRotation        }
+        if ($WrapText)            {$Range.Style.WrapText           = $true                }
+        if ($HorizontalAlignment) {$Range.Style.HorizontalAlignment= $HorizontalAlignment }
+        if ($VerticalAlignment)   {$Range.Style.VerticalAlignment  = $VerticalAlignment   }
+
+        if ($BackgroundColor)     {
+                    $Range.Style.Fill.PatternType = $BackgroundPattern
+                    $Range.Style.Fill.BackgroundColor.SetColor($BackgroundColor)
+                    if ($PatternColor) {
+                            $range.Style.Fill.PatternColor.SetColor( $PatternColor)
+                    }
+        }
+
+        if     ($Height)  {
+            if     ($Range -is [OfficeOpenXml.ExcelRow]   ) {$Range.Height = $Height }
+            elseif ($Range -is [OfficeOpenXml.ExcelRange] ) {
+                   ($range.Start.Row)..($range.Start.Row + $range.Rows) |
+                                        ForEach-Object {$ws.Row($_).Height = $Height }
+            }
+            else   {Write-Warning -Message ("Can set the height of a row or a range but not a {0} object" -f ($Range.GetType().name)) }
+        }
+        if     ($AutoFit) {
+            if     ($Range -is [OfficeOpenXml.ExcelColumn]) {$Range.AutoFit() }
+            elseif ($Range -is [OfficeOpenXml.ExcelRange] ) {$Range.AutoFitColumns() }
+            else   {Write-Warning -Message ("Can autofit a column or a range but not a {0} object" -f ($Range.GetType().name)) }
+
+        }
+        elseif ($Width)   {
+            if     ($Range -is [OfficeOpenXml.ExcelColumn]) {$Range.Width = $Width}
+            elseif ($Range -is [OfficeOpenXml.ExcelRange] ) {
+                   ($range.Start.Column)..($range.Start.Column+ $range.Columns) |
+                                      ForEach-Object {$ws.Column($_).Width = $Width}
+            }
+            else   {Write-Warning -Message ("Can set the width of a column or a range but not a {0} object" -f ($Range.GetType().name)) }
+        }
+        if     ($Hidden)  {
+            if ($Range -is [OfficeOpenXml.ExcelRow] -or
+                $Range -is [OfficeOpenXml.ExcelColumn]  ) {$Range.Hidden = $True}
+            else {Write-Warning -Message ("Can hide a row or a column but not a {0} object" -f ($Range.GetType().name)) }
+        }
+      }
+    }
+}
+
+#Argument completer for colours. If we have PS 5 or Tab expansion++ then we'll register it. Otherwise it does nothing.
+Function ColorCompletion{
+    param($commandName, $parameterName, $wordToComplete, $commandAst, $fakeBoundParameter)
+    [System.Drawing.KnownColor].GetFields() | Where-Object {$_.IsStatic -and $_.name -like "$wordToComplete*" } |
+         Sort-Object name | ForEach-Object {New-CompletionResult $_.name $_.name
+    }
+}
+
+if (Get-Command -Name register-argumentCompleter -ErrorAction SilentlyContinue) {
+    Register-ArgumentCompleter -CommandName Export-Excel               -ParameterName TitleBackgroundColor -ScriptBlock $Function:ColorCompletion
+    Register-ArgumentCompleter -CommandName Add-ConditionalFormatting  -ParameterName ForeGroundColor      -ScriptBlock $Function:ColorCompletion
+    Register-ArgumentCompleter -CommandName Add-ConditionalFormatting  -ParameterName DataBarColor         -ScriptBlock $Function:ColorCompletion
+    Register-ArgumentCompleter -CommandName Add-ConditionalFormatting  -ParameterName BackgroundColor      -ScriptBlock $Function:ColorCompletion
+    Register-ArgumentCompleter -CommandName Set-Format                 -ParameterName FontColor            -ScriptBlock $Function:ColorCompletion
+    Register-ArgumentCompleter -CommandName Set-Format                 -ParameterName BackgroundColor      -ScriptBlock $Function:ColorCompletion
+    Register-ArgumentCompleter -CommandName Set-Format                 -ParameterName PatternColor         -ScriptBlock $Function:ColorCompletion
+}