Einfügen von abgefragten ODBC-Daten in Tabelle
04.07.2019 11:39:04
abgefragten
ich möchte Daten in einer Tabelle regelmäßig mit Daten aus einer Datenbank aktualisieren. Dazu ziehe ich per ActiveSheet.ListObjects.Add die Daten ab und füge sie in die bestehende Tabelle ein.
Das funktioniert so weit, jedoch werden sie als neue Spalten eingefügt, so dass ich die alten löschen müsste und es mir alle Formeln in der Mappe zerlegt.
Ist es möglich, die Daten über die bestehenden Daten zu überschreiben? (ggf. die alten Inhalte vorher zu löschen).
MERCI schonmal für Eure Tipps !
Sabina
Die Datenbankabfrage bzw. Einfüge-Code ist folgender:
With ActiveSheet.ListObjects.Add(SourceType:=0, Source:= _
"ODBC;DRIVER={Ingres};SERVER=XVNODE;DATABASE=hdbla20;SERVERTYPE=INGRES;DATEALIAS=ingresdate;SENDDATETIMEASINGRESDATE=Y" _
, Destination:=Range("$B$1")).QueryTable
.CommandText = Array("SELECT * FROM hd_acc")
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.ListObject.DisplayName = "DB_Abfrage"
.Refresh BackgroundQuery:=False
End With