Ошибки при открытии файла Excel, созданного Open XML

Question

Я начал использовать Open XML для создания файла Excel, чтобы добавить к нему некоторые данные. Пример файла, который я включил, - это модифицированная версия примера, который я нашел в Интернете. Он создает файл excel, но когда я пытаюсь его открыть, он дает мне три ошибки. Я подозреваю, что последние две ошибки связаны с добавлением StyleIndex для ячейки заголовка, но первая ошибка появилась недавно при открытии любого файла Excel.

1- Нельзя использовать привязку и вложение объектов.

2- Excel нашел нечитаемый контент в «SheetPInfo.xlsx». Вы хотите восстановить содержимое этой книги? Если вы доверяете источнику этой книги, нажмите «Да».

3-Excel смог открыть файл, восстановив или удалив нечитаемый контент. Отремонтированные записи: информация о ячейке из /xl/worksheets/sheet.xml part

Я также получаю данные/массив в файле после закрытия последнего сообщения об ошибке, но StyleIndex (более крупный шрифт) не отображается в ячейке заголовка 'Фамилия'.

Что могло быть неправильно? Когда я искал в Интернете, порядок строк очень важен для Excel, поэтому я подумал, что, может быть, мои строки, связанные с StyleIndex, находятся в неправильных местах.

Любая помощь будет оценена в значительной степени.

Imports System.Linq 
Imports DocumentFormat.OpenXml 
Imports DocumentFormat.OpenXml.Packaging 
Imports DocumentFormat.OpenXml.Spreadsheet 
Public Class TestEcel10 
    Inherits System.Web.UI.Page 

    Private mFileName As String = "SheetPInfo.xlsx" 
    Private mFileLocation As String = "c:\Contracts\" & mFileName 
    Private newSpreadSheet As SpreadsheetDocument 

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load 

    End Sub 
    Private Sub btnExportToExcel_Click(sender As Object, e As EventArgs) Handles btnExportToExcel.Click 

     Dim wsp As WorksheetPart = Spreadsheet_Create() 

     Dim PInfoArr(2, 3) As String 
     PInfoArr(0, 0) = "Frank" 
     PInfoArr(0, 1) = "Baker" 
     PInfoArr(0, 2) = "2/18/1977" 
     PInfoArr(0, 3) = "Frank" 

     PInfoArr(1, 0) = "William" 
     PInfoArr(1, 1) = "Cook" 
     PInfoArr(1, 2) = "2/18/1987" 
     PInfoArr(1, 3) = "Bill" 

     PInfoArr(2, 0) = "Nancy" 
     PInfoArr(2, 1) = "Williams" 
     PInfoArr(2, 2) = "2/18/1973" 
     PInfoArr(2, 3) = "Nancy" 

     InsertText(wsp, PInfoArr) 
     Spreadsheet_Close() 
    End Sub 'End of btnExportToExcel_Click Sub 

    Private Function Spreadsheet_Create() As WorksheetPart 
     'Delete the file if exists 
     If My.Computer.FileSystem.FileExists(mFileLocation) Then 
      My.Computer.FileSystem.DeleteFile(mFileLocation) 
     End If 

     'Create spreadsheet 
     newSpreadSheet = SpreadsheetDocument.Create(mFileLocation, SpreadsheetDocumentType.Workbook) 

     'Add WorkbookPart & Workbook 
     Dim newWorkbookPart As WorkbookPart = newSpreadSheet.AddWorkbookPart 
     newWorkbookPart.Workbook = New Workbook() 

     'Add Worksheet 
     Return InsertWorksheet(newSpreadSheet.WorkbookPart) 
    End Function 'End of Spreadsheet_Create function 

    Private Sub Spreadsheet_Close() 
     newSpreadSheet.WorkbookPart.Workbook.Save() 
     newSpreadSheet.Close() 
    End Sub 'End of Spreadsheet_Close sub 

    Public Sub InsertText(ByVal wsp As WorksheetPart, ByVal PInfoArray As String(,)) 
     ' Get the SharedStringTablePart. If it does not exist, create a new one. 
     Dim shareStringPart As SharedStringTablePart 
     If (newSpreadSheet.WorkbookPart.GetPartsOfType(Of SharedStringTablePart).Count() > 0) Then 
      shareStringPart = newSpreadSheet.WorkbookPart.GetPartsOfType(Of SharedStringTablePart).First() 
     Else 
      shareStringPart = newSpreadSheet.WorkbookPart.AddNewPart(Of SharedStringTablePart)() 
     End If 

     Dim index As Integer = 0 
     Dim i As Integer = 0 
     Dim j As Integer = 0 
     Dim cell As Cell 

     'Inserting column headings: 

     ' Insert the text into the SharedStringTablePart. 
     index = InsertSharedStringItem("First Name", shareStringPart) 
     ' Insert cell A1 into the new worksheet. 
     cell = InsertCellInWorksheet("A", 1, wsp) 
     ' Set the value of cell A1. 
     cell.CellValue = New CellValue(index.ToString) 
     cell.DataType = New EnumValue(Of CellValues)(CellValues.SharedString) 

     ' Insert the text into the SharedStringTablePart. 
     index = InsertSharedStringItem("Last Name", shareStringPart) 
     Dim styleIndex As UInt32Value = Convert.ToInt32("36") 
     ' Insert cell A1 into the new worksheet. 
     cell = InsertCellInWorksheet("B", 1, wsp) 
     ' Set the value of cell A1. 
     cell.CellValue = New CellValue(index.ToString) 
     cell.StyleIndex = styleIndex 
     cell.DataType = New EnumValue(Of CellValues)(CellValues.SharedString) 

     ' Insert the text into the SharedStringTablePart. 
     index = InsertSharedStringItem("Birth Date", shareStringPart) 
     ' Insert cell A1 into the new worksheet. 
     cell = InsertCellInWorksheet("C", 1, wsp) 
     ' Set the value of cell A1. 
     cell.CellValue = New CellValue(index.ToString) 
     cell.DataType = New EnumValue(Of CellValues)(CellValues.SharedString) 

     ' Insert the text into the SharedStringTablePart. 
     index = InsertSharedStringItem("Nick Name", shareStringPart) 
     ' Insert cell A1 into the new worksheet. 
     cell = InsertCellInWorksheet("D", 1, wsp) 
     ' Set the value of cell A1. 
     cell.CellValue = New CellValue(index.ToString) 
     cell.DataType = New EnumValue(Of CellValues)(CellValues.SharedString) 

     'For column data we start from index 2 and increase it as we go to the next row 
     Dim Rowindex As Integer = 2 
     Dim ColumnLetter As String = "A" 

     'Inserting column data: 
     For i = 0 To UBound(PInfoArray, 1) 

      For j = 0 To UBound(PInfoArray, 2) 

       ' Insert the text into the SharedStringTablePart. 
       index = InsertSharedStringItem(PInfoArray(i, j), shareStringPart) 
       'Set the 
       If j = 0 Then 
        ColumnLetter = "A" 
       ElseIf j = 1 Then 
        ColumnLetter = "B" 
       ElseIf j = 2 Then 
        ColumnLetter = "C" 
       ElseIf j = 3 Then 
        ColumnLetter = "D" 
       End If 
       ' Insert cell A1 into the new worksheet. 
       cell = InsertCellInWorksheet(ColumnLetter, Rowindex, wsp) 
       ' Set the value of cell A1. 
       cell.CellValue = New CellValue(index.ToString) 
       cell.DataType = New EnumValue(Of CellValues)(CellValues.SharedString) 

       If ColumnLetter = "D" Then 
        Rowindex = Rowindex + 1 
       End If 
      Next 
     Next 

     ' Save the new worksheet. 
     wsp.Worksheet.Save() 
    End Sub 'End of InsertText sub 

    ' Given text and a SharedStringTablePart, creates a SharedStringItem with the specified text 
    ' and inserts it into the SharedStringTablePart. If the item already exists, returns its index. 
    Private Function InsertSharedStringItem(ByVal text As String, ByVal shareStringPart As SharedStringTablePart) As Integer 
     'If the part does not contain a SharedStringTable, create one 
     If (shareStringPart.SharedStringTable Is Nothing) Then 
      shareStringPart.SharedStringTable = New SharedStringTable 
     End If 

     Dim i As Integer = 0 
     'Iterate through all the items in the SharedStringTable. If the text already exists, return its index 
     For Each item As SharedStringItem In shareStringPart.SharedStringTable.Elements(Of SharedStringItem)() 
      If (item.InnerText = text) Then 
       Return i 
      End If 
      i = (i + 1) 
     Next 

     'The text does not exist in the part. Create the SharedStringItem and return its index 
     shareStringPart.SharedStringTable.AppendChild(New SharedStringItem(New DocumentFormat.OpenXml.Spreadsheet.Text(text))) 
     shareStringPart.SharedStringTable.Save() 
     Return i 
    End Function 'End of InsertSharedStringItem function 

    'Given a WorkbookPart, inserts a new worksheet. 
    Private Function InsertWorksheet(ByVal workbookPart As WorkbookPart) As WorksheetPart 

     ' Add a new worksheet part to the workbook. 
     Dim newWorksheetPart As WorksheetPart = _ 
         workbookPart.AddNewPart(Of WorksheetPart)() 
     newWorksheetPart.Worksheet = New Worksheet(New SheetData) 
     newWorksheetPart.Worksheet.Save() 

     'Get a unique ID for the new worksheet 
     Dim sheetId As UInteger = 1 
     Dim sheets As New Sheets 
     If newSpreadSheet.WorkbookPart.Workbook.GetFirstChild(Of Sheets)() IsNot Nothing Then 
      sheets = newSpreadSheet.WorkbookPart.Workbook.GetFirstChild(Of Sheets)() 
      'Not sure if this check is required, possible an hanger-on from previous attempts 
      If (sheets.Elements(Of Sheet).Count > 0) Then 
       sheetId = sheets.Elements(Of Sheet).Select(Function(s) s.SheetId.Value).Max + 1 
      End If 
     End If 

     Dim relationshipId As String = _ 
         newSpreadSheet.WorkbookPart.GetIdOfPart(newWorksheetPart) 
     Dim sheetName As String = ("Sheet" + sheetId.ToString()) 

     ' Add the new worksheet and associate it with the workbook. 
     Dim sheet As Sheet = New Sheet 
     sheet.Id = relationshipId 
     sheet.SheetId = sheetId 
     sheet.Name = sheetName 
     sheets.Append(sheet) 
     If newSpreadSheet.WorkbookPart.Workbook.GetFirstChild(Of Sheets)() Is Nothing Then 
      newSpreadSheet.WorkbookPart.Workbook.AppendChild(Of Sheets)(sheets) 
     End If 
     workbookPart.Workbook.Save() 

     Return newWorksheetPart 

    End Function 'End of InsertWorksheet function 

    ' Given a column name, a row index, and a WorksheetPart, inserts a cell into the worksheet. 
    ' If the cell already exists, return it. 
    Private Function InsertCellInWorksheet(ByVal columnName As String, ByVal rowIndex As UInteger, ByVal wsp As WorksheetPart) As Cell 
     Dim worksheet As Worksheet = wsp.Worksheet 
     Dim sheetData As SheetData = worksheet.GetFirstChild(Of SheetData)() 
     Dim cellReference As String = (columnName + rowIndex.ToString()) 
     ' If the worksheet does not contain a row with the specified row index, insert one. 
     Dim row As Row 
     If (sheetData.Elements(Of Row).Where(Function(r) r.RowIndex.Value = rowIndex).Count() <> 0) Then 
      row = sheetData.Elements(Of Row).Where(Function(r) r.RowIndex.Value = rowIndex).First() 
     Else 
      row = New Row() 
      row.RowIndex = rowIndex 
      sheetData.Append(row) 
     End If 
     ' If there is not a cell with the specified column name, insert one. 
     If (row.Elements(Of Cell).Where(Function(c) c.CellReference.Value = columnName + rowIndex.ToString()).Count() > 0) Then 
      Return row.Elements(Of Cell).Where(Function(c) c.CellReference.Value = cellReference).First() 
     Else 
      ' Cells must be in sequential order according to CellReference. Determine where to insert the new cell. 
      Dim refCell As Cell = Nothing 
      For Each cell As Cell In row.Elements(Of Cell)() 
       If (String.Compare(cell.CellReference.Value, cellReference, True) > 0) Then 
        refCell = cell 
        Exit For 
       End If 
      Next 
      Dim newCell As Cell = New Cell 
      newCell.CellReference = cellReference 

      row.InsertBefore(newCell, refCell) 
      worksheet.Save() 
      Return newCell 
     End If 
    End Function 'End of InsertCellInWorksheet function 

Answer 1

Наконец-то я нашел решение, чтобы мои данные были в файле Excel без ошибок! Я загрузил ZIP-файл с http://www.codeproject.com/Tips/765068/Complete-Open-XML-Spreadsheet-in-VB , и поскольку его версия Visual Studio не была такой же, как моя, мне пришлось скопировать класс openXMLExcelCreator из загруженной папки и вставить ее в мой проект. Затем я добавил свой «doStuff» на мою веб-страницу с другим именем и изменил его, чтобы отобразить заголовки, которые я хочу, и данные из базы данных в ячейки. Мне также удалось изменить фон строки заголовка и альтернативных строк для удобного поиска.