Inhalt von verschiedenen html- Dateien in ausgesuchten Excelzellen automatisch importieren

Hallo zusammen,

ich habe folgendes Problem.

Es gibt eine Exceltabelle, die ca. 1000 Zeilen und 50 spalten ausweist. Jede Zeile ist ein anderer Artikel.

In Spalte AF soll die Beschreibung des Artikels stehen.

Die Beschreibung ist im html Code geschrieben und befindet sich in einemseperaten Verzeichnis:

Bsp Excel:

Spalte AF/Zeile2:

Ordnername/htm1

Spalte AF/Zeile3:

Ordnername/html2

Spalte AF/Zeile4:

Ordnername/html3

usw.

So ist in jeder zeile der Verweis auf die entsprechende Datei gegeben

Die html dateien sehen dann etwa so aus:

C:\Verzeichnisname\html1
C:\Verzeichnisname\html2
C:\Verzeichnisname\html3
usw.

Nun möchte ich natürlich, das in der Exceltabelle nicht C:\Verzeichnisname\html1 steht sondern der zugehörige html-Code (also den Inhalt der datei) importiert wird.

Und das am besten automatisch (z.b vba, Batch etc), da es ja ca. 1000 Änderungen sind

Hat da jemand eine Idee?

Danke

Thomas

Option Explicit

Const StartZeile = 3    'Pfadangaben ab Zeile ?  
Const LinkSpalte = 32   'Pfadangaben in Spalte AF  

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim Fso As Object, Path As String
    
   'Prüfen ob eine Zelle aus der LinkSpalte ausgewählt ist? Wenn nein abbrechen  
    With Target
        If .Count > 1 Or .Row < StartZeile Or .Column <> LinkSpalte Then Exit Sub
    End With
    
   'Object mit Datei-Funktionen einbinden  
    Set Fso = CreateObject("Scripting.FileSystemObject")  
    
    Path = Target.Text & ".html" 'Html-Pfad erzeugen, die Dateierweiterung bei Bedarf anpassen  
    
   'Test ob die Datei mit Pfadangabe existiert? Wenn ja Editor mit Quelltext öffnen  
    If Fso.FileExists(Path) Then
        Shell "NotePad" & " """ & Path & """", vbNormalFocus  
    End If
End Sub

Path = Target.Text