Anzeige
Archiv - Navigation
356to360
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
356to360
356to360
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Daten aus Tabelle in Textdatei?

Daten aus Tabelle in Textdatei?
29.12.2003 09:27:34
Andre
Guten Morgen,

ich weiß, man kann problemlos über "Externe Daten" eine Textdatei in ein Tabellenblatt einlesen. Ich hätte aber gern das Gegenteil, d.h. ich wüßte gern ob man einen bestimmten Bereich ( z.B. A1 bis L5 ) dementsprechend in eine Textdatei speichern kann.
Klar, ich könnte den Bereich markieren, eine Textdatei generieren und diese Daten kopieren, aber das Ganze hätte ich gern automatisiert.
Also konkret ein Makro, das eine Textdatei auf C:\ generiert (Name: erstelltes Datum) und sofort den Bereich A10:L? (bis zur letzten nichtleeren Zeile) aus dem Tabellenblatt "Bericht" hineinkopiert!

Ist sowas überhaupt möglich? Hat jemand ´n Tip?

Gruß Andre

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Daten aus Tabelle in Textdatei?
29.12.2003 10:12:13
Josef Ehrensberger
Hallo Andre,

schreib diesen Code in ein allgemeines Modul.



Sub ascii_datei_exportieren()
Dim lngZeile As Long
Dim lngZcnt As Long
Dim intSpalte As Integer
Dim intScnt As Integer
Dim strText As String
Dim strSep As String
Dim sFile As String
Dim strName As String
lngZcnt = Sheets("TB1").Range("L65536").End(xlUp).Row  'Zeilenanzahl >Tabellenname anpassen
intScnt = 12               'Spaltenanzahl
strSep = ";"               'Trennzeichen = ;
strName = "NeueTextDatei"  'Name der Textdatei
Close #1
'Name und Speicherort festlegen
sFile = "C:\" & strName & Format(Date, "ddmmyy") & ".txt"   'Pfad anpassen
'Öffnen der strTextdatei
Open sFile For Output As 1
   
'Schleife fürlngZeilen
   For lngZeile = 10 To lngZcnt  'ab Zeile 10
   strText = ""
   'Schleife für intSpalten
      For intSpalte = 1 To intScnt
      strText = strText & CVar(Cells(lngZeile, intSpalte))
         If intSpalte < intScnt Then strText = strText & strSep
      Next
      If lngZeile = lngZcnt Then Print #1, strText; Else Print #1, strText
   Next
   
'Schließen der Textdatei
Close #1
End Sub

     Code eingefügt mit Syntaxhighlighter 2.5


Den Tabellenblattnamen und den Pfad musst Du nach deinen
bedürfnissen anpasen. Ebenso den Namen den die Textdatei
haben soll.

Gruß Sepp
Anzeige
AW: Daten aus Tabelle in Textdatei?
29.12.2003 11:24:10
Reto
Hallo
strName = "NeueTextDatei" kannst du noch abändern nach
strName = "" & Worksheets("Tabelle1").Range("A1") & ""
somit solltest du auf dem Tabellenblatt in A1 den Dateinamen eingeben können.

Gruss Reto
Herzlichen Dank! Funktioniert hervorragend! o.T.
29.12.2003 12:22:22
Andre

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige