Office: (Office 2016) Laufzeitfehler beim Öffnen ADODB.Connection

Helfe beim Thema Laufzeitfehler beim Öffnen ADODB.Connection in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Ich habe plötzlich ein merkwürdiges Phänomen bei einem Makro, dass bisher problemlos lief. Ich starte die Auswertung und sie läuft beim 1. Durchlauf... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von Powerhouse, 14. Januar 2020.

Seite 1 von 2

POWERHOUSE

Powerhouse

Laufzeitfehler beim Öffnen ADODB.Connection

Ich habe plötzlich ein merkwürdiges Phänomen bei einem Makro, dass bisher problemlos lief.

Ich starte die Auswertung und sie läuft beim 1. Durchlauf normal durch.
Wenn ich die Auswertung ein 2. Mai starte, kommt beim Cnn.open ein "Schwerwiegender Fehler" mit dem Fehlercode -2147418113.

Ich konnte keine Beschreibung zu diesem Fehlercode finden.

Wenn ich die Datei speichere und unter dem gleichen Namen öffne, kommt die Fehlermeldung schon beim 1. Durchlauf. Wenn ich die Datei jedoch umbenenne, dann habe ich das Problem beim 1. Durchlauf wieder nicht.

Nenne ich die Datei wieder auf den ursprünglichen Namen zurück, kommt wieder der Fehlercode beim 1. Durchlauf.

Hier sind mal die Codeschnipsel. Vielleicht hat jemand eine Idee, an was das liegen kann. Falls die Datei benötigt wird, müsste ich zuerst die Daten anonymisieren.

Code:

Sub KSTAufstellung()
Dim Cnn As New ADODB.Connection

Application.ScreenUpdating = False

' Öffnen ODBC-Verbindung auf Excel-Tabelle Adressen externe User
Cnn.ConnectionString = "DRIVER={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)}; DBQ=" & ThisWorkbook.FullName
Cnn.Open

Call Verbrauch_Ausgabe(Cnn)
Call BH_Ausgabe(Cnn)
Call Miete_Ausgabe(Cnn)

Cnn.Close
Set Cnn = Nothing

Application.ScreenUpdating = True
End Sub

Sub Verbrauch_Ausgabe(Cnn As ADODB.Connection)
Dim Verbrauch As ADODB.Recordset
Dim AWS As Worksheet ' Neues Tabellenblatt (ActiveWorkSheet)
Dim Vorlage As Worksheet
Dim strSql As String
Dim Unternehmen_alt As String
Dim LK_alt As String
Dim Best_alt As String
Dim KST_alt As Variant
Dim ReNr As Long
Dim ReDat As Date
Dim Zeile As Long
Dim Zeile_KST_Beginn As Long

On Error GoTo ErrorHandler

Set Vorlage = ThisWorkbook.Sheets("Verbrauch_Vorlage")
Vorlage.Visible = True

Set Verbrauch = CreateObject("ADODB.RecordSet")

strSql = "SELECT * FROM [Verbrauch$] ORDER BY txtUnternehmen, txtLeistungsklasse, txtBestellung, KST, txtDruckerName"
Verbrauch.Open strSql, Cnn

Unternehmen_alt = ""

If Verbrauch.EOF Or Verbrauch.BOF Then
' Keine Werte in Tabelle
MsgBox "Es sind noch keine Verbrauchswerte erfasst, daher kann keine Ausgabe dieser Werte erfolgen!", 48, "Warnung"
GoTo Ende
End If

Do Until Verbrauch.EOF
If Verbrauch!txtUnternehmen "" Then
If Unternehmen_alt = "" Then
' 1. Firma
GoSub Berichtskopf
ElseIf Unternehmen_alt Verbrauch!txtUnternehmen Then
' Firmenwechsel
GoSub KST_Gruppenfuss
GoSub Unternehmen_Gruppenfuss
GoSub Berichtskopf
End If

If Zeile_KST_Beginn < 1 Or _
LK_alt Verbrauch!txtLeistungsklasse Or _
Best_alt Verbrauch!txtBestellung Then
' Leistungsklasse Wechsel
GoSub Leistungsklasse_Gruppenkopf
End If

If KST_alt Verbrauch!KST Then
' KST Wechsel
KST_alt = Verbrauch!KST
GoSub KST_Gruppenfuss
End If

' Detailzeile kopieren
Vorlage.Select
Vorlage.Range("A4:G4").Select
Selection.Copy
AWS.Select
AWS.Cells(Zeile, 1).Select
AWS.Paste
AWS.Cells(Zeile, 1).Value = Verbrauch!txtDruckerName
AWS.Cells(Zeile, 2).Value = Verbrauch!txtUnternehmen
AWS.Cells(Zeile, 3).Value = Verbrauch!txtDruckerType
AWS.Cells(Zeile, 4).Value = Nz(Verbrauch!KST_Farbe, 0) + Nz(Verbrauch!KST_SW, 0)
AWS.Cells(Zeile, 5).Value = Verbrauch!KST
AWS.Cells(Zeile, 6).Value = Verbrauch!txtStandort
AWS.Cells(Zeile, 7).Value = Verbrauch!txtSerienNr
Zeile = Zeile + 1
End If
Verbrauch.MoveNext
Loop

GoSub KST_Gruppenfuss
GoSub Unternehmen_Gruppenfuss

Ende:
Verbrauch.Close
Set Verbrauch = Nothing
Vorlage.Visible = False

Exit Sub

' Ich weiß, ich weiß: GOSUB ist "Pfui!", aber hier nützlich, da die Anweisungen von verschiedenen Punkten aus angesprungen wird. (GRE)
Berichtskopf:
Unternehmen_alt = Verbrauch!txtUnternehmen
ReNr = Verbrauch!txtReNr
ReDat = Verbrauch!txtReDatum
' Anlegen neues Tabellenblatt
ThisWorkbook.Worksheets.Add After:=Worksheets(Worksheets.Count)
Set AWS = ActiveSheet
AWS.Name = Unternehmen_alt & " KSt."
LK_alt = ""
Best_alt = ""
KST_alt = ""
Zeile = 1

Leistungsklasse_Gruppenkopf:
If KST_alt "" Then
GoSub KST_Gruppenfuss
End If
If LK_alt "" Then
GoSub Leistungsklasse_Gruppenfuss
End If
LK_alt = Verbrauch!txtLeistungsklasse
Best_alt = Verbrauch!txtBestellung
' Leistungsklasse Gruppenkopf kopieren
Vorlage.Select
Vorlage.Range("A1:G3").Select
Selection.Copy
AWS.Select
AWS.Cells(Zeile, 1).Select
AWS.Paste
AWS.Cells(Zeile, 1) = LK_alt
AWS.Cells(Zeile, 3) = "Bestellung " & Best_alt
Zeile = Zeile + 3
KST_alt = Verbrauch!KST
Zeile_KST_Beginn = Zeile

Return

KST_Gruppenfuss:
' KST-Gruppenfuß kopieren
Vorlage.Select
Vorlage.Range("A5:G6").Select
Selection.Copy
AWS.Select
AWS.Cells(Zeile, 1).Select
AWS.Paste
AWS.Cells(Zeile, 5).FormulaLocal = "=SUMME(D" & Zeile_KST_Beginn & ":D" & Zeile - 1 & ")"
Zeile = Zeile + 2
Zeile_KST_Beginn = Zeile

Return

Leistungsklasse_Gruppenfuss:
' Leistungsklasse-Gruppenfuß kopieren
Vorlage.Select
Vorlage.Range("A7:G9").Select
Selection.Copy
AWS.Select
AWS.Cells(Zeile, 1).Select
AWS.Paste
Zeile = Zeile + 3

Return

Unternehmen_Gruppenfuss:
' Unternehmen-Gruppenfuß kopieren
Vorlage.Select
Vorlage.Range("A10:G12").Select
Selection.Copy
AWS.Select
AWS.Cells(Zeile, 1).Select
AWS.Paste
AWS.Cells(Zeile + 1, 4).FormulaLocal = "=SUMME(D2:D" & Zeile - 1 & ")"
AWS.Cells(Zeile + 1, 5).Value = Unternehmen_alt
AWS.Cells(Zeile + 1, 6).Value = "Minolta Rechnung " & ReNr & " / " & Format(ReDat, "dd.mm.yyyy")

' Spaltenbreiten anpassen
AWS.Columns("A:G").EntireColumn.AutoFit
AWS.Cells(Zeile, 16).Select
Return

ErrorHandler:
Select Case Err.Number
Case 1004
MsgBox "KSt. bereits erstellt; ich mache mit den BH weiter...", 16, "Fehler"
GoTo Ende

Case Else
MsgBox Err.Number & " / " & Err.Description, 16, "Fehler"
GoTo Ende
End Select

Resume

End Sub

' Die anderen 2 Subs sind gleich aufgebaut, nehmen nur sind da die SQL-Anweisung und die Ausgabespalten etwas anders.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Vielleicht kann jemand bereits mit diesen Angaben was anstellen.

Danke.

:)

Powerhouse, 14. Januar 2020

#1
WB425

wb425

Hallo Powerhouse,
ich bin mir nicht sicher ob ich da wirklich helfen kann, aber erstmal danke für Posten dieses Makros. Ich bin schon länger auf der Suche nach so einer Lösung.
Vermutlich kam der Fehler nach einer Update-Installation?

Möglicherweise funktioniert das:
Dim conn As ADODB.Connection
Set conn = New ADODB.Connection

Näheres hier: https://docs.microsoft.com/en-us/sql...l-server-ver15
(Ich habe hier bewusst auf die en-us-Version verwiesen. Die Deutsche Übersetzung ist da eher weniger brauchbar.)

wb425, 15. Januar 2020

#2
POWERHOUSE

Powerhouse

Hallo Wolfgang,

das mit dem Update habe ich mir auch schon gedacht.
Es ist mit deiner Lösung zwar etwas besser geworden, ich muss jetzt die Datei nur noch schließen und nach dem neu Öffnen kann ich das Makro wieder Ausführen (und muss nicht mehr die Datei vorher umbenennen).

Trotzdem kommt der Fehler, wenn ich das Makro 2 x hintereinander ausführe. Immer beim Cnn.Open.

So, als ob die Connection immer noch offen ist. Wenn ich aber im Direktfender Cnn.close eingebe, kommt die Meldung, dass man eine geschlossene Connection nicht mehr schließen kann.

Powerhouse, 15. Januar 2020

#3
MASE

Mase

Laufzeitfehler beim Öffnen ADODB.Connection

Hi,

ich würde mal auf Fehlersuche gehen.
Einfaches Konstrukt zum Anfang genügt:
Code:

Sub DeineSub()
'Deklarationsteil
Dim cnn As ADODB.Connection
'
On Error GoTo Finisherr
'Definitionsteil

'Fehlerbehandlung und cleanUp
Finisherr:
If Err.Number 0 Then
MsgBox Err.Number & vbrlf & Err.Description
End If
'
If cnn.State = 1 Then cnn.Close
'
Set cnn = Nothing
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Auf welche ADODB-Bibliothek wird verwiesen? (Extras->Verweise->...x.x ?

Mase, 15. Januar 2020

#4
POWERHOUSE

Powerhouse

Zur Info: Ich habe es auch so probiert:

Code:

Dim Cnn As Object

Application.ScreenUpdating = False

' Öffnen ODBC-Verbindung auf Excel-Tabelle Adressen externe User
Set Cnn = CreateObject("ADODB.Connection")
Cnn.ConnectionString = "DRIVER={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)}; DBQ=" & ThisWorkbook.FullName
Cnn.Open

Call Verbrauch_Ausgabe(Cnn)
Call BH_Ausgabe(Cnn)
Call Miete_Ausgabe(Cnn)

Cnn.Close
Set Cnn = Nothing

Application.ScreenUpdating = True
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gleiches Ergebnis.

Powerhouse, 15. Januar 2020

#5
POWERHOUSE

Powerhouse

Hallo Mase,

mit deinem kurzen Codeschnipsel taucht der Fehler interessanterweise nicht auf.

Ich suche mal weiter. Muss noch die Verweise prüfen. Melde mich wieder.

Powerhouse, 15. Januar 2020

#6
MASE

Mase

von Powerhouse

Hallo Mase,

mit deinem kurzen Codeschnipsel taucht der Fehler interessanterweise nicht auf.

Ich suche mal weiter. Muss noch die Verweise prüfen. Melde mich wieder.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Dann geh Deinen Code mal in Einzelschritten durch und schau warum das so ist.

Zuletzt von einem Moderator bearbeitet: 12. Januar 2021

Mase, 16. Januar 2020

#7
POWERHOUSE

Powerhouse

Laufzeitfehler beim Öffnen ADODB.Connection

Doch zu früh gefreut.

Beim Ausführen des (Minimal-) Codes von Mase kam der Fehler nicht beim 2. Mal aber wenn ich ihn mehrmals durchführte tauchte der Fehler dann doch auf (z. B. beim 7. Mal, dann aber wieder nach 4 Versuchen).

Und sobald er 1 x auftritt, tritt er immer wieder auf, bis man die Datei schließt und dann wieder öffnet. Fehlermeldung: Siehe Anhang.

Verweise: Microsoft ActiveX Data Objects 6.1 Library

Es hat aber auch bei Late Binding diesen Fehler.

Powerhouse, 16. Januar 2020

#8
MASE

Mase

Löse mal 6.1 und geh auf 2.8

Nur interessehalber ....

Mase, 16. Januar 2020

#9
POWERHOUSE

Powerhouse

Na ja, bis zum 8. Mal habe ich es geschafft, dann kam der Fehler.

Ich habe jetzt noch was gemacht. Ich habe eine neue, leere Exceltabelle erstellt und nur diesen Code hineingestellt. Das gleiche Ergebnis.

Problem tritt wie gesagt auch bei Late Binding auf (daher glaube ich, dass es weniger am Verweis liegt.)

Die Tabelle ist im Anhang.

Powerhouse, 16. Januar 2020

#10
POWERHOUSE

Powerhouse

Mittlerweile taucht der Fehler bei anderen Exceldateien, die den gleichen Cnn.Connectionstring auf die eigene Tabelle haben und die bis vor kurzem problemlos gelaufen sind.

Ich glaube immer mehr, dass es wieder einmal ein Windows-Update ist, das das Problem auslöst.

Powerhouse, 16. Januar 2020

#11
MASE

Mase

Erfolgreich getestet:

Win10 1909 18363.592
Office 2013 15.0.5207.1000

Mase, 16. Januar 2020

#12
POWERHOUSE

Powerhouse

Laufzeitfehler beim Öffnen ADODB.Connection

Na ja, wir haben Office 2016 vielleicht liegt es daran.

Powerhouse, 16. Januar 2020

#13
LUSCHI

Luschi

Hallo Powerhouse,

auch bei mir klappt die 'Late Binding'-Methode, allerdings verwende ich selber diesen Connection-String in meinen Projekten: Code:

Cnn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & _
ThisWorkbook.FullName & _
";Extended Properties=""Excel 12.0 Macro;HDR=YES"";"
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

siehe: Excel connection strings - ConnectionStrings.com

Gruß von Luschi
aus klein-Paris

Win10-1903 Enterprise
Office 2019 pro/plus

Luschi, 16. Januar 2020

#14
POWERHOUSE

Powerhouse

Danke Luschi das war es!

Ich habe einen Loop gebaut und das Ding hat es bis 100 ohne Fehler geschafft.

Nachteil: jetzt kann ich in allen Programmen, wo das vorkommt den Code umbauen!

Powerhouse, 16. Januar 2020

#15

(Du musst angemeldet oder registriert sein, um eine Antwort erstellen zu können.)

Seite 1 von 2

Thema:

Laufzeitfehler beim Öffnen ADODB.Connection

Die Seite wird geladen...

Laufzeitfehler beim Öffnen ADODB.Connection - Similar Threads - Laufzeitfehler Öffnen ADODB
Laufzeitfehler 9 VBA
in Microsoft Excel Hilfe
Laufzeitfehler 9 VBA: Nschdem ich die Office Version von 2010 auf 2019 aktualisiert habe wird mir der Laufzeitfehler 9 ausgegeben. Das ist der Code Sub FiberCollect() Dim NumRows As Long 'letzte celle Dim Counter As...
VBA Laufzeitfehler 9
in Microsoft Excel Hilfe
VBA Laufzeitfehler 9: Guten Abende an alle VBA Profi, Ich lerne gerade Programmierung mit VBA und habe fast null Ahnung von Fehlern ich habe folgenden Probleme. ich einen xlsm Datei versuche eine Tabelle mit codename...
[VBA] .Documents.Open -> Laufzeitfehler 91
in Microsoft Excel Hilfe
[VBA] .Documents.Open -> Laufzeitfehler 91: Hallo zusammen, bekomme aktuell den Laufzeitfehler 91 an der Codestelle, wo ich versuche ein Word Dokument zu öffnen (Set wdDoc = wdApp.Documents.Open(wbBook.Path & "\" & stWordDocument)), das...
MS Access Lauftzeitfehler "2501"
in Microsoft Access Hilfe
MS Access Lauftzeitfehler "2501": Hallo Liebe Office Gemeinde, Ich habe ein Problem mit meinem MS Access, wir haben unsere MA Liste in einer Access DB. Wenn man in unserem Formular auf "Drucken MA" klickt dann wird eine PDF...
Excel VBA Laufzeitfehler 424 Objekt erforderlich
in Microsoft Excel Hilfe
Excel VBA Laufzeitfehler 424 Objekt erforderlich: Hallo zusammen, ich habe schon verschiedene Antworten zum Laufzeitfehler 424 gefunden, komme aber leider damit doch irgendwie nicht weiter (bin absoluter VBA-Neuling). Folgendes Makro habe ich...
Laufzeitfehler "424" Objekt erforderlich Selenium VBA
in Microsoft Excel Hilfe
Laufzeitfehler "424" Objekt erforderlich Selenium VBA: Hallo Zusammen, ich möchte mithilfe von Selenium in VBA eine Tabelle auf einer Webseite in eine Excel Tabelle kopieren. Allerdings bekomme ich den Fehler "Laufzeitfehler "424" Objekt...
Form schließen, wieder öffnen -> Laufzeitfehler 2467
in Microsoft Access Hilfe
Form schließen, wieder öffnen -> Laufzeitfehler 2467: hi, ich möchte den Inhalt eines Bezeichnungsfeldes dauerhaft ändern dazu - öffne ich das Formular in der Entwicklungsansicht - ändere die Caption - schließe das Formular - öffne das Formular in...

Anmelden oder registrieren

Suche

Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.

Akzeptieren Weitere Informationen...

Information ausblenden