DivID 属性

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

示例

本示例将一个单元格区域存储到 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