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

Dateien schreiben

Forumthread: Dateien schreiben

Dateien schreiben
04.02.2004 01:03:11
Torben
Ich hätte da noch eine Frage...
wie kann ich mit VBA eine Textdatei erstellen in der von Tabelle1 die Zellen A4, B6, C7 und D19 untereinander geschrieben werden?
Mit bestem Dank im vorraus, der Torben
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Dateien schreiben
04.02.2004 02:10:39
Nike
Hi,
mal in die Excel FAQ's von Hans reinspicken,
http://xlfaq.herber.de/
da findet sich fast immer was brauchbares ;-)
wie z.B. hier:
http://xlfaq.herber.de/gruppen/ex_textexport.html
Meld dich wenn du es noch etwas genauer brauchst,
ich gehe immer davon aus,
das Leute auch noch ein bischen selber knobeln wollen,
manchmal ist das aber nicht der Fall ;-)
Bye
Nike
Anzeige
AW: Dateien schreiben
04.02.2004 02:35:46
Josef Ehrensberger
Hallo Torben!
Dieser Code sollte das erledigen!


Sub text_exportieren()
Dim intC As Integer
Dim intK As Integer
Dim rng As Range
Dim Zellen As Range
Dim strText As String
Dim strSep As String
Dim sFile As String
'Tabelle und Zellen die in Textfile geschrieben werden
Set Zellen = Sheets("Tabelle1").Range("A4,B6,C7,D19")
'Variablen zur Ermittlung des letzten Wertes
intC = Zellen.Count
intK = 1
Close #1
'Name und Speicherort festlegen
sFile = Application.GetSaveAsFilename(initialfilename:="NewstrTextFile.txt", _
   fileFilter:="strText Files (*.txt), *.txt")
   If sFile = "" Then Exit Sub
'Öffnen der strTextdatei
Open sFile For Output As 1
'Schreiben der Daten
For Each rng In Zellen
strText = CVar(rng)
If intK = intC Then Print #1, strText; Else Print #1, strText
intK = intK + 1
Next
 
'Schließen der Textdatei
Close #1
End Sub

     Code eingefügt mit Syntaxhighlighter 2.5

Gruß Sepp
Anzeige
AW: Dateien schreiben
04.02.2004 02:43:38
K.Rola
Hallo,
die Textdatei wird automatisch erzeugt, wenn sie noch nicht besteht:
Option Explicit

Sub Textdatei()
Const STRPFAD As String = "C:\Eigene Dateien\"
Const STRDATEI As String = "MeineDatei.txt"
Dim wsh As Worksheet, ff As Integer
Set wsh = Sheets("Tabelle1")
ff = FreeFile
Open STRPFAD & STRDATEI For Append As #ff
Print #ff, wsh.[a1]
Print #ff, wsh.[a2]
Print #ff, wsh.[a3]
Print #ff, wsh.[a4]
Print #ff, wsh.[a5]
Close ff
End Sub

Die Zellen musst du natürlich anpassen.
Gruß K.Rola
Anzeige
Danke an euch!!
04.02.2004 03:42:43
Torben
Danke ihr habt mir sehr geholfen! Es läuft!!!

Forumthreads zu verwandten Themen

in textfile schreiben ohne "
chris

Hallo VbAler,
sicher ist diese frage hier schon gestellt worden weiß aber leider nicht wie ich suchen soll.
Wie kann ich in eine textdatei schreiben ohne das der text zweischen "" steht.
Der Grund ist ich möchte mit Open eine *.bat datei erstellen und dann ausführen doch leider wir...
07.09.2004 17:32:47
Thread-ID: 481669
4 Beiträge
.txt Datei auslesen und in Excel schreiben
Björn

Hallo Vba Profis,
ich habe ene Frage zu folgendem Problem.
Ich möchte gerne eine bestehende Text-Datei (.txt) mit Hilfe eines Makros auslesen und den Inhalt in eine Excel-Datei schreiben. Die Herausforderung ist, dass nicht alle Zeilen der Textdatei geschrieben werden dürfen, sondern n...
23.12.2014 10:53:44
Thread-ID: 1399437
2 Beiträge
Textdatei öffnen
rastel
Hallo zusammen,
ich bin noch VBA-Anfänger und muss öfters viele Textdateien mit Excel öffnen. Daher wollte ich mir eben ein Makro schreiben, dass die Textdateien automatisch immer gleich mit den richtigen Bedingungen öffnet (also Dateiursprung, Trennungszeichen usw.).
Das Öffnen funktionie...
19.08.2007 18:41:53
Thread-ID: 898385
2 Beiträge
Anzeige
Makro Zeilen in .txt Datei kopieren -Fehler
Andre_D

Hallo zusammen,
per Makro möchte ich, dass aus einem Tabellenblatt Zeilen, in denen die Spalte A einen Wert enthält, in eine Text-Datei geschrieben werden. Die Spalten sollen per Tabstop getrennt werden. Besonderheit: der Export soll bei Zeile 3 beginnen.
Habe einen Code gefunden der a...
30.08.2018 18:29:57
Thread-ID: 1642449
5 Beiträge
Anzeige
Automatisches Speichern von Bereichen
Bereichen

Hallo,
ich habe ein größeres Problem.
Ich habe in Excel 2000 ein Tabellenblatt, in dem in Spalte "A" mehrere tausend Werte stehen.
Ich möchte jetzt per VBA-Code die Zeilen 1-20 als Textdatei in einen Ordner meiner Wahl abspeichern.
Der Name der abzuspeichernden Datei soll "20.t...
25.01.2012 09:54:48
Thread-ID: 1247835
2 Beiträge
VBA - Änderung an TXT-Export-Makro
Josef

Hallo allerseits,
ich habe eine Beispieldatei hochgeladen, um mein Anliegen genauer zu erklären:
https://www.herber.de/bbs/user/101847.xlsm
Die Daten auf dem Tabellenblatt sollen als TXT exportiert werden. Dafür haben wir auch ein Makro (Export_txt), welches auch fast einwandfrei f...
27.11.2015 12:45:58
Thread-ID: 1461086
2 Beiträge
Excel - Makro erweitern / Dateien zusammenfügen.
Seluaner

Hallo allerseits
Ich habe folgenden Makro - Code aus diversen Tutorials und Lösungen welche ich dank Euch erhalten hatte zusammengestellt:
Sub DateiImport() 'September 2008 Dim varDatei, strText As String, arrTemp As Variant, intI As Integer Dim intFF As Integer, wks As Worksheet, lng...
10.12.2008 15:43:00
Thread-ID: 1031701
2 Beiträge
Anzeige
Per VBA in Textdatei schreiben!
Dieter

Hallo Zusammen,
vielleicht ist es einfach, aber ich komm einfach nicht klar oder steh neben der "Kappe":
Wie kann ich per VBA in einer bestehenden und auch beschriebenen txt-Datei die nächst leere Zeile unter dem letzten Eintrag finden um dort weiter zu schreiben?
Danke im Vorraus <...
13.06.2007 19:45:00
Thread-ID: 877752
2 Beiträge
VBA Word / Excel / Datendatei
Franjo

Hallo an alle,
ich möchte aus Word-VBA (Userform) Daten aus einer Datei auslesen und bei Bedarf den Sprung zur Dateneingabe in diese Datei machen.
1. Gedanke: Textdatei anlegen und die Daten auslesen/schreiben
habe ich verworfen, da mir das Wissen fehlt, eine Textdatei nach bestimmt...
09.04.2009 21:40:47
Thread-ID: 1068109
1 Beitrag
Readonly / Textdatei
Ina

Hallo Forum,
ich möchte mit VBA eine Textdatei auswerten (nur lesend), auf die von einem anderen System zyklisch zugegriffen und die von dort beschrieben wird.
Das funktioniert prinzipiell prächtig, nur kommt es hin und wieder zu Zugriffskollisionen, da das System nicht schreiben kann w...
01.01.1970 01:00:00
Thread-ID: 403882
2 Beiträge
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum