Hallo Community,
ich habe folgendes Problem.
Ich habe eine Excel Tabelle mit vielen ID's (Spalte B) und einen Ordner mit HTML-Dateien, die den IDs zugeordnet sind.
Im ersten Schritt bin ich alle ID's durchgegangen und habe falls vorhanden, die passende HTML Datei in einen Ordner abgespeichert.
Nun kommt der zweite Schritt bei dem ich eure Hilfe brauche. Ich möchte alle gefunden HTML Dateien durchgehen und nach einem bestimmten Bereich suchen. Im HTML Code sieht das ungefähr so aus:
<td class="category">
<a name="attachments" id="attachments">Angehängte Dateien</a> </td>
<td colspan="5">
<a> unwichtig </a>
<a> WICHTIG </a> <- Hier steht der gesuchte Dateiname
<a> Unwichtig </a>
</td>
Das Ding ist, dass in diesem <td> Tag auch mehrere Dateien aufgeführt sind, der Aufbau ist aber immer gleich. Pro Datei gibt es 3 mal ein <a>-Tag und im mittleren stehen die wichtigen Informationen. Es gibt auch den Fall, dass dort keine Dateien und somit auch keine <a>-Tags vorhanden sind.
Mein bisheriges Makro sieht wie folgt aus:
Const path = "M:*"
Dim sheet As Worksheet
Set sheet = ActiveWorkbook.Worksheets(2)
maxRow = sheet.Cells(sheet.Rows.Count, "B").End(xlUp).Row
Dim id As String
Dim sourcePath As String
Dim destPath As String
Dim Filename As String
For Row = 2 To maxRow
sourcePath = path & "view.php-id=" & sheet.Cells(Row, 2) & ".html"
Filename = "view.php-id=" & sheet.Cells(Row, 2) & ".html"
MkDir (path & "gefunden\" & sheet.Cells(Row, 2))
destPath = path & "gefunden\" & sheet.Cells(Row, 2) & "\" & sheet.Cells(Row, 2) & ".html"
If Dir(sourcePath) = Filename Then
FileCopy sourcePath, destPath
Else
MsgBox (sheet.Cells(Row, 2) & " nicht gefunden")
End If
Next Row
Um das alles nochmal zusammenzufassen, ich weiß nicht wie ich an die Namen der aufgeführten Dateien im HTML Dokument komme.
Wenn ich die Namen der Dateien erstmal habe, könnte ich auch weitermachen und die HTML-Doks mit passendem Anhang in einen Ordner kopieren.
Ich hoffe ihr verstehe was ich meine, für Fragen stehe ich gerne zu verfügung.
Grüße
Chris
