TextFileConsecutiveDelimiter 属性

当向查询表中导入文本文件时，如果将连续分隔符看作是一个分隔符，则该值为 True。默认值为 False。Boolean 类型，可读写。

说明

只有当查询表是基于文本文件中的数据（QueryType 属性设置为 xlTextImport）且 TextFileParseType 属性值为 xlDelimited 时，才使用本属性。

示例

本示例将第一个工作簿中第一张工作表上的查询表的分隔符设置为空格字符，然后刷新该查询表。连续的空格被当作单个分隔符处理。

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