在VB.NET中如何将一个二维数组的输出到EXCEL模版中，

[zsx722]

如果数组多余20，则将从二十一个数组输入到另一个sheet模板，大于四十。。。以此类推，即每个sheet模板只能输入20个数组，以行列表示,谢谢！

[zsx722]

还有个问题，就是怎样将40行20列的数组前20行导入到第一个sheet，后20行导入到第二个sheet？谢谢！
[Quote=引用 1 楼 的回复:]
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
exce……
[/Quote]

[xiaomin0613]

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

[kxyzjm62]

当数据大于20时，选择地二个表并是第二个表活动就可以了。

[zsx722]

求代码！谢谢！[Quote=引用 3 楼 的回复:]
当数据大于20时，选择地二个表并是第二个表活动就可以了。
[/Quote]