Excel) (PublishObjects.Item 属性

从集合中返回一个对象。

语法

表达式。项 (索引)

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

参数

名称	必需/可选	数据类型	说明
Index	必需	Variant	对象的名称或索引号。

示例

此示例从 <DIV> 标记获取标识符，并在从工作簿中保存的网页 (q198.htm) 中找到该行。 然后，该示例创建网页 (newq1.htm) 的副本，并在文件副本中的 标记之前 <DIV> 插入注释行。

strTargetDivID = ActiveWorkbook.PublishObjects.Item(1).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 支持和反馈，获取有关如何接收支持和提供反馈的指南。