Excel-Datei als Textdatei speichern

Bild

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

Bild


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



Bild


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


 Bild

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