Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
904to908
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
904to908
904to908
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Eine Textdatei mit VBA in eine andere schreiben

Eine Textdatei mit VBA in eine andere schreiben
11.09.2007 08:17:06
Ingo
Hallo
Ich habe ein VBA-Script mit dem ich bestimmte Zelleninhalte einer Exvel-Zabelle in eine Textdatei (TextFertig.txt) schreibe.
Das mache ich z.B. mit folgender Codezeile:
Print #iFile, "Blabla: " & Cells(iRow, 18) & "-Trallala1"
Nun möchte ich in diese Textdatei (TextFertig.txt) auch noch den Inhalt einer anderen Textdatei (C:/Temp/MeinText.txt) hineinschreiben.
Und zwar so nach dem Prinzip:
Print #iFile, (C:/Temp/MeinText.txt)
Ich habe hier im Forum und auch per Google schon ne Weile nach "Textdatei einlesen VBA" usw. herumgesucht, aber leider noch nichts passendes gefunden.
Der Inhalt von C:/Temp/MeinText.txt soll unverändert in TextFertig.txt eingefügt werden.
Er soll also nicht weiter beschnitten, verändert, formatiert oder sonstwas werden.
Nur die Zeilenumbrüche sollen erhalten bleiben.
Da ich ja selber nur sehr bescheidene VBA-Kenntnisse habe, würde ich mich freuen, wenn Ihr mir dabei behilflich sein könntet.
Gruß
Ingo

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

Betreff
Datum
Anwender
Anzeige
AW: Eine Textdatei mit VBA in eine andere schreibe
11.09.2007 08:42:25
Case
Hallo,
das kann Dir wenigstens schon mal als Ansatz helfen:
Textdateien
Servus
Case

AW: Eine Textdatei mit VBA in eine andere schreibe
11.09.2007 08:43:00
bst
Hi Ingo,
Print #iFile, ReadFile("C:/Temp/MeinText.txt")

sowie:
Option Explicit

Public Function ReadFile(ByVal strFileName As String) As String
    Dim intHandle As Integer
    
    intHandle = FreeFile
    Open strFileName For Input As #intHandle
    ReadFile = Input(LOF(intHandle), #intHandle)
    Close #intHandle
End Function



cu, Bernd

Anzeige
Vielen lieben Dank !!!
11.09.2007 08:57:05
Ingo
Lieber Bernd
Klappt wunderbar.
Vielen lieben Dank (auch dem Case natürlich).
Gruß
Ingo

314 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige