CodeItBetter Programming Another VB Programming Blog

'MS Office - How to create an Excel file from your application

Private Sub Main()
    Dim xlApp As Excel.Application
    Dim xlWB As Excel.Workbook
    Dim xlWS As Excel.Worksheet
    Set xlApp = New Excel.Application
    Set xlWB = xlApp.Workbooks.Add
    Set xlWS = xlWB.Worksheets.Add
    xlWS.Cells(2, 2).Value = "http://codeitbetter.com"
    xlWS.Cells(1, 3).Value = "Your handy Source Code Library"
    xlWS.SaveAS "C:\Temp\Test.xls"
    xlApp.Quit
    Set xlWS = Nothing
    Set xlWB = Nothing
    Set xlApp = Nothing
End Sub