WebConsecutiveDelimitersAsOne 属性

当从 Web 页的 HTML <PRE> 标记中向查询表导入数据时，如果将连续多个分隔符看作单个分隔符，并且数据将被分列，则该值为 True。如果将连续多个分隔符看作多个分隔符，则该值为 False。默认值为 True。Boolean 类型，可读写。

说明

只有当查询表的 QueryType 属性设置为 xlWebQuery、该查询返回一个 HTML 文档以及 WebPreFormattedTextToColumns 属性设置为 True 时，才使用本属性。

示例

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

Set shFirstQtr = Workbooks(1).Worksheets(1) 
Set qtQtrResults = shFirstQtr.QueryTables _
    .Add(Connection := "URL;http://datasvr/98q1/19980331.htm", _
        Destination := shFirstQtr.Cells(1,1))
With qtQtrResults
    .WebConsecutiveDelimitersAsOne = True
    .Refresh
End With