Inhalt einer Textbox als Textdatei speichern

[MdeJong]

Hallo,

ich hab folgende Frage:

ich möchte den Inhalt einer TextBox, die in einer Userform ist, als Textdatei in eine bestimmtes Verzeichnis speichern, per CommandButton.

Wie kann ich das als vba Code umsetzen?

Gruß

MdeJong

[RPP63]

Moin!

Private Sub CommandButton1_Click()
Call WriteFile("H:\Plumpaquatsch.txt", TextBox1)
End Sub

Sub WriteFile(ByRef Path As String, ByRef Text As String)
  Dim FileNr As Long
  FileNr = FreeFile
  Open Path For Output As #FileNr
  Print #FileNr, Text;
  Close #FileNr
End Sub

Nachfragen? Na klar!

Gruß Ralf

[MdeJong]

Hallo Ralf,

danke für deine schnelle Antwort.
und wie müsste der Code sein, wenn die Textdatei den Namen einer bestimmte TextBox bekommen soll?

Sorry, das hatte ich eben nicht bedacht, da war ich zu voreilig. 

Gruß

MdeJong

[Crazy Tom]

Hallo

die Idee aufgegriffen...
die Textboxnamen und den Pfad entsprechend anpassen

Textbox1 wird in die Txt geschrieben, Textbox2 der Speichername

Code:

Private Sub CommandButton1_Click()
   Call WriteFile("C:\Users\Tom\Documents\Test\" & TextBox2.Text & ".txt", TextBox1)
End Sub

MfG Tom

[MdeJong]

Hi Tom,

Danke für dein Aufgriff  ;)

Im Moment läuft es bei mir noch nicht.

mein Code sieht angepasst so aus:

Code:

Private Sub cmdInfoPerson_Click()
  Call WriteFile("D:\AdressBuchDaten\" & txtInfoPerson.Text & ".txt", txtNummer)

End Sub

Ich habe den CommandButton in der Page "Neue Adresse eingeben"
der Text der abgespeichert werden soll, ist in TextBox "txtInfoPerson".
der Filename soll aus TextBox "txtNummer" übernommen werden.

Bei Aufruf von dem Code, kommt die Meldung: Sub oder Function nicht definiert

[Crazy Tom]

Hallo

wenn der Speichername in der Textbox txtNummer steht
dann hast du die beiden TextBoxen in der Codezeile vertauscht

hast du auch den zweiten Code von Ralf mit in der Userform stehen?
ohne die Sub WriteFile funktioniert das nämmisch nisch

MfG Tom

[MdeJong]

Hallo

wenn der Speichername in der Textbox txtNummer steht
dann hast du die beiden TextBoxen in der Codezeile vertauscht

hast du auch den zweiten Code von Ralf mit in der Userform stehen?
ohne die Sub WriteFile funktioniert das nämmisch nisch

MfG Tom

oh!!!!  ....sorry.........das wusste ich nicht, das beide hinein müssen

[Crazy Tom]

Hallo

wobei die Sub WriteFile nicht unbedingt in der Userform stehen muss...
sie kann auch in einem Standardmodul abgelegt sein, dann kann du sie auch noch anderweitig verwenden

MfG Tom

[MdeJong]

Gute Idee Tom,

Ich habe da nämlich noch eine Idee, wobei ich dieses Modul dann vielleicht nutzen kann.

Das speichern der Textdatei klappt nun.
Ich danke euch.

Gruß
MdeJong

[MdeJong]

und wie holt man diese Datei wieder zurück in eine Listbox?
Wenn die Listbox in der Multipage3 ist?

Also genauer gesagt, soll die Datei in der Multipage3 geladen werden, mit Bezug auf Textbox3 der Multipage0
Textbox3 in Multipage0 ist auch der Dateiname.