Hi,
I'm not sure if this applies. Just load the data into an array and copy to a range in excel
Code:
Imports Microsoft.Office.Interop
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim xlApp As Excel.Application
Dim ws As Excel.Worksheet
Dim wb As Excel.Workbook
Dim data(20, 20) As Double
Dim j, k As Integer
Try
xlApp = New Excel.Application
xlApp.UserControl = True 'False
xlApp.Visible = True 'False
xlApp.Workbooks.Add()
wb = xlApp.ActiveWorkbook
ws = wb.Worksheets(1)
For j = 0 To 20
For k = 0 To 20
data(j, k) = j * k
Next k
Next j
ws.Range("A1").Resize(20, 20).Value = data
Catch ex As Exception
End Try
End Sub
End Class
Curt