Propriété PublishObject.DivID (Excel)

Retourne l’identificateur unique utilisé pour identifier une balise HTML <DIV> sur une page web. La balise est associée à un élément d’un document que vous avez enregistré dans une page web. Il peut s’agir d’un classeur entier, d’une feuille de calcul, d’une plage d’impression sélectionnée, d’une plage de filtre automatique, d’une plage de cellules, d’un graphique, d’un rapport de tableau croisé dynamique ou d’une table de requête. String en lecture seule.

Syntaxe

expression. DivID

expression Variable qui représente un objet PublishObject .

Exemple

Cet exemple enregistre une plage de cellules dans une page web, puis obtient l’identificateur à partir de la <DIV> balise de cet élément et recherche la ligne sur la page web enregistrée (q198.htm). L’exemple crée également une copie de la page web (newq1.htm) et insère une ligne de commentaire avant la <DIV> balise dans la copie du fichier.

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

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.