View Single Post
  #4   Report Post  
Dave Peterson
 
Posts: n/a
Default

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