epplus

Question

で書かれたとき、Excelのエラーメッセージを開くと起動したものの、私はEPPlusすなわちによって与えられた方法から何かを書くしようとするとそれは我々が一部のコンテンツ

に問題があることを発見した2つのエラーメッセージ

を思い付きます

Excelでファイルレベルの検証と修復が完了しました。このワークブックの一部が修復または破棄されている可能性があります。

Excelが正常に開きますが、エラーメッセージが表示され、もう1つのことがExcelのテンプレートであることを意味しています。述べhereとして

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

（「私はExcelが読めないコンテンツを発見したというエラーが出る...」）、EPPlusパッケージは、式や数値フォーマットを検証しません。ヒントがあるかどうか確認したい場合があります。

Answer 2

私は自分のコードの修正

exlpck.Save() 

が

exlpck.SaveAs(ms) 

で交換すると、それは:)

を働きました