Create text files with file names from excel column

Hi guys I would appreciate help with VBA code to create many text files named out of cells in a column within an excel sheet. Any ideas?

Hello
Can you give more details please?

Quote:

---

Originally Posted by YasserKhalil

Hello
Can you give more details please?

---

Hi, so I have a list of file names in an excel spreadsheet and I want help to find code that will create blank text files that are named after the spreadsheet. Like one file per cell containing a file name.

Try this code

Code:

---

Sub Test()
    Dim fso As Object, txtFil As Object, c As Range


    Set fso = CreateObject("Scripting.FileSystemObject")
   
    For Each c In Range("A1:A3")
        Set txtFil = fso.CreateTextFile(ThisWorkbook.Path & "\" & c.Value & ".txt", True)
        txtFil.Close
    Next c
End Sub

---

Quote:

---

Originally Posted by YasserKhalil

Try this code

Code:

---

Sub Test()
    Dim fso As Object, txtFil As Object, c As Range


    Set fso = CreateObject("Scripting.FileSystemObject")
   
    For Each c In Range("A1:A3")
        Set txtFil = fso.CreateTextFile(ThisWorkbook.Path & "\" & c.Value & ".txt", True)
        txtFil.Close
    Next c
End Sub

---

---

Hi, where will the new text file be created and saved?

The new created text files will be in the same path of your workbook (ThisWorkbook.Path) >> you can change to your folder like that ("C:\MyFolder")

Quote:

---

Originally Posted by YasserKhalil

The new created text files will be in the same path of your workbook (ThisWorkbook.Path) >> you can change to your folder like that ("C:\MyFolder")

---

You're a legend. The code was perfect and I learned.

You're welcome. Glad I can offer some help