Clever-Excel-Forum

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?

Hallöchen,

Problem ist gelöst, Ursache unklar Sad

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")

schauan

schauan