Tabelle in nacktes HTML exportieren

[Roberto]

Hallo Leute,

wie bekomme ich aus einer Tabelle (in Excess, Word, o.ä.) eine lupenreine, unformatierte (ohne fonts, style oder ähnlichem Schmarrn) HTML-Tabelle (<table><tr><td>....). Bitte keinen Verweis auf Datenbanken, etc. Ein Kunde schickt mir ne einfache Tabelle und ich soll sie ins HTML umwandeln. Einfache, schnelle und praktikable Lösung? Gibt's die???

Ihr seid die Besten,
Roberto

[Zeromancer]

Hallo Roberto,

wie bekomme ich aus einer Tabelle (in Excess, Word, o.ä.) eine lupenreine, unformatierte (ohne fonts, style oder ähnlichem Schmarrn) HTML-Tabelle (<table><tr><td>....).

versuche ein Tool wie HTML-Tidy für Phase 5

Mit freundlichen Grüßen,
André

[Detlef G.]

Hallo Roberto

... Ein Kunde schickt mir ne einfache Tabelle und ich soll sie ins HTML umwandeln.

Einmalig oder regelmäßig?
Wie einfach ist die Tabelle?
Wirklich einfach, oder enthält diese auch verbundene Zellen?

Einfache, schnelle und praktikable Lösung? Gibt's die???

Wenn du einfache Tabellen regelmäßig umwandeln musst könntest du dies z.B.
mittels eines VBA-Makros realisieren.

Auf Wiederlesen
Detlef

[Jörg Lorenz]

Hi Roberto,

wie Detlef schreibt, ist das mittels VBA ziemlich einfach, wenn man die näheren Umstände kennt, vor allem die Bereiche in Excel ((Tabellen-)Blätter, Zellbereiche), in denen Daten enthalten sind.

Man läßt einfach eine Schleife über die Zellen laufen, fügt dazwischen die TDs usw. ein und schreibt das Ganze dann in eine Textdatei.

Eine Bitte aber:

wie bekomme ich aus einer Tabelle (in Excess, Word, o.ä.) [...]

Das heißt Excel - nicht Exel, nicht Excess oder sonstwie :-/

Viele Grüße

Jörg

[at]

Hallo.

wie bekomme ich aus einer Tabelle (in Excess, Word, o.ä.) [...]

Das heißt Excel - nicht Exel, nicht Excess oder sonstwie :-/

Oder es heißt Access.
MfG, at

[Daniel N.]

Hi Roberto,

ich habe auch häufiger das Problem. Da ich verschiedenste Tabellen bekomme und ich keine Lust habe für alle ein Makro zu schreiben, exportiere ich die Daten in eine Textdatei, wobei die Spalten durch einen frei wähbares Trennzeichen getrennt werden.
(das ist eine "normale" Excel-Funktion)

Eine solche Text-Datei lässt sich mit vielen HTML-Editoren in eine nackte HTML-Tabelle konvertieren.

Viele Grüße
Daniel

[Jörg Lorenz]

Hi Daniel,

ich habe auch häufiger das Problem. Da ich verschiedenste Tabellen bekomme und ich keine Lust habe für alle ein Makro zu schreiben,

Wieso? Für alle _ein_ Makro ist doch das Ideal - oder?

Obwohl ich eigentlich gegen Selektiererei in VBA  bin - hier wäre ein sinnvolles Einsatzgebiet. Tablle markieren (oder auch nicht, Stichwort Usedrange), Schleife, Textdatei schreiben, fertig. Das ganze in ein Add-In und schon reicht ein Klick oder ein Shortcut.

Viele Grüße

Jörg

[Daniel N.]

Hi Daniel,

Wieso? Für alle _ein_ Makro ist doch das Ideal - oder?

Ne für jede Excel-Tabelle ein weiteres Makro meinte ich ;-)
Wenns das mit _einem_ Makro geht, ist es natürlich super.

Ich arbeite bearbeite aber häufig die exportieren Textdateien händisch nach, z.B. um "lose" stehenden Text zu entfernen usw.

Viele Grüße
Daniel

[Detlef G.]

Hallo Daniel

Wenns das mit _einem_ Makro geht, ist es natürlich super.

Das dürfte kein Problem sein.
Du kannst z.B. die Tabelle vorher manuell markieren und die Schleife dann
genau diesen Breich abarbeiten lassen.
Solange es eine einfache Tabelle ist dürfte es keine Probleme damit geben.
Schwieriger wird es, wenn die Tabelle "Verbundene Zellen" enthält und diese
auch vernünftig umgesetzt werden sollen.

Ich arbeite bearbeite aber häufig die exportieren Textdateien händisch nach, z.B. um "lose" stehenden Text zu entfernen usw.

Was meinst du "lose" stehendem Text?

Auf Wiederlesen
Detlef

[Jörg Lorenz]

Hi Daniel,

Wieso? Für alle _ein_ Makro ist doch das Ideal - oder?
Ne für jede Excel-Tabelle ein weiteres Makro meinte ich ;-)
Wenns das mit _einem_ Makro geht, ist es natürlich super.

das wäre so ein Ansatz, der ja beliebig ausgebaut werden kann:

Sub Tabelle()
Dim objZelle As Object
Dim strText As String
Dim lngI As Long, lngZ As Long
Dim strPfad As String
'In F1 steht der Pfad zur Textdatei:
strPfad = Range("F1")
lngZ = 0
lngI = 0
strText = "<table>" & vbNewLine
For Each objZelle In Selection
'oder:
'For Each objZelle In ActiveSheet.UsedRange
'oder:
'For Each objZelle In Range("A1:B10")
'oder, oder, oder ...
    If objZelle.Row > lngZ Then
        If lngI = 0 Then
            strText = strText & "<tr><td>" & objZelle & "</td>"
        Else
            strText = strText & "</tr>" & vbNewLine & "<tr><td>" & objZelle & "</td>"
        End If
        lngZ = objZelle.Row
    Else
        strText = strText & "<td>" & objZelle & "</td>"
    End If
    lngI = lngI + 1
Next
strText = strText & "</tr>" & vbNewLine & "</table>"
Open strPfad For Output As #1: Print #1, strText: Close #1
End Sub

Ich arbeite bearbeite aber häufig die exportieren Textdateien händisch nach, z.B. um "lose" stehenden Text zu entfernen usw.

Ja, das könnte ein kleines Problem sein. Wenn man aber Regelmäßigkeiten hätte, könnte man das natürlich auch mit einbauen.

Viele Grüße

Jörg