Excelblatt befüllen funktioniert nicht

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

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von Bartosz.

    Excelblatt befüllen funktioniert nicht

    Hey,

    Ich habe mich gerade daran versucht, in eine Exceldatei zu schreiben. Es geht einfach nur ums Prinzip.

    1) in der For-Schleife knallt es. Unbehandelte Ausnahme: System.Reflection.TargetInvocationException: Ein Aufrufziel hat einen Ausnahmefehler verursacht. ---> System.Runtime.InteropServices.COMException: Ausnahme von HRESULT: 0x800A03EC
    Dann muss ich das Debuggen beenden.
    2) Excel ist trotz App.Quit() noch im Taskmanager zu sehen. Wie kann ich das richtig beenden?

    .NET 4.8
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports Microsoft.Office.Interop
    2. Imports Microsoft.WindowsAPICodePack.Dialogs
    3. Public NotInheritable Class Form1
    4. Private xlApp As Excel.Application
    5. Private myWorkbook As Excel.Workbook
    7. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    8. Me.Location = New Point(0, 0)
    9. End Sub
    11. Private Async Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    12. Await Task.Run(Sub() Schreiben())
    13. End Sub
    15. Private Sub Schreiben()
    16. Dim Pfad As String
    17. Using SFD1 As New CommonSaveFileDialog
    18. SFD1.Title = "Exceldatei speichern"
    19. SFD1.Filters.Add(New CommonFileDialogFilter("Excel", ".xlsx"))
    20. If System.IO.Directory.Exists("‪C:\Users\...\source\repos\VB.NET\in Exceldatei schreiben") Then
    21. SFD1.InitialDirectory = "‪C:\Users\...\source\repos\VB.NET\in Exceldatei schreiben"
    22. Else
    23. SFD1.InitialDirectory = Environment.GetFolderPath(Environment.SpecialFolder.Desktop)
    24. End If
    25. Dim Result As CommonFileDialogResult
    26. Me.Invoke(Sub() Result = SFD1.ShowDialog())
    27. If Result = CommonFileDialogResult.Ok Then
    28. Pfad = SFD1.FileName & ".xlsx"
    29. Else
    30. Return
    31. End If
    32. End Using
    34. Me.Invoke(Sub() Button1.BackColor = Color.FromArgb(255, 255, 0))
    36. xlApp = New Excel.Application
    37. xlApp.Visible = True
    38. myWorkbook = xlApp.Workbooks.Add()
    39. Dim myWorksheet As Excel.Worksheet = CType(myWorkbook.Sheets("Tabelle1"), Excel.Worksheet)
    41. myWorksheet.Cells(1, 1) = "data in first cell"
    43. For i As Integer = 0 To 100 Step 1
    44. myWorksheet.Cells(i, 1) = i
    45. Next
    47. myWorksheet.SaveAs(Pfad, Excel.XlFileFormat.xlWorkbookDefault)
    48. myWorkbook.Close()
    49. xlApp.Quit()
    50. Me.Invoke(Sub() Button1.BackColor = Color.FromArgb(0, 255, 0))
    51. End Sub
    52. End Class

    Wahrscheinlich, weil i nicht 0 sein darf. Zelle(0, 1) gibt es nicht, es fängt bei Zeile 1 an, nicht 0
    Bzgl. korrektem Plattmachen: sollte mit Runtime.InteropServices.Marshal.FinalReleaseComObject() klappen, such mal danach
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    ich hab da keine Probleme mit 'Quit'

    Teste das mal

    VB.NET-Quellcode

    1. Option Strict On
    3. Imports Microsoft.Office.Interop.Excel
    4. Imports Microsoft.Office.Interop
    6. Public Class Form1
    8. Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    9. Dim Path As String = "E:\" 'Pfad
    10. Dim myExcel As New Microsoft.Office.Interop.Excel.Application()
    11. Dim WorkBook As Workbook = myExcel.Workbooks.Add
    12. Dim WorkSheets As Sheets = WorkBook.Sheets
    14. For i = 1 To WorkSheets.Count 'wieviele Tabellen willst du anlegen
    15. Dim xlWorkBook As Workbook
    16. xlWorkBook = myExcel.Workbooks.Add
    18. '##### Tabelle1
    19. Dim WorkSheet1 As Worksheet = CType(CType(WorkSheets(1), Excel._Worksheet), Microsoft.Office.Interop.Excel.Worksheet)
    20. WorkSheet1.Name = "Test1"
    21. 'Tabelle1 anlegen
    22. WorkSheet1.Range("A1").Value = "Header 1"
    23. WorkSheet1.Range("B1").Value = "Header 2"
    24. WorkSheet1.Range("C1").Value = "Nr."
    25. WorkSheet1.Range("A2").Value = TextBox1.Text
    26. WorkSheet1.Range("A3").Value = TextBox2.Text
    27. 'etc
    28. '....
    29. '...
    31. '###### Tabelle2
    32. Dim WorkSheet2 As Worksheet = CType(CType(WorkSheets(2), Excel._Worksheet), Microsoft.Office.Interop.Excel.Worksheet)
    33. 'Tabelle 2 anlegen
    34. WorkSheet2.Name = "Test2"
    35. WorkSheet2.Range("A1").Value = "Test"
    36. WorkSheet2.Range("B1").Value = "was auch immer"
    37. WorkSheet2.Range("C1").Value = "etc.."
    38. 'etc..
    39. '....
    40. '...
    41. Next
    42. WorkBook.SaveAs("E:\TestFolder\ATest12.xlsx")
    43. myExcel.Application.Quit()
    44. End Sub
    45. End Class

    Danke an alle.
    Das mit For i as Integer = 1, da hab ich nicht aufgepasst.

    Mit System.Runtime.InteropServices.Marshal.ReleaseComObject(..) geht das Freigeben wunderbar.

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports Microsoft.Office.Interop
    2. Imports Microsoft.WindowsAPICodePack.Dialogs
    3. Public NotInheritable Class Form1
    4. Private xlApp As Excel.Application
    5. Private myWorkbook As Excel.Workbook
    7. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    8. Me.Location = New Point(0, 0)
    9. End Sub
    11. Private Async Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    12. Await Task.Run(Sub() Schreiben())
    13. End Sub
    15. Private Sub Schreiben()
    16. Dim Pfad As String
    17. Using SFD1 As New CommonSaveFileDialog
    18. SFD1.Title = "Exceldatei speichern"
    19. SFD1.Filters.Add(New CommonFileDialogFilter("Excel", ".xlsx"))
    20. If System.IO.Directory.Exists("‪C:\Users\...\source\repos\VB.NET\in Exceldatei schreiben") Then
    21. SFD1.InitialDirectory = "‪C:\Users\...\source\repos\VB.NET\in Exceldatei schreiben"
    22. Else
    23. SFD1.InitialDirectory = Environment.GetFolderPath(Environment.SpecialFolder.Desktop)
    24. End If
    25. Dim Result As CommonFileDialogResult
    26. Me.Invoke(Sub() Result = SFD1.ShowDialog())
    27. If Result = CommonFileDialogResult.Ok Then
    28. Pfad = SFD1.FileName & ".xlsx"
    29. Else
    30. Return
    31. End If
    32. End Using
    34. Me.Invoke(Sub() Button1.BackColor = Color.FromArgb(255, 255, 0))
    36. xlApp = New Excel.Application
    37. xlApp.Visible = True
    38. myWorkbook = xlApp.Workbooks.Add()
    39. Dim myWorksheet As Excel.Worksheet = CType(myWorkbook.Sheets("Tabelle1"), Excel.Worksheet)
    41. For i As Integer = 1 To 1000 Step 1 'Muss bei 1 anfangen!
    42. myWorksheet.Cells(i, 1) = i
    43. Next
    45. myWorksheet.SaveAs(Pfad, Excel.XlFileFormat.xlWorkbookDefault)
    46. myWorkbook.Close()
    47. xlApp.Quit()
    49. If myWorksheet IsNot Nothing Then
    50. System.Runtime.InteropServices.Marshal.ReleaseComObject(myWorksheet)
    51. End If
    52. If myWorkbook IsNot Nothing Then
    53. System.Runtime.InteropServices.Marshal.ReleaseComObject(myWorkbook)
    54. End If
    55. If xlApp IsNot Nothing Then
    56. System.Runtime.InteropServices.Marshal.ReleaseComObject(xlApp)
    57. End If
    58. xlApp = Nothing
    59. myWorkbook = Nothing
    60. myWorksheet = Nothing
    61. 'GC.Collect() ' Für den Fall der Fälle.
    62. Me.Invoke(Sub() Button1.BackColor = Color.FromArgb(0, 255, 0))
    63. End Sub