Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Textdatei schreiben

Textdatei schreiben
17.08.2005 11:20:07
volker
Hei,
da ich mir alles selbst beigebracht habe heute mal eine Frage, die wahrscheinlich zum Kopfschütteln verleitet. Dennoch weiß ichs nicht :-(
Kann man aus EXCEL eine Textdatei auslesen ohne Umweg, dass man die Daten zunächst in ein EXCEL-Sheet schreibt und dieses dann als Text-Datei abspeichert?
Volker
Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Textdatei schreiben
17.08.2005 11:32:35
Unbekannter
Hier ein einfaches Beipsiel,ich hoffe es hilft dir.

Sub schreiben()
Dim i
Open "c:\temp\1.txt" For Output As #1
For i = 1 To 10
Print #1, Range("a" & i).Value
Next i
Close #1
End Sub


Sub lesen()
Dim tmp, i
Open "c:\temp\1.txt" For Input As #1
Do Until EOF(1)
For i = 1 To 10
Input #1, tmp
Range("b" & i).Value = tmp
Next i
Loop
Close 1
End Sub

Gruß UN1
Anzeige
AW: Textdatei schreiben
17.08.2005 11:38:04
u_
Hallo UN1,
schon mal was von Cells(Zeile,Spalte) gehört?
anstatt Range("A" &i) Cells(i,1)
Gruß
Geist ist geil!
AW: Textdatei schreiben
17.08.2005 11:39:37
Unbekannter
Keine Angst,dass habe ich.Ich verwende Range auch nur wenn ich die Spalten nicht wechseln will ansonsten nehme ich auch cells,ok
AW: Textdatei schreiben
17.08.2005 16:12:20
volker
Hei unbekannte Nummer Eins,
Vielen Dank für den Tipp!
Das ist ja super Easy.
Hätte vielleicht doch mal von der Pike auf lernen sollen :-)
Volker
Anzeige
AW: Textdatei schreiben
17.08.2005 11:34:19
ray
hi,
so gehts:
Public

Sub ReadEingabenTxT(sFileName As String)
'für Felder Drive1 und Dir1 auf uf_einstell
Dim i As Integer
Dim b() As String
Dim sInhalt As String
Dim f As Integer
f = FreeFile()
Open sFileName For Binary As #f
sInhalt = Space$(LOF(f))
Get #f, , sInhalt
Close #f
b = Split(sInhalt, vbCrLf)
uf_einstell.Label8 = b(0) 'Drive1
uf_einstell.Label10 = b(1) 'Dir1
End Sub

Gruß ray
Anzeige
AW: Textdatei schreiben
17.08.2005 11:34:28
ede
hallo volker,
mit nachstehendem makro kannst du eine text.datei in excel einlesen.
analog kannst du auch den print-befehl zum schreiben in eine text-dartei verwenden!

Sub Text_Import()
'StartVerzeichnis - bitte anpassen
ChDrive "c:\"
ChDir "\temp"
'Dialogfenster Öffnen
sFile = Application.GetOpenFilename _
("txt Dateien (*.txt), *.txt")
If sFile Then
Close
Open sFile For Input As #1
I = 1
Do While Not EOF(1)
Line Input #1, strTXT
Cells(I, 1).Value = strTXT
I = I + 1
Loop
End If
Close
End Sub

viel erfolg
Anzeige
AW: Textdatei schreiben
17.08.2005 15:49:04
volker
Danke Ede,
nur weil ich sicher gehen will (und es auch nicht weiß :-))
Print Befehl ist:
Application.print oder wie?
Meine Textdatei soll zudem die Endung "*.in" haben. Wie lege ich das an?
Volker
AW: Textdatei schreiben
18.08.2005 07:19:21
ede
guten morgen,
so zum beisiel kannst du exportieren

Sub Text_Export()
Dim i As Integer
'Dialogfenster Speichern unter
sFile = Application.GetSaveAsFilename _
(fileFilter:="Files (*.in), *.in")
' die ersten 10 Zellen exportieren
If sFile <> False Then
Open sFile For Output As #1
For i = 1 To 10
Print #1, Cells(i, 1).Value
Next i
Close #1
MsgBox sFile & " wurde erstellt"
End If
End Sub

Rückmeldung wäre nett!
Anzeige
AW: Textdatei schreiben
18.08.2005 08:21:57
volker
Vielen Dank,
so langsam merke ich wie umständlich ich manches programmiert habe :-(
Volker
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige