All i have already experienced with exporting html from office give in the

best case aproximate results. In worth cases, html page is unreadable. I

didn't find any built in solution. So i wrote a macro code like the

following.

This will give you a nice dressed and well aligned web page with ALL text in

it. You can safely change all parameters.

For example, if you want to see Excel grid, change border=0 to border=1,

etc...





public sub PublieHtml()

Dim HTML As Integer

Dim i as Long, j as Long

HTML = FreeFile

Open ActiveSheet.Name & ".html" For Output As HTML

Print #HTML, "<html"

Print #HTML, "<head"

Print #HTML, " <title";ActiveSheet.Name;"</title"

Print #HTML, "</head"

Print #HTML, "<body"

Print #HTML, " <P<TABLE cellSpacing=1 cellPadding=1 border=0"

For j=1 to UsedRange.Rows.Count

Print #HTML, " <TR"

For i=1 to UsedRange.Columns.count

print #HTML, " <TD" ; Cells(j,i).Text ; "</TD"

Next i

Print #HTML, " </TR"

Next j

Print #HTML, " </TABLE</P"

Print #HTML, "</body"

Print #HTML, "</html"

Close #HTML

End Sub

"Leif K-Brooks" a écrit dans le message de
...
Jedi wrote:

When I export from Excel to static HTML

That's your problem.