Excel-Datei als Textdatei speichern

• Excel-Datei als Textdatei speichern von Ulrich Kaufmann vom 19.09.2003 16:43:24
  • AW: Excel-Datei als Textdatei speichern - von Willie am 19.09.2003 17:35:17
  • AW: Excel-Datei als Textdatei speichern - von Ulrich Kaufmann am 22.09.2003 17:09:35

Betrifft: Excel-Datei als Textdatei speichern
von: Ulrich Kaufmann
Geschrieben am: 19.09.2003 16:43:24

Hallo,

ich möchte den Inhalt einer Exceldatei als Textdatei speichern.
Dabei werden die Dezimaltrennzeichen von Komma auf Punkt umgesetzt.
Wie gelingt es mir die Kommas zu erhalten?
Das von mir verwendete Coding sieht so aus:

ActiveWorkbook.SaveAs Filename:= _
"S:\Projekte\Logistic-IT\SD\Fracht\Maut\Frachtkonditionen\" & Dateiname & _
" - TK 01-08", FileFormat:=xlText, CreateBackup:=False

Vielen Dank für einen Hinweis

Uli

Betrifft: AW: Excel-Datei als Textdatei speichern
von: Willie
Geschrieben am: 19.09.2003 17:35:17

Hallo Uli ich habe da bei mir noch etwas gefunden!
Vielleicht hilft dir das ja weiter
Gruß
Willie

Sub TabelleAlsTextdateiSpeichern()
Dim Bereich As Range
Dim Zeile As Object
Dim Zelle As Object
Dim s As String
 Set Bereich = ActiveSheet.UsedRange
 Open "c:\test\test.cvs" For Output As #1
 For Each Zeile In Bereich.Rows
    For Each Zelle In Zeile.Cells
        s = s & Zelle.Text & ";"
    Next
    Print #1, s
    s = ""
  Next
  Close #1
End Sub

Betrifft: AW: Excel-Datei als Textdatei speichern
von: Ulrich Kaufmann
Geschrieben am: 22.09.2003 17:09:35

Hallo Willie,

vielen Dank für deinen Hinweis.
Es hat genau das Problem gelöst, dass ich hatte.
Ich habe lediglich noch Tabulatoren als Trennkennzeichen eingefügt und jetzt funktioniert es.

Also nocheinmal Vielen Dank und Gruß

Uli

Beiträge aus den Excel-Beispielen zum Thema " Excel-Datei als Textdatei speichern"