當打開Excel時出現錯誤消息與epplus

Question

書面當我嘗試寫由EPPlus給出的方法的東西，即它有兩個錯誤消息

來了，我們已經找到了一些內容的問題出現了

Excel完成文件級別驗證和修復。此工作簿的某些部分可能已被修復或丟棄。

Excel打開成功，但有錯誤信息，還有一件事我寫的Excel已寫入，這意味着它是一個模板。

Dim consh As ExcelWorksheet 
    'Dim excelStream As New MemoryStream() 
    'excelStream.Write(excel, 0, excel.Length) 
    Dim exlpck As New ExcelPackage(excel) 
    If exlpck.Workbook.Worksheets(cellExcelTabName) Is Nothing Then 
     consh = exlpck.Workbook.Worksheets.Add(cellExcelTabName) 
    Else 
     consh = exlpck.Workbook.Worksheets(cellExcelTabName) 
    End If 
    Dim start = consh.Dimension.Start 
    Dim [end] = consh.Dimension.[End] 
    For row As Integer = 4 To [end].Row 
     ' Row by row... 
     For col As Integer = 18 To 35 
      ' ... Cell by cell... 
      ' This got me the actual value I needed. 
      Dim cellValue As String = consh.Cells(row, col).Text 
      Dim cellAddress = consh.Cells(row, col).Address 
      Dim i = 0 
      For Each mText In textToFind 
       If cellValue.Contains(mText) Then 
        consh.Cells(cellAddress).Value = cellValue.Replace(mText, "")[enter image description here][1] 
        consh.Cells(cellAddress).Style.Fill.PatternType = ExcelFillStyle.Solid 
        consh.Cells(cellAddress).Style.Fill.BackgroundColor.SetColor(color(mText.Substring(1, 1) - 1)) 
        i = i + 1 
       End If 
      Next 
     Next 
    Next 
    'Dim exlpck1 As New ExcelPackage(e) 
    exlpck.Save() 
    Dim s = New MemoryStream(exlpck.GetAsByteArray()) 
    Return s 

Answer 1

如前所述here（「我得到的Excel發現無法讀取內容......一個錯誤」），該EPPlus包不驗證公式和數字格式。你可能想檢查提示。

Answer 2

我發現修復我的代碼

exlpck.Save() 

由

exlpck.SaveAs(ms) 

被取代，它的工作:)