QueryTable.TextFileParseType-Eigenschaft (Excel)

  • Artikel

Gibt das Spaltenformat für die Daten in der Textdatei zurück, die Sie in eine Abfragetabelle importieren, oder legt dieses fest. XlTextParsingType-Wert mit Lese-/Schreibzugriff.

Syntax

Ausdruck. TextFileParseType

Ausdruck Eine Variable, die ein QueryTable-Objekt darstellt.

HinwBemerkungeneise

Verwenden Sie diese Eigenschaft nur, wenn Ihre Abfragetabelle auf Daten aus einer Textdatei basiert (wobei die QueryType-Eigenschaft auf xlTextImport festgelegt ist).

Wenn Sie Daten über die Benutzeroberfläche importieren, werden Daten aus einer Webabfrage oder einer Textabfrage als QueryTable-Objekt importiert, während alle anderen externen Daten als ListObject-Objekt importiert werden.

Wenn Sie Daten mithilfe des Objektmodells importieren, müssen Daten aus einer Webabfrage oder einer Textabfrage als QueryTable importiert werden, während alle anderen externen Daten entweder als ListObject oder als QueryTable importiert werden können.

Die TextFileParseType-Eigenschaft gilt nur für QueryTable-Objekte.

Beispiel

In diesem Beispiel wird eine Textdatei mit fester Breite in eine neue Abfragetabelle auf dem ersten Arbeitsblatt 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 übersprungen. Der Rest der Textdatei wird in die dritte Spalte importiert und erhält dabei das Standardformat.

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

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.