In diesem Beispiel wird eine Textdatei mit fester Breite in eine neue Abfragetabelle im ersten Tabellenblatt der ersten Arbeitsmappe importiert. Die erste Spalte in der Textdatei ist fünf Zeichen breit und wird als Text importiert. Die zweite Spalte ist vier Zeichen breit und wird übergangen. Der Rest der Textdatei wird in die dritte Spalte importiert, wobei das Standardformat verwendet wird.
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 = xlFixedWidth .TextFileFixedColumnWidths = Array(5, 4) .TextFileColumnDataTypes = _ Array(xlTextFormat, xlSkipColumn, xlGeneralFormat) .Refresh End With