Public Sub OpenExlWS()
 
        Dim objBooks As Excel.Workbooks
        Dim objSheets As Excel.Sheets
        Dim objSheet As Excel._Worksheet
        Dim range As Excel.Range
 
 
        ' Create a new instance of Excel and start a new workbook.
        objApp = New Excel.Application()
        objBooks = objApp.Workbooks
        objBook = objBooks.Add
        objSheets = objBook.Worksheets
        objSheet = objSheets(1)
 
        'Get the range where the starting cell has the address
        'm_sStartingCell and its dimensions are m_iNumRows x m_iNumCols.
        range = objSheet.Range("A1", Reflection.Missing.Value)
 
 
        range.Offset(3, 0).Value = "KuID"
        range.Offset(3, 1).Value = "Firma"
        range.Offset(3, 2).Value = "Anrede"
        range.Offset(3, 3).Value = "Vorname"
        range.Offset(3, 4).Value = "Nachname"
        range.Offset(3, 5).Value = "Straße"
        range.Offset(3, 6).Value = "PLZ"
        range.Offset(3, 7).Value = "Ort"
 
 
 
 
 
        'Return control of Excel to the user.
        objApp.Visible = True
        objApp.UserControl = True
 
        'Clean up a little.
        range = Nothing
        objSheet = Nothing
        objSheets = Nothing
        objBooks = Nothing
 
 
 
    End Sub

Gruss
VIVAX

}
}
}

1:0 für Visual Basic.NET