15.03.2016

5818

HTML File import in Excel Zelle

Hallo zusammen

Gibt es eine Möglichkeit auf einem HTML File den Code in eine einzelne Zelle zu füllen.
Wenn ich dann Änderungen im HTML Editor mache, speichere ich das File neu ab und die Idee wär dann, dass Excel diese Aktualisierungen übernehmen kann.

Das CSV kann ich dann in unserem Webshop importieren. Der Inhalt der HTML Files ist die Produktbeschreibung.

Danke
Grüsse Lupita

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 299166

Url: https://administrator.de/forum/html-file-import-in-excel-zelle-299166.html

Ausgedruckt am: 09.04.2025 um 06:04 Uhr

14 Kommentare

Neuester Kommentar

Moin,
jupp geht ...
Folgender VBA-Code lädt den Inhalt einer HTML-Datei in die Zelle A2 des aktiven Sheets

Sub ImportHTMLFile()
    Set fso = CreateObject("Scripting.FileSystemObject")  
    ActiveSheet.Range("A2").Value = fso.OpenTextfile("C:\deinedatei.html",1).ReadAll()  
End Sub

Gruß jodel32

Hi,

also verstehe ich das richtig?
Du hast eine .html-Datei, also z.B.:

<html>
<head>
<title>Mein Titel</title>
</head>
<body>
Hier steht mein Text...
</body>
</html>

Diese Zeilen willst du in Excel IMportieren, damit du es als CSV wieder EXportierst, um es in den Webshop wieder zu IMportieren?

Wieso der Umweg über ein HTML-File?

Gruß

Zitat von @MrCount:
Wieso der Umweg über ein HTML-File?

Er braucht vermutlich noch wysiwyg für HTML

Ahh das hab ich schonmal hinbekommen. Musste nur noch ein YouTube Video schauen, VBA ist gefühlte 15 Jahre her..
Jetzt hab ich jedoch 250 html Files. Gehts auch ein wenig einfacher?

Zitat von @79564:
Jetzt hab ich jedoch 250 html Files. Gehts auch ein wenig einfacher?

Wat, noch einfacher

?
Du willst alle Files ins Excel holen ? In die Zellen untereinander?

Das hier importiert automatisch alle HTML-Dateien eines Ordners den du in Zeile 2 des Skripts angibst, in die Zellen A2:AXdes aktuellen Sheets:

Sub ImportHtmlFiles()
    Const FOLDER = "C:\Ordner\htmldateien"  
    Set fso = CreateObject("Scripting.FileSystemObject")  
    With ActiveSheet
        For Each file In fso.GetFolder(FOLDER).Files
            If LCase(fso.GetExtensionName(file.Name)) = "html" Then  
                .Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).Value = fso.OpenTextfile(file.Path, 1).ReadAll()  
            End If
        Next
    End With
End Sub

Wie wärs auch mit Powershell? Da sparst du dir den Umweg über Excel und könntest direkt deine CSV-Datei erstellen.

Perfekt

Ich verdanke dir echte Lebenszeit!

Zitat von @79564:

Perfekt

Ich verdanke dir echte Lebenszeit!

Schön

Nur das Kommentar das du als Lösung markiert hast, ist wohl eher deplatziert und nicht die Lösung ...

Habs korrigiert. Sorry
Kleine Frage noch.

Ich fülle nun die HTML Files wie folgt ein

Range("D1").Value = fso.OpenTextfile("C:\pfad\produkt0001.html", 1).ReadAll()  
Range("D2").Value = fso.OpenTextfile("C:\pfad\produkt0002.html", 1).ReadAll()  
Range("D3").Value = fso.OpenTextfile("C:\pfad\produkt0003.html", 1).ReadAll()  

Ist es auch möglich, das ganze nicht auf die Zelle zu fixieren, sondern 2 Felder Rechts der Artikelnummer.
Die Artikelnummer 0001 steht z.B. im Feld A1 und die Produktbeschreibung dann in D1.

Weisst du was ich meine?

Du kannst von einer Zelle (Range) einen Offset von dieser Zelle angeben:

z.B. verweist folgender Ausdruck auf die 3 Spalte rechts von A1, also D1

Range("A1").Offset(0,3).Value

War das richtig interpretiert?

Du kannst stattdessen auch mit Indexen arbeiten wenn du willst

Cells(1,4).Value

Der erste Wert ist die Zeile, der zweite die Spalte.

Aber wieso machst du für jedes HTML File eine extra Zeile im Code ?? Ich habe dir ja oben gezeigt wie das effektiver geht.

Danke dir!
Umlaute ä ö ü werden leider nicht korrekt eingelesen... hast du da auch einen Tipp?

Zitat von @79564:

Danke dir!
Umlaute ä ö ü werden leider nicht korrekt eingelesen... hast du da auch einen Tipp?

Ja, du musst "OpenTextfile" nur mit den richtigen Parametern füttern:

fso.OpenTextfile("PFAD",1,False,-1)

Die letzte -1 steht für Unicode-Kodierung.

funktioniert leider nicht.

hier kommt ein error

fso.OpenTextfile("PFAD",1,False,1)

So kommt kein Error, die Umlaute funktionieren aber auch nicht

fso.OpenTextfile("PFAD",1,1)

-1 wie es hier steht klappt auch nicht.
http://www.w3schools.com/asp/met_opentextfile.asp

fso.OpenTextfile("PFAD",1,-1)

wenn ich anstatt false einzutragen den wert leer lasse, da optional klappt es
so kommen die Zeichen chinesisch

fso.OpenTextfile("PFAD",1, ,-1)

-2 = ohne Umlaute
0 = ohne Umlaute
1 = Error
2= Error

Mein Code sieht nun wie folgt aus:

Sub html_descriptions()

Set fso = CreateObject("Scripting.FileSystemObject")  

'Produkte  
Range("C2").Value = fso.OpenTextFile("C:\descriptions\produkt0001.html", 1, ,1).ReadAll()  

End Sub

geht hier einwandfrei mit UTF-8 kodierten Files und
fso.OpenTextfile("PFAD",1,False,-1).ReadAll()

Ansonsten probier es mit

fso.OpenTextfile("PFAD",1,False,2).ReadAll()

Mach ich schon ewig so und hat mich nie im Stich gelassen.

Ansonsten haben deine Files eine seltene Kodierung.

Hmm klappt auch nicht.
Meine HTML Files nutzen uft-8.
mein excel hat die version 2016.

ich glaub so gehts nicht mit dem OpenTextfile

http://developer.rhino3d.com/guides/rhinoscript/read_write_utf8/

muss was mit dem hier machen. aber wie ich das in die zelle bekomme. mal schauen.

gelöst Frage Microsoft Microsoft Office

Heiß diskutiert