clean up docs\spreadsheet\how-to-insert-a-new-worksheet-into-a-spreadsheet.md

Author: mikeebowen

docs/spreadsheet/how-to-insert-a-new-worksheet-into-a-spreadsheet.md

@@ -11,7 +11,7 @@ ms.suite: office
 ms.author: o365devx
 author: o365devx
 ms.topic: conceptual
-ms.date: 12/12/2023
+ms.date: 01/09/2025
 ms.localizationpriority: high
 ---
 # Insert a new worksheet into a spreadsheet document
@@ -20,25 +20,52 @@ This topic shows how to use the classes in the Open XML SDK for
 Office to insert a new worksheet into a spreadsheet document
 programmatically.
 
+## Getting a SpreadsheetDocument Object
 
+In the Open XML SDK, the <xref:DocumentFormat.OpenXml.Packaging.SpreadsheetDocument> class represents an
+Excel document package. To open and work with an Excel document, you
+create an instance of the `SpreadsheetDocument` class from the document.
+After you create the instance from the document, you can then obtain
+access to the main workbook part that contains the worksheets. The text
+in the document is represented in the package as XML using `SpreadsheetML` markup.
+
+To create the class instance from the document that you call one of the
+<xref:DocumentFormat.OpenXml.Packaging.SpreadsheetDocument.Open*> methods. Several are provided, each
+with a different signature. The sample code in this topic uses the [Open(String, Boolean)](/dotnet/api/documentformat.openxml.packaging.spreadsheetdocument.open?view=openxml-3.0.1#documentformat-openxml-packaging-spreadsheetdocument-open(system-string-system-boolean)) method with a
+signature that requires two parameters. The first parameter takes a full
+path string that represents the document that you want to open. The
+second parameter is either `true` or `false` and represents whether you want the file to
+be opened for editing. Any changes that you make to the document will
+not be saved if this parameter is `false`.
+
+The code that calls the `Open` method is
+shown in the following `using` statement.
+
+### [C#](#tab/cs-1)
+[!code-csharp[](../../samples/spreadsheet/insert_a_new_worksheet/cs/Program.cs#snippet1)]
+
+### [Visual Basic](#tab/vb-1)
+[!code-vb[](../../samples/spreadsheet/insert_a_new_worksheet/vb/Program.vb#snippet1)]
+***
 
 --------------------------------------------------------------------------------
 
 [!include[Structure](../includes/spreadsheet/structure.md)]
 
 --------------------------------------------------------------------------------
-## Sample Code 
+## Sample Code
 
 Following is the complete sample code in both C\# and Visual Basic.
 
 ### [C#](#tab/cs)
-[!code-csharp[](../../samples/spreadsheet/insert_a_new_worksheet/cs/Program.cs)]
+[!code-csharp[](../../samples/spreadsheet/insert_a_new_worksheet/cs/Program.cs#snippet0)]
 
 ### [Visual Basic](#tab/vb)
-[!code-vb[](../../samples/spreadsheet/insert_a_new_worksheet/vb/Program.vb)]
+[!code-vb[](../../samples/spreadsheet/insert_a_new_worksheet/vb/Program.vb#snippet0)]
+***
 
 --------------------------------------------------------------------------------
-## See also 
+## See also
 
 
 [Open XML SDK class library reference](/office/open-xml/open-xml-sdk)

samples/spreadsheet/insert_a_new_worksheet/cs/Program.cs

@@ -2,11 +2,16 @@
 using DocumentFormat.OpenXml.Spreadsheet;
 using System.Linq;
 
+InsertWorksheet(args[0]);
+
 // Given a document name, inserts a new worksheet.
+// <Snippet0>
 static void InsertWorksheet(string docName)
 {
+    // <Snippet1>
     // Open the document for editing.
     using (SpreadsheetDocument spreadSheet = SpreadsheetDocument.Open(docName, true))
+        // </Snippet1>
     {
         WorkbookPart workbookPart = spreadSheet.WorkbookPart ?? spreadSheet.AddWorkbookPart();
         // Add a blank WorksheetPart.
@@ -31,5 +36,4 @@ static void InsertWorksheet(string docName)
         sheets.Append(sheet);
     }
 }
-
-InsertWorksheet(args[0]);
+// </Snippet0>

samples/spreadsheet/insert_a_new_worksheet/vb/Program.vb

@@ -1,41 +1,47 @@
 Imports DocumentFormat.OpenXml.Packaging
 Imports DocumentFormat.OpenXml.Spreadsheet
+Imports System.Linq
 
 Module Program
     Sub Main(args As String())
+        InsertWorksheet(args(0))
     End Sub
 
-
-
     ' Given a document name, inserts a new worksheet.
-    Public Sub InsertWorksheet(ByVal docName As String)
+    ' <Snippet0>
+    Sub InsertWorksheet(docName As String)
+        ' <Snippet1>
         ' Open the document for editing.
-        Dim spreadSheet As SpreadsheetDocument = SpreadsheetDocument.Open(docName, True)
-
-        Using (spreadSheet)
+        Using spreadSheet As SpreadsheetDocument = SpreadsheetDocument.Open(docName, True)
+            ' </Snippet1>
+            Dim workbookPart As WorkbookPart = If(spreadSheet.WorkbookPart, spreadSheet.AddWorkbookPart())
             ' Add a blank WorksheetPart.
-            Dim newWorksheetPart As WorksheetPart = spreadSheet.WorkbookPart.AddNewPart(Of WorksheetPart)()
+            Dim newWorksheetPart As WorksheetPart = workbookPart.AddNewPart(Of WorksheetPart)()
             newWorksheetPart.Worksheet = New Worksheet(New SheetData())
-            ' newWorksheetPart.Worksheet.Save()
 
-            Dim sheets As Sheets = spreadSheet.WorkbookPart.Workbook.GetFirstChild(Of Sheets)()
-            Dim relationshipId As String = spreadSheet.WorkbookPart.GetIdOfPart(newWorksheetPart)
+            Dim sheets As Sheets = If(workbookPart.Workbook.GetFirstChild(Of Sheets)(), workbookPart.Workbook.AppendChild(New Sheets()))
+            Dim relationshipId As String = workbookPart.GetIdOfPart(newWorksheetPart)
 
             ' Get a unique ID for the new worksheet.
             Dim sheetId As UInteger = 1
-            If (sheets.Elements(Of Sheet).Count > 0) Then
-                sheetId = sheets.Elements(Of Sheet).Select(Function(s) s.SheetId.Value).Max + 1
+            If sheets.Elements(Of Sheet)().Count() > 0 Then
+                sheetId = sheets.Elements(Of Sheet)().Select(Function(s) s.SheetId?.Value).Max() + 1
             End If
 
             ' Give the new worksheet a name.
-            Dim sheetName As String = ("Sheet" + sheetId.ToString())
+            Dim sheetName As String = "Sheet" & sheetId
 
             ' Append the new worksheet and associate it with the workbook.
-            Dim sheet As Sheet = New Sheet
-            sheet.Id = relationshipId
-            sheet.SheetId = sheetId
-            sheet.Name = sheetName
+            Dim sheet As New Sheet() With {
+                .Id = relationshipId,
+                .SheetId = sheetId,
+                .Name = sheetName
+            }
             sheets.Append(sheet)
         End Using
     End Sub
-End Module
+    ' </Snippet0>
+End Module
+
+
+