返回或设置要导入查询表的文本文件中数据的列格式。XlTextParsingType 类型,可读写。
XlTextParsingType 可为以下 XlTextParsingType 常量之一。 |
xlFixedWidth 表示将文件中的数据安排在固定宽度的列中。 |
xlDelimited 默认值。表明文件由分隔符分隔。 |
expression.TextFileParseType
expression 必需。该表达式返回“应用于”列表中的对象之一。
只有当查询表是基于文本文件中的数据(QueryType 属性设置为 xlTextImport)时,才使用本属性。
本示例向第一个工作簿中第一张工作表上的新查询表中导入一个固定宽度的文本文件。该文本文件的第一列为五个字符宽度,作为文本导入。第二列为四个字符宽度,被跳过。该文本文件的剩余部分被导入第三列,并对其应用常规格式。
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