通过

Excel) (PublishObject.DivID 属性

  • 项目

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

语法

表达式。DivID

表达 一个代表 PublishObject 对象的变量。

示例

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

Set objPO = ActiveWorkbook.PublishObjects.Add( _ 
 SourceType:=xlSourceRange, _ 
 Filename:="\\Server1\Reports\q198.htm", _ 
 Sheet:="Sheet1", _ 
 Source:="C2:D6", _ 
 HtmlType:=xlHtmlStatic) 
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

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。