| title | keywords | f1_keywords | api_name | ms.assetid | ms.date | ms.localizationpriority | ||
|---|---|---|---|---|---|---|---|---|
QueryTable.TextFileConsecutiveDelimiter property (Excel) |
vbaxl10.chm518102 |
|
|
2d86ba86-9601-9a2d-0cee-4648d77dab2c |
05/03/2019 |
medium |
True if consecutive delimiters are treated as a single delimiter when you import a text file into a query table. The default value is False. Read/write Boolean.
expression.TextFileConsecutiveDelimiter
expression A variable that represents a QueryTable object.
Use this property only when your query table is based on data from a text file (with the QueryType property set to xlTextImport), and only if the value of the TextFileParseType property is xlDelimited.
If you import data by using the user interface, data from a web query or a text query is imported as a QueryTable object, while all other external data is imported as a ListObject object.
If you import data by using the object model, data from a web query or a text query must be imported as a QueryTable, while all other external data can be imported as either a ListObject or a QueryTable.
The TextFileConsecutiveDelimiter property applies only to QueryTable objects.
This example sets the space character to be the delimiter in the query table on the first worksheet in the first workbook, and then it refreshes the query table. Consecutive spaces are treated as a single delimiter.
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
.TextFileConsecutiveDelimiter = True
.Refresh
End With[!includeSupport and feedback]