Public Sub exportieren() Handles Button1.Click
Try
            Dim timestamp As String = My.Computer.FileSystem.ReadAllText( _
          "C:\Export\Data\timestamp.dll")
        Catch ex As Exception
        End Try
        Dim kamera As String
        Dim ctr As Integer = 0
        Dim zähler As Integer = CheckedListBox1.CheckedItems.Count
        Do Until ctr = zähler
            Dim xl As New Application
            Dim wb As Microsoft.Office.Interop.Excel.Workbook
            Dim ws As Microsoft.Office.Interop.Excel.Worksheet
            wb = xl.Workbooks.Add
            kamera = CheckedListBox1.CheckedItems(ctr).ToString
            My.Computer.FileSystem.CreateDirectory(speicherort & "\" & _
              kamera)
            Dim Datei As String = speicherort & "\" & _
            kamera & "\" & Format(Now, "yyyy-MM-dd_HH_mm_ss") & _
              ".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(3, 1)
                .Value = "Datum:"
                .Font.Bold = True
            End With
            With ws.Cells(3, 3)
                .Value = "Count In:"
                .Font.Bold = True
            End With
            With ws.Cells(3, 4)
                .Value = "Count Out:"
                .Font.Bold = True
            End With
            With ws.Cells(5, 1)
                .value = "=HEUTE()"
            End With
            Dim CIn As Integer = 4
            Dim COut As Integer = 4
            CIn = CIn + 1
            COut = COut + 1
            Dim CameraIni As String
            Dim fehlerkamera As String = CheckedListBox1.CheckedItems( _
              ctr).ToString
            Try
                CameraIni = My.Computer.FileSystem.ReadAllText( _
                  importpfad & kamera & "\camera.ini")
            Catch etc As Exception
                If MessageBox.Show("Fehlermeldung", MessageBoxButtons.OK, _
                  MessageBoxIcon.Information) = _
                  System.Windows.Forms.DialogResult.OK Then
                    Exit Sub
                End If
            End Try
            Dim lines() As String = CameraIni.Split(Environment.NewLine)
            Dim CountIn As String = lines(19).Substring(15)
            Dim CountOut As String = lines(20).Substring(16)
            ws.Cells(CIn, 3).Value = CountIn
            ws.Cells(COut, 4).Value = CountOut
            Try
                wb.SaveAs(Datei, True)
            Catch fehler As Exception
                MsgBox(fehler.ToString)
            End Try
            ctr = ctr + 1
            wb.Close()
            xl.Quit()
            Dim p As Process ' einzelner Prozess
            Dim pp() As Process ' Liste der Prozesse
            Const PROZESSNAME = "excel"
            pp = Process.GetProcessesByName(PROZESSNAME)
            For Each p In pp
                p.Kill()
                p.Dispose()
            Next
            xl = Nothing
            ws = Nothing
            wb = Nothing
        Loop
end sub