Export Individual Rows To Individual Text Files?

Hi Chaps ,

I Have A Large Excel Sheet ( Over 10,000 Rows ) , I Need To Export Every Row Which Has Two Colums ARTIST & TITLE , To There Own Individual Text File.

I also need The File To Be Named With The Exported Artist And Title With A - To Seperate Them

So

Title Artist

Wonderful Life Black

can be exported to a .txt file and named :

Wonderful Life - Black

No Data Needs To Be Stored In The Actual File , Just A Name.

Hope You Can Help :-)

Jimmer

Ok Cool ,thanks venka , getting close now, I Played With The Worksheet Name ( After Realising I Was Trying To Pull Info From Wrong Place).

Sub myTest()
Dim myObj As Object, tFile
Dim wsht As Worksheet
Dim myPath As String
Dim lr As Long
Dim i As Integer
myPath = "C:\Users\Jay\Documents\myTest\" ' change the Path as you need
Set wsht = Worksheets("Sheet1") ' change the sheet name as you have
lr = wsht.Cells(Rows.Count, 1).End(xlUp).Row
Set myObj = CreateObject("Scripting.FileSystemObject")
For i = 1 To lr
Set tFile = myObj.CreateTextFile(myPath & Cells(i, 1) & "-" & Cells(i, 2) & ".txt", True)
tFile.WriteLine Cells(i, 1) & "-" & Cells(i, 2)
tFile.Close
Next i
End Sub



Text Files Are Produced In The Right Format Etc , But Only The First 43 Rows Are Exported and i get a "path not found error 76"

Sorry , I Can't Seem To Work This Out , Heres A Sample Workbook.sample book.xlsx

Please Login or Register  to view this content.

Hi Slx ,

That Works But strangely also only outputting a maximum of 43 rows ( txt files)

But In The Main Excel File There Are Over 10,000 Rows , And More Than 43 Unique Artists and titles...

Full Listings.

if anybody fancys a play . .. Hopefully

myTest.xlsx

ok found the problem ,

doesn't like certain chars in the text fields such as / # etc.

so will break the operation when it encounters these. duplicates are removed but only exact copies in both fields.

I'm going to consider This Solved , It Will Take A Little Sorting Out , But Thanks For The Starting Point!!!