Habe mir ein Makro aufgezeichnet, das mir Daten einer externen Quelle importiert
und dann weiterverarbeitet. Der Importpart sieht so aus:
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:\Dokumente und Einstellungen\tschmachtel\Desktop\Daten.txt", _
Destination:=Range("A1"))
.Name = "Daten"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 850
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
Dieser Import hat aber zur Folge, dass Excel die Verbindung zur externen Daten-
quelle noch geöffnet lässt, egal, ob ich bei den Eigenschaften beim Datenimport
"Abfragedefinition speichern" angeklickt habe oder nicht.
Was muss ich einfügen (oder oben löschen) damit die Verbindung zur externen
Datenquelle geschlossen wird, sobald ich die Daten eingelesen habe ?
Danke im Voraus !! tilman