Textdatei erstellen
03.12.2007 08:47:05
Daniel
Ich habe in den Beispielen einen Code gefunden, mache aber wohl einen Fehler.
Es soll eine Textdatei erstellt werden, in einem bestimmten Pfad und mit einem Datum als
Dateiname. Der Pfad steht in K4, das Datum in C13.
Was muss ich ändern?
Sub CreateAfile()
Dim Pfad, Datum As String
Pfad = Range("K4").Value
Datum = Range("C13").Value
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile(Pfad & Datum & ".txt", True)
a.WriteLine ("Dies ist ein Test.")
a.Close
End Sub
Anzeige