Das Archiv des Excel-Forums
Excel-Datei als Textdatei speichern
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
Excel-Beispiele zum Thema " Excel-Datei als Textdatei speichern"