Excel VBA教程:DivID属性

返回用于标识 Web 页上 HTML <DIV> 标记的唯一标识符。此标记与保存为 Web 页的文档中的某一项相关联。该项可以是整个工作簿、一张工作表、选定的打印区域、自动筛选区域、单元格区域、图表、数据透视表或查询表。String 类型,只读。

Excel VBA教程:DivID属性·示例

本示例将一个单元格区域存储到 Web 页中,然后从 <DIV> 标记中获取该项的标识符,并查找保存的 Web 页 (q198.htm) 上的特定行。同时,本示例还创建该 Web 页的一个副本 (newq1.htm),并在该文件副本的 <DIV> 标记前插入一个注释行。


Set objPO = ActiveWorkbook.PublishObjects.Add( _
    SourceType:=xlSourceRange, _
    Filename:="\\Server1\Reports\q198.htm", _
    Sheet:="Sheet1", _
    Source:="C2:D6", _
    HtmlType:=xlHtmlCalc)
objPO.Publish
strTargetDivID = objPO.DivID
Open "\\Server1\Reports\q198.htm" For Input As #1
Open "\\Server1\Reports\newq1.htm" For Output As #2
While Not EOF(1)
    Line Input #1, strFileLine
    If InStr(strFileLine, strTargetDivID) > 0 And _
        InStr(strFileLine, "<div") > 0 Then
            Print #2, "<!--Saved item-->"
    End If
    Print #2, strFileLine
Wend
Close #2
Close #1

上页:Excel VBA教程:DisplayZeros属性 下页:Excel VBA教程:DoughnutHoleSize属性

Excel VBA教程:DivID属性

Excel VBA教程:DoughnutHoleSize属性 Excel VBA教程:DownBars属性
Excel VBA教程:DownloadComponents属性 Excel VBA教程:DownloadURL属性
Excel VBA教程:Draft属性 Excel VBA教程:DragToColumn属性
Excel VBA教程:DragToData属性 Excel VBA教程:DragToHide属性
Excel VBA教程:DragToPage属性 Excel VBA教程:DragToRow属性
Excel VBA教程:Drilled属性 Excel VBA教程:DrilledDown属性
Excel VBA教程:Drop属性 Excel VBA教程:DropDownLines属性
Excel VBA教程:DropLines属性 Excel VBA教程:DropType属性
Excel VBA教程:EditDirectlyInCell属性 Excel VBA教程:EditingType属性
Excel VBA教程:EditWebPage属性 Excel VBA教程:Elevation属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号