Merge pull request #382 from dfinke/dcf-addCheckForLoadingPSD1

Added try/catch. Expanded aliases

Examples/ConvertFrom/ConvertFrom.ps1

@@ -1,3 +1,4 @@
+try {. $PSScriptRoot\..\..\LoadPSD1.ps1} catch {}
 
 ConvertFrom-ExcelToSQLInsert People .\testSQLGen.xlsx
 

Examples/CustomReporting/CustomReport.ps1

@@ -1,4 +1,4 @@
-Import-Module ..\..\ImportExcel.psd1 -Force
+try {. $PSScriptRoot\..\..\LoadPSD1.ps1} catch {}
 
 $f = ".\dashboard.xlsx"
 Remove-Item $f -ErrorAction Ignore

Examples/ExcelToSQLInsert/DemoSQLInsert.ps1

@@ -1,5 +1,4 @@
-Import-Module ..\..\ImportExcel.psd1 -Force
-
+try {. $PSScriptRoot\..\..\LoadPSD1.ps1} catch {}
 
 ConvertFrom-ExcelToSQLInsert -TableName "Movies" -Path ".\Movies.xlsx" -ConvertEmptyStringsToNull
 ''

Examples/Fibonacci/ShowFibonacci.ps1

@@ -1,15 +1,17 @@
 param ($fibonacciDigits=10)
 
+try {. $PSScriptRoot\..\..\LoadPSD1.ps1} catch {}
+
 $file = "fib.xlsx"
-rm "fib.xlsx" -ErrorAction Ignore
+Remove-Item "fib.xlsx" -ErrorAction Ignore
 
 $(
     New-PSItem 0
     New-PSItem 1
-    
+
     (
         2..$fibonacciDigits |
-            ForEach {
+            ForEach-Object {
                 New-PSItem ('=a{0}+a{1}' -f ($_+1),$_)
             }
     )

Examples/FormatCellStyles/ApplyFormatInScriptBlock.ps1

@@ -1,12 +1,16 @@
+try {. $PSScriptRoot\..\..\LoadPSD1.ps1} catch {}
+
+$xlfile = "$env:temp\testFmt.xlsx"
+
 Get-Process |
-    Select-Object Company,Handles,PM, NPM| 
+    Select-Object Company,Handles,PM, NPM|
     Export-Excel $xlfile -Show  -AutoSize -CellStyleSB {
         param(
             $workSheet,
             $totalRows,
             $lastColumn
         )
-                
+
         Set-CellStyle $workSheet 1 $LastColumn Solid Cyan
 
         foreach($row in (2..$totalRows | Where-Object {$_ % 2 -eq 0})) {

Examples/FormatCellStyles/PassInScriptBlock.ps1

@@ -1,9 +1,14 @@
+try {. $PSScriptRoot\..\..\LoadPSD1.ps1} catch {}
+
+$xlfile = "$env:temp\testFmt.xlsx"
+Remove-Item $xlfile -ErrorAction Ignore
+
 $RandomStyle = {
     param(
         $workSheet,
         $totalRows,
         $lastColumn
-    )    
+    )
 
     2..$totalRows | ForEach-Object{
         Set-CellStyle $workSheet $_ $LastColumn Solid (Write-Output LightGreen Gray Red|Get-Random)
@@ -11,5 +16,5 @@ $RandomStyle = {
 }
 
 Get-Process |
-    Select-Object Company,Handles,PM, NPM| 
+    Select-Object Company,Handles,PM, NPM|
     Export-Excel $xlfile -Show  -AutoSize -CellStyleSB $RandomStyle

Examples/ImportHtml/DemoGraphics.ps1

@@ -1,2 +1,4 @@
+try {. $PSScriptRoot\..\..\LoadPSD1.ps1} catch {}
+
 
 Import-Html "http://en.wikipedia.org/wiki/Demographics_of_India" 4

Examples/ImportHtml/PeriodicElements.ps1

@@ -1 +1,3 @@
+try {. $PSScriptRoot\..\..\LoadPSD1.ps1} catch {}
+
 Import-Html "http://www.science.co.il/PTelements.asp" 1

Examples/ImportHtml/StarTrek.ps1

@@ -1 +1,3 @@
+try {. $PSScriptRoot\..\..\LoadPSD1.ps1} catch {}
+
 Import-Html "https://en.wikipedia.org/wiki/List_of_Star_Trek:_The_Original_Series_episodes" 2

Examples/JustCharts/CentralLimitTheorem.ps1

@@ -1,4 +1,6 @@
-ColumnChart -Title "Central Limit Theorem" -NoLegend ($(
+try {. $PSScriptRoot\..\..\LoadPSD1.ps1} catch {}
+
+ColumnChart -Title "Central Limit Theorem" -NoLegend ($(
         for ($i = 1; $i -le 500; $i++) {
             $s = 0
             for ($j = 1; $j -le 100; $j++) {

Examples/JustCharts/PieChartHandles.ps1

@@ -2,5 +2,7 @@
 # Sum up handles by company
 # Show the Pie Chart
 
+try {. $PSScriptRoot\..\..\LoadPSD1.ps1} catch {}
+
 PieChart -Title "Total Handles by Company" `
-    (Invoke-Sum (Get-Process|Where company) company handles)
+    (Invoke-Sum (Get-Process | Where-Object company) company handles)

Examples/JustCharts/PieChartPM.ps1

@@ -2,6 +2,8 @@
 # Sum up PM by company
 # Show the Pie Chart
 
-PieChart -Title "Total PM by Company" `
-    (Invoke-Sum (Get-Process|Where company) company pm)
+try {. $PSScriptRoot\..\..\LoadPSD1.ps1} catch {}
+
+PieChart -Title "Total PM by Company" `
+    (Invoke-Sum (Get-Process|Where-Object company) company pm)
 

Examples/JustCharts/TryBarChart.ps1

@@ -1 +1,3 @@
+try {. $PSScriptRoot\..\..\LoadPSD1.ps1} catch {}
+
 BarChart (.\TargetData.ps1) "A BarChart"

Examples/JustCharts/TryColumnChart.ps1

@@ -1 +1,3 @@
+try {. $PSScriptRoot\..\..\LoadPSD1.ps1} catch {}
+
 ColumnChart (.\TargetData.ps1) "A ColumnChart"

Examples/JustCharts/TryPieChart.ps1

@@ -1 +1,3 @@
+try {. $PSScriptRoot\..\..\LoadPSD1.ps1} catch {}
+
 PieChart (.\TargetData.ps1) "A PieChart"

Examples/Nasa/FireBalls.ps1

@@ -1,3 +1,5 @@
+try {. $PSScriptRoot\..\..\LoadPSD1.ps1} catch {}
+
 $header = echo `
     'Date/Time - Peak Brightness (UT)' `
     'Latitude (Deg)' `
@@ -12,8 +14,8 @@ $header = echo `
 
 $splat=@{
     url='http://neo.jpl.nasa.gov/fireballs/'
-    index=5 
-    Header=$header     
+    index=5
+    Header=$header
     FirstDataRow=1
 }
 

Examples/NumberFormat/ColorizeNumbers.ps1

@@ -1,6 +1,8 @@
+try {. $PSScriptRoot\..\..\LoadPSD1.ps1} catch {}
+
 $file = "disks.xlsx"
 
-rm $file -ErrorAction Ignore
+Remove-Item $file -ErrorAction Ignore
 
 $data = $(
     New-PSItem 100 -100

Examples/NumberFormat/CurrencyFormat.ps1

@@ -1,6 +1,8 @@
+try {. $PSScriptRoot\..\..\LoadPSD1.ps1} catch {}
+
 $file = "disks.xlsx"
 
-rm $file -ErrorAction Ignore
+Remove-Item $file -ErrorAction Ignore
 
 $data = $(
     New-PSItem 100 -100

Examples/NumberFormat/PercentagFormat.ps1

@@ -1,6 +1,8 @@
+try {. $PSScriptRoot\..\..\LoadPSD1.ps1} catch {}
+
 $file = "disks.xlsx"
 
-rm $file -ErrorAction Ignore
+Remove-Item $file -ErrorAction Ignore
 
 $data = $(
     New-PSItem 1

Examples/NumberFormat/PosNegNumbers.ps1

@@ -1,6 +1,8 @@
+try {. $PSScriptRoot\..\..\LoadPSD1.ps1} catch {}
+
 $file = "disks.xlsx"
 
-rm $file -ErrorAction Ignore
+Remove-Item $file -ErrorAction Ignore
 
 $data = $(
     New-PSItem 100 -100

Examples/NumberFormat/Win32LogicalDisk.ps1

@@ -1,7 +1,9 @@
+try {. $PSScriptRoot\..\..\LoadPSD1.ps1} catch {}
+
 $file = "disks.xlsx"
 
-rm $file -ErrorAction Ignore
+Remove-Item $file -ErrorAction Ignore
 
-Get-CimInstance win32_logicaldisk -filter "drivetype=3" | 
-    Select DeviceID,Volumename,Size,Freespace | 
+Get-CimInstance win32_logicaldisk -filter "drivetype=3" |
+    Select-Object DeviceID,Volumename,Size,Freespace |
     Export-Excel -Path $file -Show -AutoSize -NumberFormat "0"

Examples/NumberFormat/Win32LogicalDiskFormatted.ps1

@@ -1,7 +1,9 @@
+try {. $PSScriptRoot\..\..\LoadPSD1.ps1} catch {}
+
 $file = "disks.xlsx"
 
-rm $file -ErrorAction Ignore
+Remove-Item $file -ErrorAction Ignore
 
-Get-CimInstance win32_logicaldisk -filter "drivetype=3" | 
-    Select DeviceID,Volumename,Size,Freespace | 
+Get-CimInstance win32_logicaldisk -filter "drivetype=3" |
+    Select-Object DeviceID,Volumename,Size,Freespace |
     Export-Excel -Path $file -Show -AutoSize

Examples/PassThru/TryPassThru.ps1

@@ -1,6 +1,8 @@
+try {. $PSScriptRoot\..\..\LoadPSD1.ps1} catch {}
+
 $file = "sales.xlsx"
 
-rm $file -ErrorAction Ignore
+Remove-Item $file -ErrorAction Ignore
 
 $xlPkg = Import-Csv .\sales.csv | Export-Excel $file -PassThru
 
@@ -9,8 +11,8 @@ $ws = $xlPkg.Workbook.WorkSheets[1]
 $ws.Cells["E1"].Value = "TotalSold"
 $ws.Cells["F1"].Value = "Add 10%"
 
-2..($ws.Dimension.Rows) | 
-    ForEach {
+2..($ws.Dimension.Rows) |
+    ForEach-Object {
         $ws.Cells["E$_"].Formula = "=C$_+D$_"
         $ws.Cells["F$_"].Formula = "=E$_+(10%*(C$_+D$_))"
     }

Examples/PivotTable/PivotTableWithName.ps1

@@ -1,4 +1,4 @@
-Import-Module ..\..\ImportExcel.psd1 -Force
+try {. $PSScriptRoot\..\..\LoadPSD1.ps1} catch {}
 
 Remove-Item .\test1.xlsx -ErrorAction Ignore
 

Examples/PivotTableFilters/testPivotFilter.ps1

@@ -1,4 +1,4 @@
-Import-Module ..\..\ImportExcel.psd1 -Force
+try {. $PSScriptRoot\..\..\LoadPSD1.ps1} catch {}
 
 $xlFile=".\testPivot.xlsx"
 Remove-Item $xlFile -ErrorAction Ignore

Examples/Plot/PlotCos.ps1

@@ -1,3 +1,5 @@
+try {. $PSScriptRoot\..\..\LoadPSD1.ps1} catch {}
+
 $plt = New-Plot
 $plt.Plot((Get-Range 0 5 .02|%{[math]::Cos(2*[math]::pi*$_)}))
 $plt.SetChartSize(800,300)

Examples/SQL+FillColumns+Pivot/Example.ps1

@@ -1,33 +1,33 @@
- Import-Module -name ImportExcel -Force -Verbose                                                                                                                 
+try {. $PSScriptRoot\..\..\LoadPSD1.ps1} catch {}
 
 $sql           = @"
-  SELECT     rootfile.baseName     ,  rootfile.extension   , Image.fileWidth         AS width             ,  image.fileHeight AS height ,  
+  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.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   
+             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.  
+ LEFT JOIN   AgInternedExifCameraModel    Camera  ON     Camera.id_local =  metadata.cameraModelRef
+"@
 
-$pt = @{"LensPivot" = @{ "PivotTableName"    =   "LensPivot"; 
+#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 ; 
+                         "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`")," +
@@ -37,52 +37,52 @@ $Svalue        = {"=IF(P$ROW>2,TEXT(ROUND(POWER(2,P$ROW),0),`"`"`"1/`"`"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 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. 
+#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" 
+#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-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 
+  Set-Format -Address      $e.workbook.Worksheets["sheet1" ].Column($_) -Hidden
 }
 
-#Center the column labels.  
+#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 
+#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"] 
+$session =  $DbSessions["f1"]
 $SQL     =  @"
-    SELECT TOP 25 DriverName, 
+    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 
+                  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 
+#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"} 
+#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.  
+#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 
+Export-Excel -ExcelPackage $Excel -WorkSheetname "Winners" -AutoNameRange -ExcelChartDefinition $chart -Show
 

Examples/SQL+FillColumns+Pivot/Example2.ps1

@@ -1,17 +1,17 @@
-ipmo C:\Users\mcp\Documents\GitHub\ImportExcel\ImportExcel.psd1 -Force
+try {. $PSScriptRoot\..\..\LoadPSD1.ps1} catch {}
 
 Get-SQL -Session f1 -Excel  -Connection C:\Users\mcp\OneDrive\Public\F1\f1Results.xlsx -showtables -Verbose
 
-del .\demo3.xlsx
+Remove-Item .\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  
+$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"] 
+$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

Examples/SetColumnBackgroundColor/SetColumnBackgroundColor.ps1

@@ -1,9 +1,10 @@
-
-$p = ps | select Company, Handles | Export-Excel c:\temp\testBackgroundColor.xlsx -ClearSheet -KillExcel -PassThru
+try {. $PSScriptRoot\..\..\LoadPSD1.ps1} catch {}
+
+$p = Get-Process | Select-Object 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
+Export-Excel -ExcelPackage $p -show -AutoSize

Examples/SpreadsheetCells/CalculatedFields.ps1

@@ -1,11 +1,14 @@
-. ..\New-PSItem.ps1
+try {. $PSScriptRoot\..\..\LoadPSD1.ps1} catch {}
 
-rm *.xlsx
+
+#. ..\New-PSItem.ps1
+
+Remove-Item *.xlsx
 
 $(
     New-PSItem 12001 Nails  37  3.99 =C2*D2 (echo ID Product Quantity Price Total)
     New-PSItem 12002 Hammer  5 12.10 =C3*D3
     New-PSItem 12003 Saw    12 15.37 =C4*D4
     New-PSItem 12010 Drill  20  8    =C5*D5
-    New-PSItem 12011 Crowbar 7 23.48 =C6*D6    
+    New-PSItem 12011 Crowbar 7 23.48 =C6*D6
 ) | Export-Excel functions.xlsx -AutoSize -Show

Examples/SpreadsheetCells/ExcelFormulasUsingAddMember.ps1

@@ -1,3 +1,5 @@
+try {. $PSScriptRoot\..\..\LoadPSD1.ps1} catch {}
+
 Remove-Item .\testFormula.xlsx -ErrorAction Ignore
 
 @"

Examples/SpreadsheetCells/ExcelFunctions.ps1

@@ -1,12 +1,12 @@
-. ..\New-PSItem.ps1
+try {. $PSScriptRoot\..\..\LoadPSD1.ps1} catch {}
 
-rm *.xlsx
+Remove-Item *.xlsx
 
 $(
     New-PSItem =2%/12 60 500000 "=pmt(rate,nper,pv)" (echo rate nper pv pmt)
-    New-PSItem =3%/12 60 500000 "=pmt(rate,nper,pv)" 
-    New-PSItem =4%/12 60 500000 "=pmt(rate,nper,pv)" 
-    New-PSItem =5%/12 60 500000 "=pmt(rate,nper,pv)" 
-    New-PSItem =6%/12 60 500000 "=pmt(rate,nper,pv)" 
-    New-PSItem =7%/12 60 500000 "=pmt(rate,nper,pv)" 
+    New-PSItem =3%/12 60 500000 "=pmt(rate,nper,pv)"
+    New-PSItem =4%/12 60 500000 "=pmt(rate,nper,pv)"
+    New-PSItem =5%/12 60 500000 "=pmt(rate,nper,pv)"
+    New-PSItem =6%/12 60 500000 "=pmt(rate,nper,pv)"
+    New-PSItem =7%/12 60 500000 "=pmt(rate,nper,pv)"
 ) | Export-Excel functions.xlsx -AutoNameRange -AutoSize -Show

Examples/SpreadsheetCells/HyperLink.ps1

@@ -1,8 +1,10 @@
-rm *.xlsx
+try {. $PSScriptRoot\..\..\LoadPSD1.ps1} catch {}
+
+Remove-Item *.xlsx
 
 $(
     New-PSItem '=Hyperlink("http://dougfinke.com/blog","Doug Finke")' @("Link")
     New-PSItem '=Hyperlink("http://blogs.msdn.com/b/powershell/","PowerShell Blog")'
     New-PSItem '=Hyperlink("http://blogs.technet.com/b/heyscriptingguy/","Hey, Scripting Guy")'
-    
-) | Export-Excel hyperlink.xlsx -AutoSize -Show 
+
+) | Export-Excel hyperlink.xlsx -AutoSize -Show

Examples/Stocks/Get-StockInfo.ps1

@@ -1,3 +1,7 @@
+<#
+    Revisit I think yahoo deprecated their service
+#>
+
 function Get-StockInfo {
     param(
         $stock,
@@ -7,15 +11,15 @@ function Get-StockInfo {
 
     Process {
 
-    if(!$endDate) { $endDate = $startDate}
+        if (!$endDate) { $endDate = $startDate}
 
-    $baseUrl = "http://query.yahooapis.com/v1/public/yql?q="
-    $q = @"
+        $baseUrl = "http://query.yahooapis.com/v1/public/yql?q="
+        $q = @"
 select * from yahoo.finance.historicaldata where symbol = "$($stock)" and startDate = "$($startDate.ToString('yyyy-MM-dd'))" and endDate = "$($endDate.ToString('yyyy-MM-dd'))"
 "@
-    $suffix = "&env=store://datatables.org/alltableswithkeys&format=json"
-    $r=Invoke-RestMethod ($baseUrl + $q + $suffix)
-    $r.query.results.quote
+        $suffix = "&env=store://datatables.org/alltableswithkeys&format=json"
+        $r = Invoke-RestMethod ($baseUrl + $q + $suffix)
+        $r.query.results.quote
 
     }
 }

Examples/Stocks/GetMSFT.ps1

@@ -1,14 +1,20 @@
-$Symbol = "MSFT"
+<#
+    Revisit I think yahoo deprecated their service
+#>
 
-. .\Get-StockInfo.ps1
+# try {. $PSScriptRoot\..\..\LoadPSD1.ps1} catch {}
 
-rm *.xlsx
+# $Symbol = "MSFT"
 
-$chart = New-ExcelChart -XRange Date -YRange Volume `
-    -ChartType ColumnStacked `
-    -Column 9 -Title "$Symbol Volume"
+# . .\Get-StockInfo.ps1
 
-Get-StockInfo $Symbol 11/2 11/30 | 
-    Export-Excel .\stocks.xlsx -Show `
-    -AutoSize -AutoNameRange `
-    -ExcelChartDefinition $chart
+# Remove-Item *.xlsx -ErrorAction Ignore
+
+# $chart = New-ExcelChart -XRange Date -YRange Volume `
+#     -ChartType ColumnStacked `
+#     -Column 9 -Title "$Symbol Volume"
+
+# Get-StockInfo $Symbol 11/2 11/30 |
+#     Export-Excel .\stocks.xlsx -Show `
+#     -AutoSize -AutoNameRange `
+#     -ExcelChartDefinition $chart

Examples/Tables/MultipleTables.ps1

@@ -1,38 +1,40 @@
-$xlfile = "testData.xlsx"
-rm *.xlsx
+try {. $PSScriptRoot\..\..\LoadPSD1.ps1} catch {}
 
-$r = dir C:\WINDOWS\system32 
+$xlfile = "testData.xlsx"
+Remove-Item *.xlsx
+
+$r = Get-ChildItem C:\WINDOWS\system32
 
 $BySize=@{}
-$r | ForEach{ $BySize.($_.extension)+=$_.length }
+$r | ForEach-Object{ $BySize.($_.extension)+=$_.length }
 
-$top10BySize = $BySize.GetEnumerator() | 
-    ForEach{ [PSCustomObject]@{Name=$_.key;Size=[double]$_.value} } | 
-    Sort size -Descending | 
-    Select -First 10
+$top10BySize = $BySize.GetEnumerator() |
+    ForEach-Object{ [PSCustomObject]@{Name=$_.key;Size=[double]$_.value} } |
+    Sort-Object size -Descending |
+    Select-Object -First 10
 
-$top10ByCount = $r.extension | 
-    Group | 
-    Sort count -Descending | 
-    Select -First 10 Name, count
+$top10ByCount = $r.extension |
+    Group-Object |
+    Sort-Object count -Descending |
+    Select-Object -First 10 Name, count
 
-$top10ByFileSize = $r | 
-    Sort length -Descending | 
-    Select -First 10 Name, @{n="Size";e={$_.Length}} #,Extension,Path
+$top10ByFileSize = $r |
+    Sort-Object length -Descending |
+    Select-Object -First 10 Name, @{n="Size";e={$_.Length}} #,Extension,Path
 
 
 $top10BySize     | Export-Excel $xlfile -WorkSheetname FileInfo -TableName ExtSize
 $top10ByCount    | Export-Excel $xlfile -WorkSheetname FileInfo -StartRow 13 -TableName ExtCount
 $top10ByFileSize | Export-Excel $xlfile -WorkSheetname FileInfo -StartRow 25 -AutoSize -TableName FileSize
 
-$ps = ps | ? Company 
+$ps = Get-Process | Where-Object Company
 
-$ps | 
-    sort handles -Descending | 
-    select -First 10 company, handles | 
+$ps |
+    Sort-Object handles -Descending |
+    Select-Object -First 10 company, handles |
     Export-Excel $xlfile -WorkSheetname Handles -AutoSize -TableName Handles
 
-$ps | 
-    sort PM -Descending | 
-    select -First 10 company, PM | 
+$ps |
+    Sort-Object PM -Descending |
+    Select-Object -First 10 company, PM |
     Export-Excel $xlfile -WorkSheetname Handles -AutoSize -TableName PM -StartRow 13 -Show

Examples/XlRangeToImage/XlRangeToImage.ps1

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