Tabelle in txt-Datei Schreiben

Bild

Betrifft: Tabelle in txt-Datei Schreiben
von: Fredi van Wensen
Geschrieben am: 14.04.2005 09:13:38
Hallo,
kann jemand mich helfen wie ich eine Tabelle in einer Txt-Datei schreiben kann. Getrennt durch TAB. Es sollen insgesamt 720 Zellen sein.
Mfg
Fredi van Wensen

Bild

Betrifft: AW: Tabelle in txt-Datei Schreiben
von: Dani
Geschrieben am: 14.04.2005 09:37:30
Hallo Fredi,
versuchs mal damit:


      
'Ansatz für Fredi zum Abspeichern von Tabellendaten in ein Textfile
Sub TabelletoText()
Dim Speicherbereich As Range
Dim Zelle As Object
Set Speicherbereich = Range("A1:D50") 'Hier wird der Speicherbereich festgelegt
Open "C:\Temp\Text.txt" For Output As #1 'Datei öffnen
 For Each Zelle In Speicherbereich   'Alle Zellen abgrasen
    Print #1, Zelle.Value & vbTab;   'Werte speichern
 Next
Close #1
End Sub 

     Code eingefügt mit Syntaxhighlighter 3.0

Hoffe es hilft
Gruss Bambi
Bild

Betrifft: AW: Tabelle in txt-Datei Schreiben
von: Fredi van Wensen
Geschrieben am: 14.04.2005 09:52:33
Danke, hat mich schon viel geholfen aber geht es auch dass es jeder Spalte im Excel auch als eine Spalte im Text Datei geschrieben wird:
1 2
2 3
3 4
usw
Statt 1 2 2 3 3 4?
Danke
Fredi
Bild

Betrifft: AW: Tabelle in txt-Datei Schreiben
von: Ralf (Schwabenland)
Geschrieben am: 14.04.2005 09:58:38
Hallo Fredi,
probier mal das:
https://www.herber.de/bbs/user/21135.xls
Hoffe es hilft.
Gruß
Ralf
Bild

Betrifft: AW: Tabelle in txt-Datei Schreiben
von: Dani
Geschrieben am: 14.04.2005 10:06:20
Hallo Fredi,
so sollte es gehen:


      
'Ansatz für Fredi zum Abspeichern von Tabellendaten in ein Textfile
Sub TabelletoText()
Dim Speicherbereich As Range
Dim Zelle As Object
Dim Spalte, AnzahlSpalten As Long
Spalte = 1
Set Speicherbereich = Range("A1:B4") 'Hier wird der Speicherbereich festgelegt
AnzahlSpalten = Speicherbereich.Columns.Count
Open "C:\Temp\Text.txt" For Output As #1 'Datei öffnen
 For Each Zelle In Speicherbereich   'Alle Zellen abgrasen
        Print #1, Zelle.Value & vbTab;   'Werte speichern
        If Spalte = AnzahlSpalten Then
            
Print #1, ""
            Spalte = 0
        
End If
        Spalte = Spalte + 1
 
Next
Close #1
End Sub 

     Code eingefügt mit Syntaxhighlighter 3.0


Gruss Dani
Bild

Betrifft: AW: Tabelle in txt-Datei Schreiben
von: Fredi van Wensen
Geschrieben am: 14.04.2005 10:06:29
Hat super funktioniert, danke..
Fredi
Bild

Betrifft: Danke für die Rückmeldung! O.w.T.
von: Ralf (Schwabenland)
Geschrieben am: 14.04.2005 10:09:27
:-)
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Tabelle in txt-Datei Schreiben"