Excel VBA教程:WebSelectionType属性

返回或设置一个值,用于确定是否向查询表中导入了整个 Web 页、Web 页上的所有表格或 Web 页上的特定表格。XlWebSelectionType 类型,可读写。

XlWebSelectionType 可为以下 XlWebSelectionType 常量之一。
xlEntirePage
xlAllTables 默认值。
xlSpecifiedTables

expression.WebSelectionType

expression   必需。该表达式返回“应用于”列表中的对象之一。

说明

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

如果本属性的值为 xlSpecifiedTables,则可以使用WebTables属性指定要导入的表格。

示例

本示例在第一个工作簿中第一张工作表上添加一个新的 Web 查询表,然后导入 Web 页中第一个和第二个表格中的数据。


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
    .WebFormatting = xlNone
    .WebSelectionType = xlSpecifiedTables
    .WebTables = "1,2"
    .Refresh
End With

上页:Excel VBA教程:WebPreFormattedTextToColumns属性 下页:Excel VBA教程:WebSingleBlockTextImport属性

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属性
Excel VBA教程:WritePassword属性 Excel VBA教程:WriteReserved属性
Excel VBA教程:WriteReservedBy属性 Excel VBA教程:XML属性
Excel VBA教程:XValues属性 Excel VBA教程:Yellow属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号