In diesem Beispiel wird die fünfte Zeile als Anfangszeile für die Textanalyse in der Abfragetabelle im ersten Tabellenblatt der ersten Arbeitsmappe festgelegt und anschließend die Abfragetabelle 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 .TextFileStartRow = 5 .TextFileTabDelimiter = True .Refresh End With