Herbers Excel-Forum - das Archiv

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
Excel-Beispiele zum Thema "Tabelle in txt-Datei Schreiben"
Suche über mehrere Tabellen Benennen von Tabellenblättern mit Monatsnamen
Druckseitenlinien im Tabellenblatt Tabellenblattnamen in ein Listenfeld einlesen
Suchbegriff über mehrere Tabellenblätter suchen. Tabellenblätter benennen
Tabellenblatt auswählen Zustand von Tabellenblatt-Checkboxes ermitteln
Tabellenblattnamen der VBE-Projekte ändern Tabellenblattnamen nach Datum