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
news:lCQsb.767$...
> Jedi wrote:
>
> > When I export from Excel to static HTML
>
> That's your problem.
Similar Threads
