Daten impotieren Problem

  • VB.NET

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

    Daten impotieren Problem

    Hallo

    Ich hab 2 probleme

    1. wenn ich von excel daten holle funktioniert alles super nur beim Taskmanager leauft "excel.exe" obwohl "xlApp.Quit()" eingegeben ist?

    VB.NET-Quellcode

    1. Try
    3. Dim xlApp As Object
    4. Dim xlBook As Object
    5. Dim xlSheet As Object
    6. Dim fl As String = file.Text
    7. Dim b As String = cellb.Text
    8. Dim n As Integer = celln.Text
    9. Dim s As Integer = sh.Text
    11. xlApp = CreateObject("Excel.Application")
    12. xlBook = xlApp.workbooks.Open(fl)
    14. xlSheet = xlBook.worksheets(s)
    15. TextBox1.Text = xlSheet.Range(b & n).Value
    16. xlBook.Save()
    17. xlBook.Close()
    18. xlApp.Quit()
    19. Catch ex As Exception
    21. End Try


    2. beim xlBook.Save() da die Datei schon existiert fragt er ob ich die Datei ueberschreiben moechte da sie schon existiert also ist ein windows massagebox

    ich moechte das die Meldung nicht erscheint, die ist leasstig, wie mach ich es?

    mit

    VB.NET-Quellcode

    1. if io.file.exist("filepath") then
    2. replace...
    3. end if


    koennte das funktionieren? denn ich moechte nicht die alten daten verlieren und wenn er replace macht ueberschreibt er die erste oder?

    danke
    Schäm dich nicht "Zu fragen", schäm dich "Nicht zu wissen". ?(

    Du mußt alle Excel-Objekte richtig freigeben, siehe: COM-Objekte in .NET deterministisch freigeben

    Mit "alle Excel-Objekte" meine ich nicht nur die explizit von dir erstellten sondern auch die implizit von VB erstellten:

    Beispiel:

    VB.NET-Quellcode

    1. '// ...
    3. '// Verweis auf die Excel-Workbooks-Auflistung holen.
    4. '// Das ist deshalb nötig, damit man dieses Objekt anschließend
    5. '// wieder richtig freigeben kann.
    6. xlsWorkbooks = xlsApp.Workbooks
    9. '// Hier würde dieser Befehl:
    10. '// xlsBook = xlsApp.Workbooks.Open(strFile)
    11. '// völlig ausreichen, aber dann hat man keinen Verweis auf
    12. '// xlsApp.Workbooks
    13. '// und man kann dieses Objekt nicht richtig freigeben.
    14. '// Das FrameMurks macht das nämlich nicht und Excel beendet sich dann nicht
    15. '//
    16. '// deshalb eben über den explizit nur zu diesem Zweck erstellten
    17. '// Verweis auf die Workbooks-Auflistung zugreifen:
    18. xlsBook = xlsWorkbooks.Open(strFile)
    20. '// ...
    22. '// Das soll gemacht werden:
    23. '//
    24. '// xlsTable = CType(xlsBook.Worksheets.Add, Excel.Worksheet)
    25. '//
    26. '// und so sieht das dann aus, wenn die COM-Referenzzählung
    27. '// korrekt berücksichtigt wird:
    28. xlsSheets = xlsBook.Worksheets
    29. xlsTable = CType(xlsSheets.Add, Excel.Worksheet)
    30. Set_COM_Object_to_Nothing(CType(xlsSheets, Object))
    31. xlsSheets = Nothing
    33. '// ...
    35. '// Das soll gemacht werden:
    36. '//
    37. '// CType(xlsTable.Cells(1, 1), Excel.Range).Value = "Variable"
    38. '//
    39. '// und so sieht das dann aus, wenn die COM-Referenzzählung
    40. '// korrekt berücksichtigt wird:
    41. xlsCells = xlsTable.Cells
    42. xlsRange = CType(xlsCells(1, 1), Excel.Range)
    43. xlsRange.Value = "Variable"
    44. Set_COM_Object_to_Nothing(CType(xlsCells, Object))
    45. xlsCells = Nothing
    46. Set_COM_Object_to_Nothing(CType(xlsRange, Object))
    47. xlsRange = Nothing
    50. '// ...
    52. Set_COM_Object_to_Nothing(CType(xlsBook, Object))
    53. xlsBook = Nothing
    55. Set_COM_Object_to_Nothing(CType(xlsWorkbooks, Object))
    56. xlsWorkbooks = Nothing
    58. '// ...
    61. Private Sub Set_COM_Object_to_Nothing(ByRef objCom As Object)
    62. '//
    63. '// schon wieder mal ein Workaround um ein komisches Verhalten des FrameMurks zu umgehen
    64. '//
    65. '// Ein einfaches 'objCom = Nothing' zum Freigeben des Objekts, so wie es in VB6 normal
    66. '// war, reicht nicht mehr. Das entsprechende Objekt lebt dann noch weiter und die zugehörige
    67. '// Komponente beendet sich dann noch nicht, obwohl es keinen gültigen Verweis mehr darauf gibt.
    68. '//
    69. '// Hier muß man das FrameMURKS explizit dazu zwingen, daß es diese COM-Objekte RICHTIG
    70. '// freigibt, also auch den Referenzzähler erniedrigt etc.
    71. Try
    72. Dim intRef As Integer = System.Runtime.InteropServices.Marshal.ReleaseComObject(objCom)
    73. If intRef <= 0 Then
    74. objCom = Nothing
    75. Else
    76. LogFile("COM-Object is not Nothing", objCom.ToString)
    77. End If
    79. Catch ex As Exception
    80. End Try
    81. End Sub


    Gruß
    Gaga

    ?( Ich hab nicht richtig verstanden was du da gemacht hast

    aber ich hab das Problem anders behoben und zwar mit process.kill

    VB.NET-Quellcode

    1. Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
    3. Dim _proc As System.Diagnostics.Process
    4. Dim pList() As Process
    6. pList = Process.GetProcessesByName("EXCEL")
    7. For Each _proc In pList
    8. _proc.Kill()
    10. Next
    12. End Sub


    nach jeder aktion die mit excel zu tun hat wird

    VB.NET-Quellcode

    1. Button6.PerformClick()


    gerufen und so wird excel.exe geschlossen und erscheint nicht mehr im Taskmanager

    Hat jemand ne idee wie ich die lestige Frage uebergehen kann "Datei existiert, soll sie uberschriben werden?"
    ich moechte das die ueberschrieben wird ohne das ich jedes mal auf JA klicken muss

    danke
    Schäm dich nicht "Zu fragen", schäm dich "Nicht zu wissen". ?(