主题：批量写入table

我从文件夹里循环获取了信息，一个一个写入table有点慢。

可以先读取数组或者list 一次性写入talbe吗？

Dim t As Table = Tables("测试表")

Dim num(, ) As Integer = {{1, 2, 3} , {4, 5, 6}, {7, 8, 9}}

Dim colName As String

For i As Integer = 0 To 2

    Dim r As Row = t.AddNew()

    For j As Integer = 0 To 2

        If j = 0 Then

            colName = "第一列"

        Else If j = 1 Then

        colName = "第二列"

        Else

            colName = "第三列"

            

        End If 

        r(colName) = num(i, j)

        '        r(j - 1) = num(i, j)

    Next

Next