Office: Auf SQL-Abfrage warten und Code fortsetzen

Hallo alle zusammen,

ich habe ein Problem mit einem Excel Makro von mir.
Hier mal so eine Art "Pseudocode":

1. Aufrufen eines Excel-Sheets
2. Makro auf diesem Excel-Sheet starten (SQL Abfrage Datenbank)
3. Diverse Berechnungen mit den aktualisierten Daten durchführen
4. Speichern und schließen

Das Problem: Excel versucht bereits weiter zu rechnen, obwohl die SQL-Abfrage der Daten noch nicht beendet ist und es kommt zu Fehlermeldungen!

Hat hier jemand eine Idee wie man das in den Griff bekommen kann?
Mit Application.Wait geht es leider nicht, da hier scheinbar auch die SQL-Abfrage unterbrochen wird.

Vielen Dank schon mal
Sebastian

:)

 

Moin, Sebastian,

WAIT hält das Makro für die vorgegebene Zeit an - ich würde entweder auf die API-Funktion SLEEP bzw. auf Application.OnTime und DoEvents zurückgreifen...

 

Hi jinx,

das funktioniert leider nicht, da bei allen Wartefunktionen die SQL-Abfrage auch angehalten wird...Es ist wirklich sehr frustrierend :-)

Die doEvents-Lösung eignet sich glaub ich auch nicht, weil damit nur "Events" außerhalb von Excel zugelassen werden (so ist es mir zumindest vorgekommen *Smilie)

Ich bin für weitere kreative Lösungsvorschläge wirklich dankbar!
Ist es wirklich so, dass die Makro-Befehle nicht nacheinander sondern quasi alle auf einmal ausgeführt werden? Warum wartet Excel nicht, bis die SQL-Abfrage vollständig ist??

Liebe Grüße
Sebastian

 

Morgen Sebastian,

wenn es sich um eine Querytable handeln sollte nimm .Refresh False.

Oder (auch bei einem Pivotcache) nimm .BackgroundQuery = False

HTH, Bernd

 

Hallo bst,

vielen Dank für Deinen Hinweis! Jetzt klappt es!! :-))

Viele Grüße und danke für die Hilfe
Sebastian

 

Könntest Du das bitte näher ausführen?

Bin SEHR daran interessiert!!!

Danke!

 

Abend,

da gibt es eigentlich nicht viel weiter zu erklären.

Code:

startet die Query und macht sofort mit dem nächsten VBA-Befehl weiter ohne auf die Fertigstellung/das Ergebnis der Query zu warten. Genau so funktioniert z.B. auch ein Shell-Befehl.

Code:

startet die Query und wartet bis diese fertig ist.

cu, Bernd

 

Danke für die schnelle Antwort!

startet die Query und wartet bis diese fertig ist.

cu, Bernd

Wie würde es dann insgesamt aussehen?

With Thisworkbook
.RefreshAll BackgroundQuery = False

oder

With Thisworkbook
.RefreshAll
.BackgroundQuery = False

gilt das auch für Verbindungen mit dem Analysis Server?

BG
Evren

 

Hallo,

ich bin immernoch am Suchen...

With ThisWorkbook.Connections(1)
.BackgroundQuery = False
End With

liefert mit den Fehlercode 438

"Objekt unterstützt diese eigenschaft oder Methode nicht."

MsgBox ThisWorkbook.Connections(1).Type

liefert eine "1" zurück.