PublishObject.DivID プロパティ (Excel)

Web ページ上の HTML <DIV> タグを識別するために使用される一意の識別子を返します。 タグは、Web ページに保存したドキュメント内のアイテムに関連付けられます。 アイテムには、ブック全体、ワークシート、選択した印刷範囲、オートフィルター範囲、セル範囲、グラフ、ピボットテーブル レポート、またはクエリ テーブルを指定できます。 読み取りのみ可能な String 値です。

構文

式。DivID

式PublishObject オブジェクトを表す変数。

例

次の使用例は、セル範囲を Web ページに保存し、この項目のタグから識別子を <DIV> 取得し、保存した Web ページ (q198.htm) 上の行を検索します。 この例では、Web ページのコピー (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 のサポートおよびフィードバックを参照してください。