vb.net Probleme beim Excel beenden nach bearbeiten erhalte Fehler: HRESULT: 0x800A03EC

  • VB.NET

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

    vb.net Probleme beim Excel beenden nach bearbeiten erhalte Fehler: HRESULT: 0x800A03EC

    Hallo Zusammen

    Problem: Mein Tool soll per BulkLoad eine CSV Datei in eine Datenbank kopieren. Das funktioniert soweit sehr gut. Da die csv Datei nicht wirklich eine CSV Datei ist sondern eine txt Datei will ich diese automatisiert erstellen.
    in der txt Datei sind 65 Zeichen aneinander gereiht. Mein Makro öffnet die txt Datei kopiert diese in die Tabelle1. In Tabelle2 wird mittels =Teil die Zeichen an bestimmten Positionen aufgeteilt.
    Nach dem beenden des Makros möchte ich die Werte der Tabelle2 in CsvToDb.csv speichern. leider erhalte ich immer den Fehler HRESULT: 0x800A03EC. Über den Fehler liest man viel leider bin ich aber nicht im Stande den Fehler zu finden.

    VB.NET-Quellcode

    1. Dim oExcel As Microsoft.Office.Interop.Excel.Application
    2. Dim oBook As Microsoft.Office.Interop.Excel.Workbook
    3. Dim oBooks As Microsoft.Office.Interop.Excel.Workbooks
    5. oExcel = CreateObject("Excel.Application")
    6. oExcel.Visible = False
    7. oBooks = oExcel.Workbooks
    9. oBook = oBooks.Open(Application.StartupPath & "\Create_CSV.xlsm")
    11. oExcel.Run("Tabelle1_Teilen")
    12. 'HRESULT: 0x800A03EC
    13. oBook.SaveAs(Filename:=Application.startupPath & "\CsvToDb.csv", CreateBackup:=False, Local:=False, FileFormat:="xlCSV")
    14. oBook.Close(SaveChanges:=false)
    15. oBook = Nothing
    16. oExcel.Quit()
    17. oExcel = Nothing


    Der Fehler erscheint nach dem ausführen des Makros in der zeile: oExcel.Run("Tabelle1_Teilen")

    ich hoffe jemand kann mir helfen.

    Gruss und Danke

    shadow01 schrieb:

    Über den Fehler liest man viel
    jo, habichmal gegoogelt und fund dieses:
    stackoverflow.com/questions/70…a03ec-on-worksheet-range:
    This problem occurs if you are using a backwards compatible sheet (a .xls) instead of a .xlsx.
    To allow sheets to be opened in pre office 2007 version it can't contain more than 65k rows. You can check the number of rows in your sheet by using ctrl+arrowdown till you hit the bottom.
    If you try to get a range larger than that number of rows it will create an error
    Das ist doch ziemlich klar: Der Fehler wird durch das Makro ausgelöst.

    shadow01 schrieb:

    ich hoffe jemand kann mir helfen.
    Helfen kann nur jemand, der das Makro kennt.

    Hallo ErfinderDesRades

    Danke für deine Antwort aber am Makro liegt es nicht. Wenn man das Makro manuell startet läuft es Tipp Top. Ich dachte erst es liegt daran dass die aktive Tabelle die falsche ist.
    Das Makro sieht so aus:

    VB.NET-Quellcode

    1. ​
    2. Sub Tabelle1_Teilen()
    3. '
    4. ' Tabelle1_Teilen Makro
    5. ' Werte der Tabelle1 teilen
    6. '
    7. 'Letzte Zeile in Tabelle1 ermitteln
    8. letztezeile = Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row
    9. ' MsgBox letztezeile
    10. '
    11. 'von Tabelle1 auf Tabelle2 Teilen z.B. =Teil(A2;1;9) ; =Teil(A2;10;9) etc
    12. Sheets("Tabelle2").Select
    13. Range("A2").Select
    14. ActiveCell.FormulaR1C1 = "=MID(Tabelle1!RC,1,9)"
    15. Range("B2").Select
    16. ActiveCell.FormulaR1C1 = "=MID(Tabelle1!RC[-1],10,9)"
    17. Range("C2").Select
    18. ActiveCell.FormulaR1C1 = "=MID(Tabelle1!RC[-2],19,1)"
    19. Range("D2").Select
    20. ActiveCell.FormulaR1C1 = "=MID(Tabelle1!RC[-3],20,4)"
    21. Range("E2").Select
    22. ActiveCell.FormulaR1C1 = "=MID(Tabelle1!RC[-4],24,10)"
    23. Range("F2").Select
    24. ActiveCell.FormulaR1C1 = "=MID(Tabelle1!RC[-5],34,3)"
    25. Range("G2").Select
    26. ActiveCell.FormulaR1C1 = "=MID(Tabelle1!RC[-6],37,4)"
    27. Range("G2").Select
    28. ActiveCell.FormulaR1C1 = "=MID(Tabelle1!RC[-6],37,5)"
    29. Range("H2").Select
    30. ActiveCell.FormulaR1C1 = "=MID(Tabelle1!RC[-7],42,8)"
    31. Range("I2").Select
    32. ActiveCell.FormulaR1C1 = "=MID(Tabelle1!RC[-8],50,9)"
    33. Range("J2").Select
    34. ActiveCell.FormulaR1C1 = "=MID(Tabelle1!RC[-9],59,7)"
    35. Range("A2:J2").Select
    37. 'auf alle Zeilen anwenden
    38. Selection.AutoFill Destination:=Range("A2:J" & letztezeile), Type:=xlFillDefault
    39. Range("A2:J" & letztezeile).Select
    41. 'alles Kopieren und Werte einfügen
    42. Selection.Copy
    43. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    44. :=False, Transpose:=False
    45. Range("K2").Select
    47. 'Als CSV speichern
    48. 'ActiveWorkbook.SaveAs Filename:=Application.ActiveWorkbook.Path & "\CsvToDb.csv", CreateBackup:=False, Local:=False, FileFormat:=xlCSV
    49. 'ActiveWorkbook.Close SaveChanges:=False
    50. End Sub


    Gruss und Danke