Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 09:54:17
Durchschnittswerte zwischen Tagen berechnen
16.04.2024 09:51:15
Frage: KPI - Logistik Dashboard
16.04.2024 09:22:11
Wenn Istleer über mehrere Blätter
15.04.2024 23:32:21
Darstellung im IMAGE sehr schlecht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
652to656
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
652to656
652to656
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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!
Anzeige
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
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
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
Anzeige
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!
AW: Textdatei schreiben
18.08.2005 08:21:57
volker
Vielen Dank,
so langsam merke ich wie umständlich ich manches programmiert habe :-(
Volker

Links zu Excel-Dialogen

Label

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige