SpreadsheetGear で ｢Corrupt OpenXML document.｣例外が発生[ﾌﾟﾛｸﾞﾗﾐﾝｸﾞ]
(2024-11-12 22:05:24) by shinoda

< ﾍﾟｰｼﾞ移動: 1 2 >

<asp:Label ID="lblExcelSel" runat="server" Text="Excelﾌｧｲﾙ"></asp:Label>&nbsp;

<asp:FileUpload ID="fileExcel" runat="server" />&nbsp;

<asp:Button ID="btnUpFile" runat="server" Text="取込" /> 

    ''' <summary>

    ''' 取込ﾎﾞﾀﾝ処理

    ''' </summary>

    ''' <param name="sender"></param>

    ''' <param name="e"></param>

    ''' <remarks></remarks>

    Protected Sub btnUpFile_Click(sender As Object, e As EventArgs) Handles btnUpFile.Click

        ' ﾌｧｲﾙがｱｯﾌﾟﾛｰﾄﾞされていなければ終了

        If (fileExcel.HasFile = False) Then Return

        ' ﾌｧｲﾙをﾒﾓﾘｰに格納

        Dim data(fileExcel.PostedFile.ContentLength - 1) As Byte

        fileExcel.PostedFile.InputStream.Read(data, 0, fileExcel.PostedFile.ContentLength)

        Dim xlsWorkBookSet As SpreadsheetGear.IWorkbookSet = SpreadsheetGear.Factory.GetWorkbookSet()

        Dim xlsWorkBook As SpreadsheetGear.IWorkbook = Nothing

        Try

            'ﾒﾓﾘからﾜｰｸﾌﾞｯｸにｾｯﾄ

            xlsWorkBook = xlsWorkBookSet.Workbooks.OpenFromMemory(data)

        Catch ex As Exception

            alert("Excelﾌｧｲﾙを読み込めませんでした｡(" + ex.Message + ")")

            Return

        End Try

        Dim currentSheet As SpreadsheetGear.IWorksheet = CType(xlsWorkBook.Worksheets(0), SpreadsheetGear.IWorksheet)

＜以下略＞