Daten mit Excel austauschen

[Deutsch]

hallo,

ich versuche gerade ein programm zu schreiben dass mit excel interagieren soll. dabei sollen variable parameter in bestimmte zellen von excel geschrieben werden.

ich habe bereits den verweis microsoft.excel.11 hinzugefügt allerdings funktionieren die ganzen befehle nicht.
kann mir wer helfen und zeigen wie ich eine excel datei öffnen kann

danke im voraus

[Albus]

Schau mal hier:
.NET-Anwendungen mit Excel erweitern
Microsoft Excel verwenden
Quelle: http://www.zdnet.de/builder/architec...38184-2,00.htm

Dim excel As Microsoft.Office.Interop.Excel.Application
Dim wb As Microsoft.Office.Interop.Excel.Workbook
Try
excel = New Microsoft.Office.Interop.Excel.Application
wb = excel.Workbooks.Open("c:\\test.xls")
excel.Visible = True
wb.Activate()
Catch ex As COMException
MessageBox.Show("Error accessing Excel: " + ex.ToString())
Catch ex As Exception
MessageBox.Show("Error: " + ex.ToString())
End Try

Nur bei mir hab ich Probleme mit den Namensräumen. Auf der Seite heißt es:

Zusätzlich sind zwei Namensräume nötig:

* Microsoft.Office.Interop.Excel:
Ermöglicht es, mittels .NET interop mit Excel-Objekten zu arbeiten.
* System.Runtime.InteropServices:
Schließt die COMException-Klasse ein, mit der man COM-Exceptions korrekt behandeln kann.

Bei mir gibt es nur Microsoft.Office.Core., kein Microsoft.Office.Interop.
Unter: Microsoft.Office.Core. gibt es aber kein Excel oder Workbook etc.
Kann jemand einen Tip geben?
Danke

[Albus]

Warum einfach, wenn es auch kompliziert geht!? Gelle!
Excel-Daten mit VB.Net2005 auslesen
http://www.mikrocontroller.net/topic/49931


Oder wer es noch einfacher will, kein Problem!

Übertragen von Daten in eine Excel-Arbeitsmappe mit Visual Basic .NET

 
       Dim oExcel As Object
        Dim oBook As Object
        Dim oSheet As Object

        'Start a new workbook in Excel.
        oExcel = CreateObject("Excel.Application")
        oBook = oExcel.Workbooks.Add

        'Add data to cells of the first worksheet in the new workbook.
        oSheet = oBook.Worksheets(1)
        oSheet.Range("A1").Value = "Last Name"
        oSheet.Range("B1").Value = "First Name"
        oSheet.Range("A1:B1").Font.Bold = True
        oSheet.Range("A2").Value = "Doe"
        oSheet.Range("B2").Value = "John"

        'Save the Workbook and quit Excel.
        oBook.SaveAs(sSampleFolder & "Book1.xls")
        oSheet = Nothing
        oBook = Nothing
        oExcel.Quit()
        oExcel = Nothing
        GC.Collect()