Pivot SQL und VBA
05.02.2015 16:24:32
Christoph
ich habe mit MSQuery eine Verbindung zu einem Sheet in einer zweiten Exceldatei erstellt und mir die Daten als Pivottabelle zurückgeben lassen.
mit der Anweisung:
SQL_String_old = ActiveWorkbook.Connections("Meine_Verbindung").ODBCConnection.CommandText
SQL_String_New = pseudoCode:Ersetze_das_Datum_in_der_WHERE_Clause(SQL_String_old):pseudoCode
Hole ich die SQL Anweisung aus der Verbindung und ändere das Datum in der WHERE Clause.
Danach weise ich der Verbindung den neuen SQL String zu mit:
ActiveWorkbook.Connections("Meine_Verbindung").ODBCConnection.CommandText = SQL_String_New
Das funktioniert auch erwartungsgemäß.
ABER: nach der Aktualisierung habe ich eine neue Verbindung mit dem Namen "Verbindung". Die ursprüngliche Verbindung "Meine_Verbindung" existiert zwar noch, hat aber keine Verbindung mehr zu meiner Pivottabelle und auch kein Refresh Date mehr.
Ich möchte aber die alte Verbindung behalten, da ich nach dem Verbindungsnamen entscheiden möchte, welchen Datumszeitraum ich in der WHERE Clause mitgebe.
Ich würde mich freuen, wenn jemand eine Idee hat.
vielen Dank im voraus.
Christoph