Zelle als HTML | Herbers Excel-Forum

Rene · 2010-01-22T19:10:10+00:00

Hallo Zusammen, ich habe eine Frage. Ich möchte eine einzelne Zelle samt Inhalt UND allen Formaten in HTML umwandeln und in den HTML-Code in einer Variablen speichern. geht das? Bisland habe ich folgendes versucht: With ActiveWorkbook.PublishObjects.Add(xlSourceRange, _ "C:\Users\Benutzer\Desktop\Mappe1.htm", "Tabelle1", "$E$12", xlHtmlStatic _ , "Mappe1_16679", "") .Publish (True) .AutoRepublish = False End With So bekomme ich aber nur eine Datei. Die ist zwar vom Ergebnis her schon ganz gut, aber ich will ja nicht immer wieder Dateien anlegen, auslesen und wieder löschen. Hintergrund ist: Ich möchte die werte aus der Excel-Liste holen, mit allen Formaten in HTML umwandeln und dann in einer Oracle-DB speichern. Und bisher speichere ich die Werte nur ohne Formate... Kann mir jemand helfen? Ansonsten schönes WE! Grüße René

...René & Sepp,
denn ich musste das auch so machen!
Ist dir eigentlich klar, René,
was das für ein riesiger Arbeitsaufwand ist, alle möglichen Zellformate mit HTML abzubilden? Ich arbeite daran schon seit Monaten und finde immer noch Formate, die nicht 100%ig wiedergegeben wdn...
Wenn du da 'n paar Spezialisten unter den Usern hast, wird das Ganze richtig aufwendig. Außerdem ist es ein Unterschied, ob du wirklich alle Formate oder nur die aktuell wirksamen in HTML codieren willst. Nur Letzteres würde nämlich in HTML Sinn machen, falls das auch angwendet wdn soll. Das ganze Format kann man dann ja anderweitig bzw separat in Teilen dokumentieren.
Zuerst solltest du also genau wissen, wofür es gebraucht wird, was dazu erforderlich ist und wie das organisiert wdn soll. Dann benötigst du Routinen, die dir ein Zellformat in der erforderlichen Detailliertheit exakt wiedergeben können. Erst zum Schluss kommt HTML ins Spiel. Da musst du dir dann überlegen wie du xl/vbBezeichnungen in HTML-Bezeichnungen überträgst. Nicht alle xlFormatierungen sind HTML-kompatibel bzw -übersetzbar, da musst du dann Entscheidungen treffen...
Ich bin jedenfalls auf 12 Format-Hptpkte gekommen — unter xl12 könnten es noch mehr wdn.
Nehmen wir mal dein Bsp mit den verschieden Textfarben in einer Zelle...
Eine Zelle kann ein intern bedingtes Format enthalten, mit dem man schon vor xl12 4 verschiedene Farben inhaltsabhängig für die ganze Zelle festlegen konnte. Eine 5.Farbe kann man primär einstellen, die wird dann bei Fehlerwerten wirksam. Das Primat hat aber die (extern) bedingte Formatierung zu der jeweils erfüllten Bedingung. Das waren vor xl12 nur 3, können nun aber sehr viele sein. Die müssen alle abgeprüft wdn, wenn du einen HTML-Code willst, der den aktuellen Realzustand darstellt. Jetzt gab es bisher noch interessante Nebeneffekte. Ist der Zellinhalt bspw 2farbiger Text, musst du das zeichenweise prüfen, weil das Ergebnis für den gesamten Text in diesem Fall stets Null ist. Also, ist IsNull(...Font.ColorIndex) Wahr, musst du Einzelzeichen prüfen sonst nicht. Hast du ein intern bedingtes Format mit einer Farbe für Text vereinbart, also z.b. 0;-0;0;[Rot]@ wird der ganze Text stets rot, auch wenn er eigentlich 2farbig ist (nimmst du die nämlich wieder weg, ist er wieder 2farbig!). Hast du aber eine (extern) bedingte Formatierung mit erfüllter Bedingung =ISTTEXT(...) und Blau darauf zu liegen, hat die das Primat und es wird nur der 1.Teil des 2farbigen Textes Blau, der Rest behält die ursprgl Farbe(n). Hast du aber außerdem noch eine intern bedingte Farbe für Text vereinbart (hier [Rot]@), wird der ganze Text bei erfüllter externer Bedingung Blau...
Wenn das unter xl12 immer noch so ist, bilde das mal mit HTML nach...!
Viel Spaß ihr beiden beim Werkeln, aber vorerst mal schöSo!
Gruß Luc :-?

...René...
1. Schriftfarbe (ohne intern und extern bedingte Formatierung):
1.1 Auslesen mit sfb = Cells(..., ...).Font.Color
1.2 If IsNull(sfb) Then → zeichenweiser Vgl mit ...Characters(p, 1).Font.Color und entweder merken mit p (Position) oder nur die verschiedenen Farben sammeln.
1.3 Sonst hast du die Farbe für den ganzen Text, die aber in beiden Fällen nicht unbedingt mit der sichtbaren übereinstimmt!
1.4 Umwandeln in Hexadezimal mit sfx = Right("00000" & Hex(sfb), 6) und dann noch die ersten beiden Stellen mit den letzten beiden tauschen, damit aus BGR RGB wird und # davorsetzen.
1.5 Umwandeln in HTML: sfh = "" & zelltext & "
2. Fettschrift:
2.1 Auslesen mit sff = Cells(..., ...).Font.Bold (True/False) bzw ...Font.FontStyle, da ist dann auch noch kursiv (Italic) mit dabei.
2.2 Wenn nur Textteile fett sind, ist zumindest eine dieser Eigenschaften Null, so dass man auch hier daran die zeichenweise Durchsuchung festmachen kann. Falls das zu aufwendig wird, muss eben stets nur das 1.Zeichen geprüft wdn — ...Characters(1, 1)... Dann sollte es kein Null geben.
2.3 Umwandeln in HTML bei True wie bekannt als ... oder moderner als ...
3. Zeilenumbruch:
Das ist so 'ne Sache, denn normalerweise gibt's keinen in einer Zelle. Wenn man ihn einstellt, wird automatisch an bestimmten Stellen (meist nur Leerzeichen) umgebrochen. Wenn man diese Einstellung abfragt, weiß man nur, dass umgebrochen wdn soll. Ob und wo das tatsächlich passiert ist so nicht feststellbar, auch nicht mit Cells(..., ...).Text! Was anderes wäre es, wenn absolute Zeilenumbrüche enthalten sind — nach denen könnte man suchen — Chr(10) vbLf bzw Chr(13) vbCrLf. Das entspräche in HTML  . Anderenfalls muss die Spaltenbreite mit Textlänge, Schriftart und -größe korreliert wdn.
4. Umwandeln in HTML mit dem Zelltext insgesamt nur am 1.Zeichen orientiert:

With Cells(..., ...).Characters(1, 1).Font
sfg = "<font size=" & .Size & "pt color=" & sfh & ">" & _
IIf(.Bold, "<b>", "") & Cells(..., ...) & IIf(.Bold, _
"</b>", "") & "</font>"
End With

So, nun mach was draus...! ;-)
Gruß+schöSo, Luc :-?

Zelle als HTML | Herbers Excel-Forum

Forumthread: Zelle als HTML

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

Zelle als HTML umwandeln in Excel

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

Zelle als HTML | Herbers Excel-Forum

Forumthread: Zelle als HTML

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

Zelle als HTML umwandeln in Excel

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread