Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
240to244
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
240to244
240to244
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

MSDos Text Export

MSDos Text Export
04.04.2003 21:38:45
Richard
Hallo Leute,

mit dem unten stehenden Makro exportiere ich den Inhalt eines Tabellenblattes in eine Textdatei mit einem bestimmten Format.
Insgesamt habe ich vier Tabellenblätter mit unterschiedlichen Daten, welches Tabellenblatt ich exportier habe ich mit der variablen „TB“ vorher festgelegt. Hierbei wird der Inhalt einer jeden Zelle mit vorangestellter Kennung die im Spaltenkopf steht mit einem Trennzeichen in eine Zeile exportiert.
Nun mein Problem, das ich bisher noch nicht lösen konnte:
Wie kann ich mit diesem Makro den Text im MSDos (OEM) Format Exportieren (wegen der Umlaute und verschiedener Sonderzeichen).
Für Hilfe von euch wäre ich sehr dankbar, da ich hierbei an meine Grenzen gestoßen bin.

Richard

Sub Export()
' Trennzeichen als Texttrenner
Dim TrZei As String

Dim TMP$
Dim z%, s%
TrZei = Worksheets("Parameter").Range("I3")
' ExpDN = festgelegter Filename in der Tabelle Parameter
Open ExpDN For Output As #1

For z = 4 To TB.UsedRange.Rows.Count
If Rows(z).EntireRow.Hidden Then GoTo Weiter
For s = 1 To intColCD
TMP = TMP & CStr(TB.Cells(3, s).Text) & TrZei & CStr(TB.Cells(z, s).Text)
Print #1, TMP
TMP = ""
Next s
Weiter:
Next z
Close 1
End Sub


4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: MSDos Text Export
04.04.2003 22:33:47
Ramses

Hallo Richard,

das sollte so funktionieren:


Sub Replace_different_Characters()
Dim i As Integer, n As Long
Dim TMP As Variant, TrZei As String
Dim txtArray() As Variant
Dim repArray() As Variant
'Deine Variablen
Dim z%, s%
'Suchbegriffe definieren
txtArray = Array("Ä", "ä", "Ö", "ö", "Ü", "ü", "é", "è", "à", "¦")
'die zugehörigen Ersatzzeichen definieren
repArray = Array("Ae", "ae", "Oe", "oe", "Ue", "ue", "e", "e", "a", "I")
'Dein Code
TrZei = Worksheets("Parameter").Range("I3")
' ExpDN = festgelegter Filename in der Tabelle Parameter
Open ExpDN For Output As #1
For z = 4 To TB.UsedRange.Rows.Count
    If Rows(z).EntireRow.Hidden Then GoTo Weiter
        For s = 1 To intColCD
            TMP = TMP & CStr(TB.Cells(3, s).Text) & TrZei & CStr(TB.Cells(z, s).Text)
            'Schleife für Stringlänge definieren
            For i = 1 To Len(TMP)
                'Schleife für alle Einträge in txtArray() starten
                For n = 0 To UBound(txtArray())
                    'Wenn ein Ersatzzeichen gefunden wird...
                    If InStr(1, TMP, txtArray(n)) > 0 Then
                        '.... dieses ersetzen
                        TMP = Application.WorksheetFunction.Replace(TMP, InStr(1, TMP, txtArray(n)), 1, repArray(n))
                    End If
                Next n
            Next i
            Print #1, TMP
            TMP = ""
        Next s
Weiter:
Next z
Close #1
End Sub 
     Code eingefügt mit Syntaxhighlighter 1.16

Gruss Rainer

Anzeige
Re: MSDos Text Export
05.04.2003 00:12:40
L.Vira

Hallo Ramses,
ganz schön umständlich, was? Das geht doch einfacher.
Gruß L.Vira

Re: MSDos Text Export
05.04.2003 09:10:12
Ramses

Hallo L.Vira,

auf die Schnelle fiel mir nichts anderes ein.
Der obere Teil stammt glaube ich sogar von dir.

Gruss Rainer

Re: MSDos Text Export
05.04.2003 21:54:28
Richard

Hallo L.Vira, Rainer,

dank an euch beide, habe den Code eingegeben und es hat funktioniert.

Richard

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige