Visual Basic 中学校 掲示板 投稿内容
タグのない投稿を抽出 統計 RSS

Visual Basic 中学校 > 投稿一覧 >

closedXMLのEXCEL作成

タグの編集...

投稿者 あくあ   (社会人)   投稿日時 2016/8/5 23:40:41
ClosedXMLで大きなExcelファイルを作ろうとしています。
下記のとおり、作成したのですが、すぐにOutOfMemoryで落ちてしまいます。
どこかおかしな点があるでしょうか?

コード:
Imports ClosedXML

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim book As New ClosedXML.Excel.XLWorkbook
        Dim sheet As ClosedXML.Excel.IXLWorksheet = book.Worksheets.Add("SpotFire")
        Dim Row, Col As Integer

        For Row = 1 To 65000
            Dim Variable(400) As String

            For Col = 1 To 400
                Variable(Col - 1) = Col
            Next

            sheet.Cell(Row, "A").InsertData({Variable})

            If Row Mod 1000 = 0 Then
                lblCount.Text = Row
                lblCount.Update()
            End If
        Next

        book.SaveAs("H:\test.xlsx")
    End Sub
End Class