|
Hallo zusammen,
ich erstelle gerade ein Makro, welches mir aus einer .mdb, aus 5 unterschiedlichen Tabellen, Daten zusammensammelt. Da ich die daraus resultierende auswertung nur beim öffnen aktualisiere, möchte ich sicher gehen, das ich die mit:
With ActiveSheet.ListObjects.Add(SourceType:=0, Source:=Array(Array(SQL_ODBC), Array(SQLEinstellungen)), Destination:=Range("$A$1")).QueryTable
.CommandText = Array(SQL_SELECT0, SQL_SELECT1, SQL_SELECT2, SQL_SELECT3, SQL_SELECT4, SQL_SELECT5, SQL_SELECT_ENDE, SQL_FROM & vbNewLine, SQL_WHERE & vbNewLine, SQL_ORDER_BY)
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.ListObject.DisplayName = "Tabelle_Abfrage_von_MS_Access_Database"
.Refresh BackgroundQuery:=False
End With
geövvnete Verbindung, sauber schließe.
Welche Möglichkeite stehen ,ir zur verfügung?
Danke
Piecha
|