DivID 属性 - Microsoft Excel Visual Basic 2002 参考

返回介绍

DivID 属性

发布于 2019-08-07 字数 1184 浏览 895 评论 0

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


示例


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


Set objPO = ActiveWorkbook.PublishObjects.Add( _
SourceType:=xlSourceRange, _
Filename:="\Server1Reportsq198.htm", _
Sheet:="Sheet1", _
Source:="C2:D6", _
HtmlType:=xlHtmlCalc)
objPO.Publish
strTargetDivID = objPO.DivID
Open "\Server1Reportsq198.htm" For Input As #1
Open "\Server1Reportsnewq1.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

发布评论

需要 登录 才能够评论, 你可以免费 注册 一个本站的账号。

支持 Markdown 语法,需要帮助?

目前还没有任何评论,快来抢沙发吧!