Here is an excerpt of the relevant lines from a vb.net project I am working on. The code prepares the excel sheet just fine, provided the applicable variables are entered in your vb.net application.
Public Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
' Declare Excel object variables and create types
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Dim xlChart As Excel.Chart
xlApp = CType(CreateObject("Excel.Application"), Excel.Application)
xlBook = CType(xlApp.Workbooks.Add, Excel.Workbook)
xlSheet = CType(xlBook.Worksheets(1), Excel.Worksheet)
' Insert Data
xlSheet.Cells(1, 2) = Val(TextBox1.Text)
xlSheet.Cells(2, 2) = Val(TextBox2.Text)
xlSheet.Cells(3, 2) = Val(TextBox3.Text)
xlSheet.Cells(4, 2) = Val(TextBox4.Text)
xlSheet.Cells(5, 2) = Val(TextBox5.Text)
xlSheet.Cells(6, 2) = Val(TextBox6.Text)
xlSheet.Cells(7, 2) = Val(TextBox7.Text)
xlSheet.Cells(8, 2) = Val(TextBox8.Text)
xlSheet.Cells(9, 2) = Val(TextBox9.Text)
xlSheet.Cells(10, 2) = Val(TextBox10.Text)
' Saves the sheet with Client Name and today's date
Dim ThisName As String
Dim mm, dd, yy, Middle As String
Middle = lblClock.Text
dd = Middle.Substring(0, 2)
mm = Middle.Substring(3, 2)
yy = Middle.Substring(6, 2)
ThisName = "c:\programming\PATHClientData\" & cboClientName.Text & "_" & dd & "-" & mm & "-" & yy & ".xls"
xlBook.SaveAs(FileName:=ThisName)