I have no idea where the data is kept (different columns I hope???).
But this may give you some ideas:
Option Explicit
Sub testme()
Dim myFileName As String
Dim FileNum As Long
Dim myFolder As String
Dim FirstRow As Long
Dim LastRow As Long
Dim iRow As Long
'make sure it exists!
myFolder = "C:\temp"
If Right(myFolder, 1) < "\" Then
myFolder = myFolder & "\"
End If
With Worksheets("sheet1")
FileNum = FreeFile
FirstRow = 2 'headers in row 1??
LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
For iRow = FirstRow To LastRow
Close FileNum
myFileName = myFolder & "out" _
& Format(iRow - FirstRow + 1, "0000") & ".txt"
Open myFileName For Output As FileNum
Print #FileNum, "<head</head"
Print #FileNum, "<name" & .Cells(iRow, "A").Text & "</name"
Print #FileNum, "<street" & .Cells(iRow, "b").Text & "</street"
Print #FileNum, "Any other info here as well"
Print #FileNum, "</html"
Close FileNum
Next iRow
End With
End Sub
If you're new to macros, you may want to read David McRitchie's intro at:
http://www.mvps.org/dmcritchie/excel/getstarted.htm
GrahamN wrote:
I have an excel file with several thousand entries, which contain data
in several columns. I would like to be able to create an individual
xml or html file for each row, but with predifined formatting around
so
Mr A bloggs, A street, A town, AA1 1AA
Could become Abloggs.html
<head</head
<nameMr A bloggs</name
<streetA street</street
Any other info here as well
</html
etc. Is this possible and any suggestions how?
thanks,
Graham.
--
GrahamN
------------------------------------------------------------------------
GrahamN's Profile: http://www.excelforum.com/member.php...o&userid=24891
View this thread: http://www.excelforum.com/showthread...hreadid=384300
--
Dave Peterson