"Run-time error '-2147023179 (800706b5)" Automation-Fehler Die Schnittstelle ist unbekannt

Vor kurzem hatte ich ein upgrade von meinem computer und Betriebssystem hier bei der Arbeit. Ich ging von Windows XP auf Windows 7.

Mein Problem ist, dass ich gebaut hatte, mehrere Access-2007-Datenbanken, die call-Excel-Dateien und öffnet Sie. Nun seit dem upgrade aus welchem Grund auch immer Sie tun, keine Funktion. Ich bekomme folgende Fehlermeldung:

"Run-time error '-2147023179 (800706b5)":
Automation-Fehler
Die Schnittstelle ist unbekannt.

Hier ist ein Beispiel code, den ich verwende:

Private Sub cmdOpenXL_Click()
Dim xlApp As Excel.Application
Dim xlWB As Excel.Workbook
Set xlApp = New Excel.Application
With xlApp
    .Visible = True
    Set xlWB = .Workbooks.Open("P:\unitvalu\morningstar\database\output\Nationwide.xlsx", , False)
End With
End Sub

Gesucht hab ich diese Fehlermeldung und kann nicht finden, eine Lösung, die scheint zu funktionieren für mich.

InformationsquelleAutor Lkn4EffThruTech | 2014-02-04
  1. 2

    Ihrem Access-Projekt enthält einen Verweis auf die Excel-Typ-Bibliothek, aber das Referenz wurde gebrochen durch das system-upgrade.

    Öffnen Sie den VB-Editor und wählen Sie dann Extras->Referenzen aus dem Hauptmenü. Ich vermute, Sie werden sehen, "Missing" gemeldet, für die "Microsoft Excel Object Library" - Referenz. Wenn ja, deaktivieren Sie diese Referenz, suchen Sie das gültige Referenz angeboten in der drop-down-Liste aus und setzen Sie ein Häkchen auf, dass man.

    Klicken Sie auf "OK", und dann wählen Sie "Debuggen" ->Kompilieren von VB-Editor im Hauptmenü. Wenn das Projekt ohne Fehler kompiliert wird, sind Sie fertig. Wenn nicht, haben Sie irgendetwas zu korrigieren, was der compiler beschwert sich darüber.

    Alternativ können Sie die späte Bindung verwenden, das würde die Notwendigkeit vermeiden, um eine Excel-Referenz.

    Private Sub cmdOpenXL_Click()
Dim xlApp As Object ' Excel.Application
Dim xlWB As Object ' Excel.Workbook
Set xlApp = CreateObject("Excel.Application")
With xlApp
    .Visible = True
    Set xlWB = .Workbooks.Open("P:\unitvalu\morningstar\database\output\Nationwide.xlsx", , False)
End With
End Sub
    • Danke für Eure Antworten HansUp. Ich schaute auf die geprüft verfügbare Verweise, und es gab keine gekennzeichneten "fehlt". Ich bin glücklich genug, zu haben, hatte meinen alten laptop noch, und ich im Vergleich all die Referenzen, die in die alte mit der neuen. Alle Verweise waren die gleichen, mit Ausnahme der Datei-Pfade für die Objekt-Bibliotheken. Ich habe auch versucht Ihr recommendded Codierung oben und ich bin noch immer die gleiche Fehlermeldung bei der 4. Zeile des Codes. (Set xlApp = CreateObject("Excel.Anwendung"). Ich danke Ihnen nochmals für Ihre Hilfe bei diesem.
    • Ich verstehe nicht, wie CreateObject("Excel.Application") kann fehlschlagen, wenn Sie eine funktionsfähige version von Excel installiert ist. Die einzige andere Möglichkeit die mir einfällt, ist deine db Datei beschädigt ist. Sie können testen, die Möglichkeit, durch erstellen einer neuen db-Datei, und fügen Sie nur, dass eine VBA-Prozedur. Wenn es funktioniert, in der neuen db, unterstützte den Vorschlag der alten db ist korrupt. Aber wenn die VBA-Prozedur funktioniert immer noch nicht in die neue db, da bin ich überfragt. 🙁
    InformationsquelleAutor HansUp
Schreibe einen Kommentar