Excel VBA教程:WebConsecutiveDelimitersAsOne属性

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

说明

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

Excel VBA教程:WebConsecutiveDelimitersAsOne属性·示例

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


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

上页:Excel VBA教程:Watches属性 下页:Excel VBA教程:WebDisableDateRecognition属性

Excel VBA教程:WebConsecutiveDelimitersAsOne属性

Excel VBA教程:WebDisableDateRecognition属性 Excel VBA教程:WebDisableRedirections属性
Excel VBA教程:WebFormatting属性 Excel VBA教程:WebOptions属性
Excel VBA教程:WebPreFormattedTextToColumns属性 Excel VBA教程:WebSelectionType属性
Excel VBA教程:WebSingleBlockTextImport属性 Excel VBA教程:WebTables属性
Excel VBA教程:Weight属性 Excel VBA教程:获取有关 Macintosh 关键字的“帮助”
Excel VBA教程:Width属性 Excel VBA教程:WindowNumber属性
Excel VBA教程:Windows属性 Excel VBA教程:WindowsForPens属性
Excel VBA教程:WindowState属性 Excel VBA教程:Workbooks属性
Excel VBA教程:Worksheet属性 Excel VBA教程:WorksheetFunction属性
Excel VBA教程:Worksheets属性 Excel VBA教程:WrapText属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号