tempLinkStr=Replace(tempVar(0),"<br>","<br style='mso-data-placement:same-cell;'/>")
Print {contentType:application/vnd.ms-excel}
Print {Content-disposition:attachment; filename=}+Replace(Replace(Replace(Format(Now,"yyyy-MM-dd hh:mm:ss"),"-",""),":","")," ","")+{.xls}
Print htmlStr