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"