Saving Textbox value to a notepad (VBA)

[nathan0519]

Hi All, is there a way to save the value of the textbox to a notepad when I click the "Save" button?Textbox.PNG

[humdingaling]

Private Sub CommandButton1_Click()
    Dim filepath As String
    Dim FN As Object
    Dim fs As Object
    
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set FN = fs.CreateTextFile("G:\zztest.txt", True)
    
    FN.writeline TextBox1.Text
    FN.Close

End Sub

textbox1 being your textbox
replace File location and file name with where you want it and what you want it called

[nathan0519]

Hi Sir/Maam it works but i need to save it daily. For example all data i save on the textbox1 will be saved to the notepad as "July 9.txt", tomorrow it will be save as "July 10.txt", and so on or simply it will be saved as what date is the file created... Appreciate your assistance

[humdingaling]

you need to define what your asking better than
you only asked for saving textbox into text

have another variable string and use that to set your filename

[nathan0519]

Something like this Sir/Ma'am,
Directory = "D:\File\"
Date = Now
Filename = "D:\File\July 10.txt"


---so when I use it here, the "Filename" will hold a value of "D:\File\July 10.txt"
Set FN = fs.CreateTextFile(Filename, True)

[humdingaling]

Private Sub CommandButton1_Click()
    
    Dim FN As Object
    Dim fs As Object
    Dim savename As String
    
    savename = "G:\" & (Format(Date, "DD-MMM-YY")) & ".txt"
    
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set FN = fs.CreateTextFile(savename, True)
    
    FN.writeline TextBox1.Text
    FN.Close

End Sub

this code will use todays date in MMM-YY format
ps this code will overwrite previous files so if you run it twice it will take the latest version


change drive to your needs, i used G because for my testing

[humdingaling]

Private Sub CommandButton1_Click()
    
    Dim FN As Object
    Dim fs As Object
    Dim savename As String
    
    savename = "G:\" & Range("A1") & ".txt"
    
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set FN = fs.CreateTextFile(savename, True)
    
    FN.writeline TextBox1.Text
    FN.Close

End Sub

this code takes value from A1
remember that naming conventions apply
characters \ / : * ? " < > | cannot be used

[nathan0519]

Thank you very much humdingaling. It's ok now