VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

VBA-Begriff: Beispiel zur Item-Eigenschaft (PublishObjects-Auflistung)

In diesem Beispiel wird der Bezeichner aus einem <DIV>-Tag bestimmt und die Zeile in einer Webseite (q198.htm) gesucht, die von einer Arbeitsmappe aus gespeichert wurde. In diesem Beispiel wird ebenfalls eine Kopie der Webseite erstellt (newq1.htm) und in der Kopie der Datei eine Kommentarzeile vor dem <DIV>-Tag eingefügt.

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