Merge pull request OfficeDev#312 from ssdatye/patch-2

Update Program.vb to correctly handle IDisposable objects

Author: lindalu-MSFT

samples/spreadsheet/working_with_sheets/vb/Program.vb

@@ -8,51 +8,52 @@ Module MyModule
     End Sub
 
     Public Sub CreateSpreadsheetWorkbookWithNumValue(ByVal filepath As String)
-        ' Create a spreadsheet document by supplying the filepath.
-        ' By default, AutoSave = true, Editable = true, and Type = xlsx.
-        Dim spreadsheetDocument As SpreadsheetDocument = SpreadsheetDocument.Create(filepath, SpreadsheetDocumentType.Workbook)
-
-        ' Add a WorkbookPart to the document.
-        Dim workbookpart As WorkbookPart = spreadsheetDocument.AddWorkbookPart()
-        workbookpart.Workbook = New Workbook()
-
-        ' Add a WorksheetPart to the WorkbookPart.
-        Dim worksheetPart As WorksheetPart = workbookpart.AddNewPart(Of WorksheetPart)()
-        worksheetPart.Worksheet = New Worksheet(New SheetData())
-
-        ' Add Sheets to the Workbook.
-        Dim sheets As Sheets = spreadsheetDocument.WorkbookPart.Workbook.AppendChild(Of Sheets)(New Sheets())
-
-        ' Append a new worksheet and associate it with the workbook.
-        Dim sheet As New Sheet() With {.Id = spreadsheetDocument.WorkbookPart.GetIdOfPart(worksheetPart), .SheetId = 1, .Name = "mySheet"}
-        sheets.Append(sheet)
-
-        ' Get the sheetData cell table.
-        Dim sheetData As SheetData = worksheetPart.Worksheet.GetFirstChild(Of SheetData)()
-
-        ' Add a row to the cell table.
-        Dim row As Row
-        row = New Row() With {.RowIndex = 1}
-        sheetData.Append(row)
-
-        ' In the new row, find the column location to insert a cell in A1.  
-        Dim refCell As Cell = Nothing
-        For Each cell As Cell In row.Elements(Of Cell)()
-            If String.Compare(cell.CellReference.Value, "A1", True) > 0 Then
-                refCell = cell
-                Exit For
-            End If
-        Next
-
-        ' Add the cell to the cell table at A1.
-        Dim newCell As New Cell() With {.CellReference = "A1"}
-        row.InsertBefore(newCell, refCell)
-
-        ' Set the cell value to be a numeric value of 100.
-        newCell.CellValue = New CellValue("100")
-        newCell.DataType = New EnumValue(Of CellValues)(CellValues.Number)
-
-        ' Dispose the document.
-        spreadsheetDocument.Dispose()
+        ' Use 'Using' block to ensure proper disposal of the document
+        Using spreadsheetDocument As SpreadsheetDocument = SpreadsheetDocument.Create(filepath, SpreadsheetDocumentType.Workbook)
+
+            ' Add a WorkbookPart to the document.
+            Dim workbookpart As WorkbookPart = spreadsheetDocument.AddWorkbookPart()
+            workbookpart.Workbook = New Workbook()
+
+            ' Add a WorksheetPart to the WorkbookPart.
+            Dim worksheetPart As WorksheetPart = workbookpart.AddNewPart(Of WorksheetPart)()
+            worksheetPart.Worksheet = New Worksheet(New SheetData())
+
+            ' Add Sheets to the Workbook.
+            Dim sheets As Sheets = spreadsheetDocument.WorkbookPart.Workbook.AppendChild(Of Sheets)(New Sheets())
+
+            ' Append a new worksheet and associate it with the workbook.
+            Dim sheet As New Sheet() With {.Id = spreadsheetDocument.WorkbookPart.GetIdOfPart(worksheetPart), .SheetId = 1, .Name = "mySheet"}
+            sheets.Append(sheet)
+
+            ' Get the sheetData cell table.
+            Dim sheetData As SheetData = worksheetPart.Worksheet.GetFirstChild(Of SheetData)()
+
+            ' Add a row to the cell table.
+            Dim row As New Row() With {.RowIndex = 1}
+            sheetData.Append(row)
+
+            ' In the new row, find the column location to insert a cell in A1.  
+            Dim refCell As Cell = Nothing
+            For Each cell As Cell In row.Elements(Of Cell)()
+                If String.Compare(cell.CellReference.Value, "A1", True) > 0 Then
+                    refCell = cell
+                    Exit For
+                End If
+            Next
+
+            ' Add the cell to the cell table at A1.
+            Dim newCell As New Cell() With {.CellReference = "A1"}
+            row.InsertBefore(newCell, refCell)
+
+            ' Set the cell value to be a numeric value of 100.
+            newCell.CellValue = New CellValue("100")
+            newCell.DataType = New EnumValue(Of CellValues)(CellValues.Number)
+
+            ' Explicitly save the worksheet part and workbook part
+            worksheetPart.Worksheet.Save()
+            workbookpart.Workbook.Save()
+
+        End Using ' This will automatically dispose of the spreadsheetDocument
     End Sub
-End Module
+End Module