just4fun1990
Goto Top

Inhalt einer Textbox in eine .txt Datei schreiben

Hallo Administrator.de User,

ich habe jetzt schon sehr lange gesucht und finde leider nichts. Hier allerdings habe ich gute Erfahrungen gemacht und mir wurde auch immer geholfen.
Nun zu meiner Frage: Ich möchte eine UserForm mit Textbox, wo man den Text, welchen man in die Textbox eingibt als Textdatei speichert. Am besten noch unter einem bestimmten Pfad.
Ich habe nur einen Code gefunden, wo man Zellwerte in eine .txt Datei exportieren kann.

Dieser Code lautet wie folgt:

Dim f As Integer
Dim c As Variant
Dim DateiName As String

f = FreeFile

DateiName = "Pfad\Dateiname"

On Error GoTo Fehler
If Dir(DateiName) <> "" Then '*
Open DateiName For Append As f '*
Print #f, vbCrLf '*
Print #f, Format(Now, "dd.mm.yyyy hh:mm:ss") '*
Else '*
Open DateiName For Output As f

End If '*

For Each c In Worksheets("Menü").Range("A35:D38")
Print #f, c

Next

Fehler:
If Err.Number <> 0 Then
MsgBox Err.Description, vbCritical + vbOKOnly, "Fehler:" & Err.Number
Err.Clear

End If
Close f

On Error GoTo 0


Entweder kann ich diesem Code umschreiben, was ich aber nicht geschafft habe. Würde mich sehr freuen wenn mir jemand helfen würde.

Mit freundlichen Grüßen

Justin Wagner

Content-Key: 258302

Url: https://administrator.de/contentid/258302

Ausgedruckt am: 28.03.2024 um 09:03 Uhr

Mitglied: colinardo
Lösung colinardo 22.12.2014 aktualisiert um 11:03:05 Uhr
Goto Top
Hallo Justin,
Dim FILEPATH,objFSO as Object ,objTextfile as Object
'Pfad zur Datei  
FILEPATH = "[PFAD ZUR DATEI]"  
'Filesystem Object  
Set objFSO = CreateObject("Scripting.FileSystemObject")  
'Textdatei erzeugen  
Set objTextFile = objFSO.OpenTextFile(FILEPATH,2, True)
'Textdatei mit Inhalt füllen (Textbox-Controlname welches den Text enthält bitte anpassen !!)  
objTextFile.Write(TextBox1.Text)
'File schließen  
objTextFile.Close()
Grüße Uwe
Mitglied: Just4fun1990
Just4fun1990 22.12.2014 um 10:44:51 Uhr
Goto Top
Hi Uwe,

danke für die Antwort doch leider funktioniert der Code nicht ganz,

er findet den Pfad nicht den ich bei FILEPATH = Pfad eingegeben habe.
habe in anderen Makros den Pfad schon verwendet daran kann es also nicht liegen.

Grüße Justin
Mitglied: colinardo
colinardo 22.12.2014 aktualisiert um 10:53:01 Uhr
Goto Top
Zitat von @Just4fun1990:
danke für die Antwort doch leider funktioniert der Code nicht ganz,
doch hier schon, mach ich ja jeden Tag x mal ...
er findet den Pfad nicht den ich bei FILEPATH = Pfad eingegeben habe.
es muss an deiner Anpassung liegen .. die du hier leider nicht gespostet hast ...

Du musst die Ordner des Pfades natürlich vorher im Code erzeugen !! Von selber macht das VBA nicht !

http://msdn.microsoft.com/en-us/library/7kby5ae3%28v=vs.84%29.aspx

objFSO.CreateFolder "C:\Ordner"
objFSO.CreateFolder "C:\Ordner\Subordner"
Mitglied: Just4fun1990
Just4fun1990 22.12.2014 um 10:53:56 Uhr
Goto Top
Ok mein Fehler (dachte übrigens auch nicht dass du nen Fehler gemacht hast)
Habe das .txt vergessen... Oh man.

Tut mir leid habs erst jetzt gemerkt.

Gruß Justin