在VB.NET中怎么将一个二维数组的输出到EXCEL模版中

在VB.NET中如何将一个二维数组的输出到EXCEL模版中，
如果数组多余20，则将从二十一个数组输入到另一个sheet模板，大于四十。。。以此类推，即每个sheet模板只能输入20个数组，以行列表示,谢谢！
------最佳解决方案--------------------
 Dim strFile As String = ofdSelectExcel.FileName
            Dim excelApp As Excel.Application
            Dim excelWork As Excel.Workbook
            Dim excelSheet As Excel.Worksheet
            excelApp = New Excel.Application
            excelWork = excelApp.Workbooks.Open(strFile)

            Dim sheetNum As Integer = 1
            For i As Integer = 0 To UBound(WriteArr)
                If ((i + 1) Mod 20) = 1 Then
                    If sheetNum > excelWork.Worksheets.Count Then
                        excelSheet = excelWork.Sheets.Add(, excelWork.Worksheets(sheetNum - 1))
                    Else
                        excelSheet = excelWork.Worksheets.Item(sheetNum)
                    End If
                Else
                    excelSheet = excelWork.Worksheets.Item(sheetNum)
                End If
                excelSheet.Cells(((i + 1) - 20 * (sheetNum - 1)), 1) = i + 1
                If ((i + 1) Mod 20) = 0 Then
                    sheetNum += 1
                End If
            Next
------其他解决方案--------------------
当数据大于20时，选择地二个表并是第二个表活动就可以了。
------其他解决方案--------------------
还有个问题，就是怎样将40行20列的数组前20行导入到第一个sheet，后20行导入到第二个sheet？谢谢！

引用:

Dim strFile As String = ofdSelectExcel.FileName
  Dim excelApp As Excel.Application
  Dim excelWork As Excel.Workbook
  Dim excelSheet As Excel.Worksheet
  excelApp = New Excel.Application