From 6166f0e87c47f5810419469b4c2cea27d3020113 Mon Sep 17 00:00:00 2001
From: dfinke <finked@hotmail.com>
Date: Fri, 9 Sep 2022 19:04:37 -0400
Subject: [PATCH] Use Copy method to copy ranges from one sheet to another

---
 .../CopyFromOneSheetInSameWorkbook.ps1        | 29 +++++++++++++++++++
 1 file changed, 29 insertions(+)
 create mode 100644 Examples/CopyRange/CopyFromOneSheetInSameWorkbook.ps1

diff --git a/Examples/CopyRange/CopyFromOneSheetInSameWorkbook.ps1 b/Examples/CopyRange/CopyFromOneSheetInSameWorkbook.ps1
new file mode 100644
index 0000000..a9fbfab
--- /dev/null
+++ b/Examples/CopyRange/CopyFromOneSheetInSameWorkbook.ps1
@@ -0,0 +1,29 @@
+<#
+    Copy a range from WorksheetA to WorksheetB
+#>
+
+$data = ConvertFrom-Csv @"
+Region,State,Units,Price
+West,Texas,927,923.71
+North,Tennessee,466,770.67
+East,Florida,520,458.68
+East,Maine,828,661.24
+West,Virginia,465,053.58
+North,Missouri,436,235.67
+South,Kansas,214,992.47
+North,North Dakota,789,640.72
+South,Delaware,712,508.55
+"@
+
+$xlfile = "./test.xlsx"
+Remove-Item $xlfile -ErrorAction SilentlyContinue
+
+$data | Export-Excel $xlfile -WorksheetName WorksheetA
+$data | Export-Excel $xlfile -WorksheetName WorksheetB 
+
+$excel = Open-ExcelPackage $xlfile
+
+# Copy a range from WorksheetA to WorksheetB 
+$excel.WorksheetA.Cells["A3:B5"].Copy($excel.WorksheetB.Cells["G3"])
+
+Close-ExcelPackage $excel -Show
\ No newline at end of file