Hallöchen liebes Forum!
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:
An der Stelle
ist der Wurm drin, aber ich habe nach etlichen Versuchen und Googlen immer noch nicht die Lösung gefunden
Hoffentlich kann mir jemand helfen?
Liebe Grüße
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
- Private Sub btnExcel_Click(sender As Object, e As EventArgs) Handles btnExcel.Click
- Dim objExcel As Object = Nothing
- Dim objBook As Object = Nothing
- Dim objSheet As Object = Nothing
- Try
- objExcel = GetObject(, "Excel.Application")
- Catch ex As Exception
- Try
- objExcel = CreateObject("Excel.Application")
- Catch ex1 As Exception
- MsgBox("Applikation nicht installiert!", _
- MsgBoxStyle.Critical, "Error")
- End Try
- End Try
- objBook = objExcel.Workbooks.Open("C:\Users\Ich\Desktop\test.xlsx")
- objSheet = objBook.Worksheets("Tabelle1")
- objSheet.Range("B11:B17").Value = lstMM.SelectedItems
- objSheet.ExportAsFixedFormat(0, "C:\Users\Ich\Desktop\" & objSheet.Name)
- objBook.Close(True)
- objExcel.Quit()
- objSheet = Nothing
- objBook = Nothing
- objExcel = Nothing
- GC.Collect()
- GC.WaitForFullGCComplete()
- End Sub
An der Stelle
ist der Wurm drin, aber ich habe nach etlichen Versuchen und Googlen immer noch nicht die Lösung gefunden
Hoffentlich kann mir jemand helfen?
Liebe Grüße
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „HaCo28“ ()