In diesem Beispiel werden Leerzeichen als Trennzeichen in der Abfragetabelle im ersten Tabellenblatt der ersten Arbeitsmappe festgelegt und die Abfragetabelle anschließend aktualisiert.
Set shFirstQtr = Workbooks(1).Worksheets(1)
Set qtQtrResults = shFirstQtr.QueryTables _
.Add(Connection := "TEXT;C:\My Documents\19980331.txt", _
Destination := shFirstQtr.Cells(1,1))
With qtQtrResults
.TextFileParseType = xlDelimited
.TextFileSpaceDelimiter = True
.Refresh
End With