Text Datei erstellen mit VBA
11.04.2019 22:35:49
Marc
ich möchte mit folgendem Code eine Textdatei erstellen aber ich bekomme jedesmal die Meldung der zugriff werde verweigert. Ich hab schon zig verschiedene Verzeichnisse ausgewählt und es ist immer das Gleiche Ergebnis.
Das ist der Code:
Sub CreateTextFile()
Dim sFilename As String
sFilename = "C:\Users\Gast\Testfile" & ".txt"
Dim objFilesystem As New FileSystemObject
Dim ObjFile As TextStream
Set ObjFile = objFilesystem.CreateTextFile(sFilename, True)
ObjFile.Writeline "Test test Test"
End Sub
Ich habe schon den Schreibschutz in einzelnen Verzeichnissen entfernt aber auch das hat nicht geholfen. Was muss ich machen damit die Datei irgendwo abgespeichert werden kann?
VG,
Marc