Partager via


Propriété PublishObjects.Item (Excel)

Renvoie un seul objet d’une collection.

Syntaxe

expression. Élément (Index)

Expression Variable qui représente un objet PublishObjects .

Parameters

Nom Requis/Facultatif Type de données Description
Index Obligatoire Variant Nom ou numéro d'index de l'objet.

Exemple

Cet exemple obtient l’identificateur à partir d’une <DIV> balise et recherche la ligne dans une page web (q198.htm) que vous avez enregistrée à partir d’un classeur. L’exemple crée ensuite une copie de la page web (newq1.htm) et insère une ligne de commentaire avant la <DIV> balise dans la copie du fichier.

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

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.