QueryTable.TextFileFixedColumnWidths-Eigenschaft (Excel)

Dient zum Zurückgeben oder Festlegen eines Arrays von ganzen Zahlen, die der Breite der Spalten (in Zeichen) in der Textdatei entsprechen, die Sie in eine Abfragetabelle importieren. Gültige Breiten reichen von 1 bis 32767 Zeichen. Variant mit Lese-/Schreibzugriff.

Syntax

Ausdruck. TextFileFixedColumnWidths

Ausdruck Eine Variable, die ein QueryTable-Objekt darstellt.

Hinweise

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

Sie müssen eine zulässige, nichtnegative Spaltenbreite angeben. Wenn Sie Spalten angeben, die die Breite der Textdatei überschreiten, werden diese Werte ignoriert. Wenn die Breite der Textdatei größer ist als die Gesamtbreite der spalten, die Sie angeben, wird der Saldo der Textdatei in eine zusätzliche Spalte importiert.

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 TextFileFixedColumnWidths-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.