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