QueryTables.Add verschiebt Daten nach rechts
13.03.2017 10:35:27
Paul
Guten Tag ich habe ein kleines Problem mit dem einfügen von QuerryTables wobei ich die Daten meist mittels des ODBC-Treibers aus einer Datenbank abfrage. Hier einmal ein Auszug aus dem wesentlichen part:
'SQL-Abfrage starten
varConn = _
"ODBC;Driver={Microsoft ODBC for Oracle};" _
& "DSN=" + server + ";" _
& "UID=" + user + ";" _
& "PWD=" + passwort + ";" _
& "SERVER=" + server + ";"
varSQL = Str_String 'SQL String der Abfrage
Debug.Print varSQL
'Ausgabe in Excel
ActiveWorkbook.Worksheets("Daten").Activate
ActiveWorkbook.Worksheets("Daten").Cells(1, 1).Value = Str_String
With ActiveSheet.QueryTables.Add(Connection:=varConn, Destination:=Cells(1,1))
.CommandText = varSQL
.Refresh BackgroundQuery:=False
End With
End Sub
Ich habe hierbei nur das Problem das bestehende Daten auf dem Arbeitsblatt immer nach rechts geschoben werden, es werden also keine Felder überschrieben.Nun werden teilweise aber Daten täglich abgefragt und sollen somit nur überschrieben werden. Momentan lade ich die Daten dann immer auf ein Arbeitsblatt welches ich als Zwischenablage benutze und überschreibe dann eben selber per Makro.
Aber wollte mal fragen ob es nicht eine Möglichkeit gibt das Daten dort direkt überschrieben werden. Die Eigenschaften der Add Funktion habe ich mir bereits angeschaut, dort jedoch nichts gefunden. Ich nehme an, das es am .add liegt aber leider kenne ich mich mit den Querry Tables nicht perfekt aus.
Vielen Dank schon einmal für die Hilfe.
VG Paul