asked on

How can I custom format an html page that has been exported from a VB6 msflexgrid?

I found the following code (below) here on EE that allows me to send msflexgrid data to an html page. The code works fine in my VB6 program.....

Question:
How can I custom format the html so that I can show gridlines, customize backcolor, change font color etc.

Public Sub gridToHtml()
Dim iFree As Long
iFree = FreeFile
Open "report.html" For Output As #iFree
Print #iFree, "<html><head></head><body><table>"
With MSFlexGrid1
For I = 0 To .Rows - 1
Print #iFree, "<tr>"
For J = 0 To .Cols - 1
Print #iFree, "<td>" & .TextMatrix(I, J) & "</td>"
Next
Print #iFree, "</tr>"
Next
Print #iFree, "</table></body><html>"
Close #iFree
End With
End Sub

ASKER CERTIFIED SOLUTION

d3n

membership

This solution is only available to members.

To access this solution, you must be a member of Experts Exchange.

Start Free Trial

jazjef

ASKER

any other suggestions?..... I am having a difficult time formatting the data this way. The html seems to be buggy when used this way. How does one integrate CSS?

d3n

You can integrate CSS inline or with a separate .css file

In header section of your HTML, link to the .css file, you'll get something like this:

Print #iFree, "<html><head><link rel="stylesheet" href="stylesheet.css" type="text/css"></head><body><table>"

Open in new window

you can place a reference to the appropriate class in each html-tag like this:

Print #iFree, "<td class=TableCell>" & .TextMatrix(I, J) & "</td>"

Open in new window

Your CSS file will look like this:

.TableCell
{
	color: #FFFFFF;
	background-color:#000000;
}

Open in new window

jazjef

ASKER

Thanks d3n... I was able to learn how to create a nice basic html report with your code from your first post; I can see how the style sheet thing would probably be better----but I think I'll make that a separate question in the near future.