Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
376to380
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
376to380
376to380
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Dateien schreiben

Dateien schreiben
04.02.2004 00: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

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

Betreff
Datum
Anwender
Anzeige
AW: Dateien schreiben
04.02.2004 01: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
AW: Dateien schreiben
04.02.2004 01: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 01: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
Danke an euch!!
04.02.2004 02:42:43
Torben
Danke ihr habt mir sehr geholfen! Es läuft!!!
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige