'Verweis auf Excel-Library ist gesetzt
 
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
 
        Dim xl As New Microsoft.Office.Interop.Excel.Application
        Dim wb As Microsoft.Office.Interop.Excel.Workbook
        Dim ws As Microsoft.Office.Interop.Excel.Worksheet
 
        wb = xl.Workbooks.Add
 
        Dim Datei As String = "d:\irgendwas\" & Format(Now, "yyyy" & "-" & "MM" _
          & "-" & "dd") & ".xls"
 
        ws = wb.Worksheets(1)
 
        With ws.Cells(1, 1)
            .Value = "Aimetis In/Out Counter:"
            .Font.FontStyle = "lucida fax"
            .Font.Underline = True
            .Font.Bold = True
            .Font.Size = 12
        End With
 
        With ws.Cells(2, 1)
            .Value = "Datum:"
            .Font.Bold = True
        End With
 
        With ws.Cells(2, 2)
            .Value = "Count In:"
            .Font.Bold = True
        End With
 
        With ws.Cells(2, 3)
            .Value = "Count Out:"
            .Font.Bold = True
        End With
 
        wb.SaveAs(Datei, True)
 
        wb.Close()
 
        ws = Nothing
        wb = Nothing
        xl.Quit()
        xl = Nothing
 
    End Sub
End Class

EALA FREYA FRESENA