[ClosedXml]几种可以批量写入的数据类型

Imports System.IO
Imports ClosedXML.Excel

Module Program

    Sub Main(args As String())
        Using book As New XLWorkbook()
            Dim sheet = book.Worksheets.Add()
            Dim rowCount = 10
            Dim colCount = 4
            ' ==========================================
            ' 二维数组：打咩
            ' ==========================================
            'Dim data(0 To rowCount - 1, 0 To colCount - 1) As Object
            'For i As Integer = 0 To rowCount - 1
            '    For j As Integer = 0 To colCount - 1
            '        data(i, j) = i & j
            '    Next
            'Next
            ' ==========================================
            ' List(Of List(Of Object)) ：可行
            ' ==========================================
            'Dim data As New List(Of List(Of Object))
            'For i As Integer = 0 To rowCount - 1
            '    Dim item As New List(Of Object)
            '    For j As Integer = 0 To colCount - 1
            '        item.Add(i & j)
            '    Next
            '    data.Add(item)
            'Next

            ' ==========================================
            ' List(Of class) ：可行
            ' ==========================================
            'Dim data As New List(Of TestCLass)
            'For i As Integer = 0 To rowCount - 1
            '    Dim item As New TestCLass(i.ToString(), i, CDec(i), DateTime.Now.AddDays(i))
            '    data.Add(item)
            'Next

            ' ==========================================
            ' DataTable ：可行
            ' ==========================================
            Dim data As New System.Data.DataTable
            data.Columns.Add(New System.Data.DataColumn("A", GetType(String)))
            data.Columns.Add(New System.Data.DataColumn("B", GetType(Integer)))
            data.Columns.Add(New System.Data.DataColumn("C", GetType(Decimal)))
            data.Columns.Add(New System.Data.DataColumn("D", GetType(DateTime)))
            For i As Integer = 0 To rowCount - 1
                Dim item = data.NewRow
                item.ItemArray = New Object() {i.ToString(), i, i, DateTime.Now.AddDays(i)}
                data.Rows.Add(item)
            Next

            sheet.Cell(1, 1).InsertData(data)
            Dim filePath = Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.Desktop), "test.xlsx")
            book.SaveAs(filePath)
        End Using
    End Sub

    Class TestCLass
        Public Property A As String
        Public Property B As Integer
        Public Property C As Decimal
        Public Property D As DateTime

        Public Sub New(a As String, b As Integer, c As Decimal, d As DateTime)
            Me.A = a
            Me.B = b
            Me.C = c
            Me.D = d
        End Sub

    End Class
End Module