79564
Mar 15, 2016
5391
14
0
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
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
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 299166
Url: https://administrator.de/contentid/299166
Printed on: April 23, 2024 at 07:04 o'clock
14 Comments
Latest comment
Moin,
jupp geht ...
Folgender VBA-Code lädt den Inhalt einer HTML-Datei in die Zelle A2 des aktiven Sheets
Gruß jodel32
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
1
Hi,
also verstehe ich das richtig?
Du hast eine .html-Datei, also z.B.:
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ß
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ß
1
Er braucht vermutlich noch wysiwyg für HTML 
1
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?
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 Jetzt hab ich jedoch 250 html Files. Gehts auch ein wenig 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
Perfekt Ich verdanke dir echte Lebenszeit!
Ich verdanke dir echte Lebenszeit!Zitat von @79564:
Perfekt Ich verdanke dir echte Lebenszeit!
Schön Perfekt
Ich verdanke dir echte Lebenszeit! 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
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?
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
War das richtig interpretiert?
Du kannst stattdessen auch mit Indexen arbeiten wenn du willst
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.
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).ValueAber 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?
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:Danke dir!
Umlaute ä ö ü werden leider nicht korrekt eingelesen... hast du da auch einen Tipp?
fso.OpenTextfile("PFAD",1,False,-1)
funktioniert leider nicht.
hier kommt ein error
So kommt kein Error, die Umlaute funktionieren aber auch nicht
-1 wie es hier steht klappt auch nicht.
http://www.w3schools.com/asp/met_opentextfile.asp
wenn ich anstatt false einzutragen den wert leer lasse, da optional klappt es
so kommen die Zeichen chinesisch
-2 = ohne Umlaute
0 = ohne Umlaute
1 = Error
2= Error
Mein Code sieht nun wie folgt aus:
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
Ansonsten probier es mit
Mach ich schon ewig so und hat mich nie im Stich gelassen.
Ansonsten haben deine Files eine seltene Kodierung.
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.
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.
