Create individual files from a row

**GrahamN** · 07-04-2005, 09:22 AM

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>
<name>Mr A bloggs</name>
<street>A street</street>
Any other info here as well
</html>

etc. Is this possible and any suggestions how?

thanks,
Graham.

Fred · 07-04-2005, 11:05 AM

Graham,

How good is your HTML coding?

You could write a macro to do exactly what you want.

HTH

"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>
> <name>Mr A bloggs</name>
> <street>A 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
>
>

**GrahamN** · 07-04-2005, 03:12 PM

I guessed a Macro may be the way, but this is an area I'm not too clued up on

Anyone know any good resources?

Dave Peterson · 07-04-2005, 05:05 PM

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>
> <name>Mr A bloggs</name>
> <street>A 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

**Dhope888** · 07-13-2017, 02:55 AM

Hi Dave,

It seems that the VBA looks good, in addition I would like to have the contents in Column A as the name of extracted files.

Many thanks

**FDibbins** · 07-13-2017, 03:28 AM

Dhope888 welcome to the forum :0

1st, there is no need to report a thread just becuase you want an answer :0

2nd, Unfortunately your post does not comply with Rule 2 of our Forum RULES. Do not post a question in the thread of another member -- start your own thread.

If you feel an existing thread is particularly relevant to your need, provide a link to the other thread in your new thread.

Old threads are often only monitored by the original participants. New threads not only open you up to all possible participants again, they typically get faster response, too.