Excel VBA教程:TextFileConsecutiveDelimiter属性

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

说明

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

Excel VBA教程:TextFileConsecutiveDelimiter属性·示例

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


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

上页:Excel VBA教程:TextFileCommaDelimiter属性 下页:Excel VBA教程:TextFileDecimalSeparator属性

Excel VBA教程:TextFileConsecutiveDelimiter属性

Excel VBA教程:TextFileDecimalSeparator属性 Excel VBA教程:TextFileFixedColumnWidths属性
Excel VBA教程:TextFileOtherDelimiter属性 Excel VBA教程:TextFileParseType属性
Excel VBA教程:TextFilePlatform属性 Excel VBA教程:TextFilePromptOnRefresh属性
Excel VBA教程:TextFileSemicolonDelimiter属性 Excel VBA教程:TextFileSpaceDelimiter属性
Excel VBA教程:TextFileStartRow属性 Excel VBA教程:TextFileTabDelimiter属性
Excel VBA教程:TextFileTextQualifier属性 Excel VBA教程:TextFileThousandsSeparator属性
Excel VBA教程:TextFileTrailingMinusNumbers属性 Excel VBA教程:TextFrame属性
Excel VBA教程:TextShape属性 Excel VBA教程:TextToDisplay属性
Excel VBA教程:TextureName属性 Excel VBA教程:TextureType属性
Excel VBA教程:ThisCell属性 Excel VBA教程:ThisWorkbook属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号