Hi,
I have to export a straight table via macro to send it by email.
I have the following code that works nice, but it is very very slow on client's web-browser ( except on server web-browser that is fast). So, I need to figure out a different way to accomplish that. So if anyone has some ideia i will appreciate. I really need this.
thanks in advance.
cc
Here my current code:
Sub ReadTabelAndSendEmail
html = "<table>"
set obj = ActiveDocument.GetSheetObject( "CH629" )
for r = 0 to obj.GetRowCount-1
html = html & "<tr>"
html = html & "<td>" & obj.GetCell(r,0).Text & "</td>"
html = html & "<td>" & obj.GetCell(r,1).Text & "</td>"
html = html & "<td>" & obj.GetCell(r,2).Text & "</td>"
html = html & "<td>" & obj.GetCell(r,3).Text & "</td>"
html = html & "<td>" & obj.GetCell(r,4).Text & "</td>"
html = html & "</tr>"
next
html = html & "</table>"
sendEmail(html) ' I have a function that then send this table by email (input parameter as string)
End Sub