Excel App Cells().Value

  • VB.NET

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von _PASCAL_.

    Excel App Cells().Value

    Hallo,

    ich dreh gleich noch durch ... irgendwie funktioniert das dumme Excel nicht.

    eigentlich will ich nur meine ergebnisse in ein neues Excel Dokument schreiben.

    VB.NET-Quellcode

    1. Public Sub write_excel()
    3. Dim xlApp As Excel.Application
    4. Dim xlWorkbook As Excel.Workbook
    5. Dim xlSheet As Excel.Worksheet
    7. xlApp = New Excel.Application
    8. xlApp.Visible = False
    10. xlWorkbook = xlApp.Workbooks.Add
    12. For Each mes In messurements.Values
    13. xlSheet = xlWorkbook.Worksheets.Add
    14. xlSheet.Name = "Ergebnisse" & mes.name
    15. With xlSheet
    16. For Each cal In mes.calculation
    17. .Cells(2, mes.calculation.IndexOf(cal)).Value = "TEST" 'Join(cal.column.ToArray, " ")
    18. For i As Integer = 3 To messurements.First.Value.calculation.First.result.Count
    19. .Cells(i, mes.calculation.IndexOf(cal)).Value = cal.result(i)
    20. Next
    21. Next
    22. End With
    23. Next
    25. xlWorkbook.SaveAs(Application.StartupPath & "\test")
    26. xlApp.Quit()
    28. End Sub


    es kommt immer ein fehler wenn ich auf cells().Value zugreife bzw was schreiben will ... geht das bei VB 2010 mit Excel 12 nicht mehr ?

    in VB6 hat das so wunderbar funktioniert und ich habe auch beispiele in VB 2010 gesehen wo das so funktioniert hat ... es kommt immer COMException wurde nicht behandelt ... Ausnahme von HRESULT: 0x800A03EC

    Habt ihr eine Idee ?

    Gruß

Facebook
Telefonspende