|
|||
Mit Excel HTML Tags in *.csv Daten speichern?
Hi,
weiß jemand ob es möglich ist mit Excel , formatierte Texte in einer *csv Datei zu speichern? Also wenn ich in Excel z.b. einen Text Fett mache oder Unterstrichen, das diese Formatierung beim Speichern in einer csv Datei übernommen werden , umgewandelt als Html Tag z.B. Darf auch ein anderes Format als CSV sein, sofern ich in der Enddatei die Trennung der Datensätze per Semikolon ermitteln kann. Müssen auch keine HTML Tags sein, hauptsache irgendwie erkennbar so das ich diese ersetzen könnte durch Html Tags. Danke. |
Sponsored Links |
|
|||
Hi,
und vielen Dank für den Vorschlag. Das Makro von dir scheint nur aktiv zu werden wenn eine ganze Zelle Fett, oder Unterstrichen ... ist. Kann das? Aber ein interessanter Ansatz. Ausbaufähig, ich versuche mich damit mal zu befassen. Makros für Excel in C# programmieren geht nicht, oder ? :- ) VBA ist nicht so wirklich mein Ding Danke |
|
||||
Richtig, dass war nur für die gesamte Zelle. Ich denke mal nur Textabschnitte geht auch, doch ehrlich gesagt habe ich selbst kaum Ahnung davon und den Codeblock mehr zusammengeschustert^^
C# wird nicht gehen denke ich, Macros sind halt kleine VB Scripte, aber die Syntax ist doch leicht und mit C# wirst du (behaupte ich mal) auch nicht besser klar kommen, da es nicht an der Syntax scheitert, sondern an den speziellen Excel Befehlen/Objekten. Ich kann ja mal schauen ob ich das noch anpassen kann, wenn nachher was Zeit bleibt.
__________________
|
|
||||
Habe mich nochmal dran gesetzt und mit Hilfe von Google und etwas rumprobieren (^^) das ganze so umgeschrieben, dass nun die einzelnen Zeichen anstelle der ganzen Zelle verarbeitet werden. Schau mal ob es damit besser geht.
Code:
Sub Excel2CSV() ' Eine Zelle Dim myCell As Range ' Temporärer Zelleninhalt Dim tmpText As String ' Zellenlänge und Schleifenvariable Dim cellLen As Integer Dim i As Integer ' Formatierungen geöffnet Dim openBold As Boolean Dim openItalic As Boolean Dim openUnderlined As Boolean ' Formatierungen des aktuellen Zeichens Dim isBold As Boolean Dim isItalic As Boolean Dim isUnderlined As Boolean ' Die erste Tabelle Set myTable = Sheets(1).UsedRange ' Alle Zellen in der Tabelle durchlaufen For Each myCell In myTable openBold = False openItalic = False openUnderlined = False tmpText = "" cellLen = myCell.Characters.Count ' Prüfen ob in der Zelle etwas steht If cellLen > 0 Then ' Alle Zeichen durchlaufen For i = 1 To cellLen ' Fettschrift ermitteln isBold = myCell.Characters(i, 1).Font.Bold ' Kursiv ermitteln isItalic = myCell.Characters(i, 1).Font.Italic ' Unterstrichen ermitteln If myCell.Characters(i, 1).Font.Underline = xlUnderlineStyleNone Then isUnderlined = False Else isUnderlined = True End If ' Zeichenformatierung mit aktueller vergleichen und entsprechende Formatzeichen einfügen If Not openBold = isBold Then tmpText = tmpText + "*" openBold = isBold End If If Not openItalic = isItalic Then tmpText = tmpText + "/" openItalic = isItalic End If If Not openUnderlined = isUnderlined Then tmpText = tmpText + "_" openUnderlined = isUnderlined End If ' Zeichen übertragen tmpText = tmpText + myCell.Characters(i, 1).Text Next i ' Offene Formatierungen am Ende schließen If openBold Then tmpText = tmpText + "*" End If If openItalic Then tmpText = tmpText + "_" End If If openUnderlined Then tmpText = tmpText + "_" End If ' Neuen Zelleninhalt übertragen myCell = tmpText End If Next myCell End Sub
__________________
|
|
|||
Hola Pr0g
>> Der Code mag vllt. nicht perfekt sein, sry Ich finde den Code und die Lösung Super Weiß gar nicht wie ich mich bedanken soll. Was mich ja am meisten wundert ist das ich auf meine "doofe" Frage eine Antwort bekommen habe inklusive einen Top Lösungsansatz ... Wie heißt es so schön Geht nicht gibt es nicht? Vielen Vielen Dank für deine Mühe. Peter |
Themen-Optionen | |
Ansicht | |
|
|
Ähnliche Themen | ||||
Thema | Autor | Forum | Antworten | Letzter Beitrag |
Daten speichern | luki.boy | Javascript & Ajax | 9 | 13.04.2011 21:46 |
Daten mit html aus txt-Dateien lesen? | Tobi Berlin | Serveradministration und serverseitige Scripte | 6 | 11.02.2010 16:22 |
Daten in HTML aus Datenbank übertragen? | Dragonate | CSS | 2 | 26.01.2010 18:19 |
JS: daten speichern und abrufen | Dumbatz | Javascript & Ajax | 2 | 01.03.2007 17:52 |
XML Daten in HTML Tabelle | OvD | (X)HTML | 0 | 21.06.2006 16:24 |