TextFileColumnDataTypes 属性

       

返回或设置一个有序的常量数组,用于指定文本文件中相应列的数据类型,而该文本文件则是正要导入查询表中的文本文件。每一列的默认常量为 xlGeneralVariant 类型,可读写。

可以使用下表列出的 xlColumnDataType 常量来指定在数据导入过程中所使用的列数据类型或执行的操作。

常量 说明
xlGeneralFormat 常规
xlTextFormat 文本
xlSkipColumn 跳过列
xlDMYFormat “日-月-年”日期格式
xlDYMFormat “日-年-月”日期格式
xlEMDFormat EMD 日期
xlMDYFormat “月-日-年”日期格式
xlMYDFormat “月-年-日”日期格式
xlYDMFormat “年-日-月”日期格式
xlYMDFormat “年-月-日”日期格式

说明

只有当查询表是基于文本文件中的数据(QueryType 属性设置为 xlTextImport)时,才使用本属性。

如果在含有多列的数组中指定了多个元素,则将忽略那些值。

只有在安装并选定了台湾地区语言时才可以使用 xlEMDFormatxlEMDFormat 常量指定使用台湾地区纪元日期。

示例

本示例向第一个工作簿中第一张工作表上的新查询表中导入一个固定宽度的文本文件。该文本文件的第一列为五个字符宽度,作为文本导入。第二列为四个字符宽度,被跳过。该文本文件的剩余部分被导入第三列,并对其应用常规格式。

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