ListBox Items in Excel Zellen schreiben

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von ErfinderDesRades.

    ListBox Items in Excel Zellen schreiben

    Hallöchen liebes Forum! :D
    Mein Visual Basic Programm soll Werte aus eine ListBox in Excel Zellen schreiben.
    Leider bekomme ich jedoch immer Fehlermeldungen an der Stelle, an der die Zellen beschrieben werden sollen.
    Mein Code:

    VB.NET-Quellcode

    1. ​Private Sub btnExcel_Click(sender As Object, e As EventArgs) Handles btnExcel.Click
    3. Dim objExcel As Object = Nothing
    4. Dim objBook As Object = Nothing
    5. Dim objSheet As Object = Nothing
    6. Try
    7. objExcel = GetObject(, "Excel.Application")
    8. Catch ex As Exception
    9. Try
    10. objExcel = CreateObject("Excel.Application")
    11. Catch ex1 As Exception
    12. MsgBox("Applikation nicht installiert!", _
    13. MsgBoxStyle.Critical, "Error")
    14. End Try
    15. End Try
    17. objBook = objExcel.Workbooks.Open("C:\Users\Ich\Desktop\test.xlsx")
    18. objSheet = objBook.Worksheets("Tabelle1")
    20. objSheet.Range("B11:B17").Value = lstMM.SelectedItems
    22. objSheet.ExportAsFixedFormat(0, "C:\Users\Ich\Desktop\" & objSheet.Name)
    23. objBook.Close(True)
    24. objExcel.Quit()
    25. objSheet = Nothing
    26. objBook = Nothing
    27. objExcel = Nothing
    28. GC.Collect()
    29. GC.WaitForFullGCComplete()
    31. End Sub


    An der Stelle

    VB.NET-Quellcode

    1. objSheet.Range("B11:B17").Value = lstMM.SelectedItems

    ist der Wurm drin, aber ich habe nach etlichen Versuchen und Googlen immer noch nicht die Lösung gefunden :S
    Hoffentlich kann mir jemand helfen?
    Liebe Grüße :)

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „HaCo28“ ()

Facebook
Telefonspende