次の方法で共有


PublishObjects.Item プロパティ (Excel)

コレクションから単一のオブジェクトを返します。

構文

Item (インデックス)

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

パラメーター

名前 必須 / オプション データ型 説明
Index 必須 バリアント型 (Variant) オブジェクトの名前またはインデックス番号を指定します。

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