Visual Basic - Problem mit dem erstellen eines Workbook Objektes

  • VB.NET

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von VaporiZed.

    Visual Basic - Problem mit dem erstellen eines Workbook Objektes

    Hallo VBA Community,

    Vieleicht könnt ihr mir ja bei meinem Problem helfen. Das gegeben Programm soll werte in gegebnenen Zeitintervallen in einer Exceltabelle schreiben. Dies funktioniert auf meinem Computer wunderbar. nur leider nicht auf dem es dann schlussendlich laufen soll :/

    Quellcode

    1. oExcel = CreateObject("Excel.Application") ' Excel Objekt definieren
    3. oBook = oExcel.Workbooks.Open("C:\Users\" + Environment.UserName + "\Desktop\KPT Auswertung\src\datenbank.ods") 'Workbook öffnen
    4. oExcel.DisplayAlerts = False ' Excel Fenseransicht ausschalten
    6. oSheet = oBook.Worksheets(1) ' Tabelle 1 öffnen
    8. 'Männer
    9. oSheet.Range("A" + excelid.ToString).Value = Now.ToString("dd.MM.yyyy")
    10. oSheet.Range("B" + excelid.ToString).Value = "Ganzer Tag"
    11. oSheet.Range("C" + excelid.ToString).Value = "Männer"
    12. oSheet.Range("D" + excelid.ToString).Value = md_1
    13. oSheet.Range("E" + excelid.ToString).Value = md_2
    14. oSheet.Range("F" + excelid.ToString).Value = md_3
    15. oSheet.Range("G" + excelid.ToString).Value = md_4
    16. oSheet.Range("H" + excelid.ToString).Value = md_5
    18. 'Frauen
    19. oSheet.Range("A" + excelid_frauen.ToString).Value = Now.ToString("dd.MM.yyyy")
    20. oSheet.Range("B" + excelid_frauen.ToString).Value = "Ganzer Tag"
    21. oSheet.Range("C" + excelid_frauen.ToString).Value = "Frauen"
    22. oSheet.Range("D" + excelid_frauen.ToString).Value = fd_1
    23. oSheet.Range("E" + excelid_frauen.ToString).Value = fd_2
    24. oSheet.Range("F" + excelid_frauen.ToString).Value = fd_3
    25. oSheet.Range("G" + excelid_frauen.ToString).Value = fd_4
    26. oSheet.Range("H" + excelid_frauen.ToString).Value = fd_5
    28. oBook.Close(SaveChanges:=True, Filename:="C:\Users\" + Environment.UserName + "\Desktop\KPT Auswertung\src\datenbank.ods") ' Workbook Schließen und Speichern
    29. sw.Close()

    Auf den zur Anzeige bestimmten Computer bekomme ich nur die Fehlermeldung:
    Die Open-Eigenschaft des Woorkbooks-Objektes kann nicht zugeordnen werden


    Auf dem Computer ist sowohl Office, als auch LibreOffice installiert, trotzdem hat er ja irgendwie Probleme das Objekt zu erstellen.

    Irgendwelche Lösungsansätze?

    Vielen Dank,
    St4ch1

    Was passiert denn, wenn Du in den Projektverweisen direkt auf das Excel-COM-Objekt verweist und damit Dein Excel.Application-Objekt erstellst?
    Hätte auch den Vorteil, dass Du - wie stets empfohlen - auch mit Option Strict On arbeiten könntest. Vielleicht wird dann auf dem Zielcomputer ein Schuh draus und der PC verweist auf eine fehlende DLL, die Du dann mitliefern solltest.
    Ggf. ist ja auch eine andere Excel-Version auf dem PC, die dann Mus draus werden lässt.
    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.