Skip to content

Latest commit

 

History

History
57 lines (37 loc) · 2.13 KB

Excel.QueryTable.TextFileParseType.md

File metadata and controls

57 lines (37 loc) · 2.13 KB
title keywords f1_keywords api_name ms.assetid ms.date ms.localizationpriority
QueryTable.TextFileParseType property (Excel)
vbaxl10.chm518100
vbaxl10.chm518100
Excel.QueryTable.TextFileParseType
58117c6a-bfe4-190b-ab72-1a26e961d25d
05/03/2019
medium

QueryTable.TextFileParseType property (Excel)

Returns or sets the column format for the data in the text file that you are importing into a query table. Read/write XlTextParsingType.

Syntax

expression.TextFileParseType

expression A variable that represents a QueryTable object.

Remarks

Use this property only when your query table is based on data from a text file (with the QueryType property set to xlTextImport).

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 TextFileParseType property applies only to QueryTable objects.

Example

This example imports a fixed-width text file into a new query table on the first worksheet in the first workbook. The first column in the text file is five characters wide and is imported as text. The second column is four characters wide and is skipped. The remainder of the text file is imported into the third column and has the General format applied to it.

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

[!includeSupport and feedback]