Daten aus geschlossener Mappe öffnet Mappe

[schauan]

Hallöchen allerseits,

ich wurde heute auf einen Fehler bei einer meiner Anwendungen aufmerksam gemacht. Es geht dabei darum, dass ein Makro, welches bisher per ADO Daten aus geschlossenen Mappen geholt hat, diese plötzlich öffnet. Der betreffende Codeteil sieht so aus:

Code:

Dim dbConnection As ADODB.Connection, rs As ADODB.Recordset '1
Dim dbConnectionString As String, sQuery As String
Dim TargetCell As Range, i As Integer
Dim arrTemp
'Excel 2010
dbConnectionString = "DRIVER={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};" & _
     "IMEX=1;MaxScanRows=16;DBQ=" & SourceFile
Set dbConnection = CreateObject("ADODB.CONNECTION")
dbConnection.Open dbConnectionString, adLockReadOnly, adOpenStatic

Die Mappen werden bei dbConnection.Open ... geöffnet.
Am code wurde schon seit Jahr und Tag nichts mehr geändert.

Im Juli hatten wir neben anderen 3 Updates, die Office oder Excel direkt betrafen:
Update für Microsoft Office 2010 (KB2881030) 32-bit-Edition
Sicherheitsupdate für Microsoft Excel 2010 (KB3115130) 32-bit-Edition
Definitionsupdate für Microsoft Office 2010 (KB3115247) 32-bit-Edition

Das Problem ist nicht rechnerspezifisch. Kennt das jemand und gibt es da eine Lösung?

[schauan]

Hallöchen,

Problem ist gelöst, Ursache unklar

Ich erzeuge an anderer Stelle eine Meldung, solange die Datenübernahme läuft. Bisher hat für die Wartezeit vor der Fortsetzung des Programms ein TimeValue von einer Sekunde ausgereicht. Nach Änderung auf 2 Sekunden geht alles wieder ...

Code:

'Meldung in Userform platzieren
dlg_MakroLaeuft.Label1.Caption = "Datenübernahme, bitte warten!"
dlg_MakroLaeuft.Repaint
dlg_MakroLaeuft.Show vbModeless
Application.Wait Now + TimeValue("00:00:02")