生成excel时单元格内换行的问题
Dim session As New NotesSession
Dim doc As NotesDocument
Set doc = session.Documentcontext
Print |Content-Type:application/vnd.ms-excel|
Print |Content-Disposition:filename=|+doc.txCreate(0) '设置导出excel的文件名
Print |<meta charset=UTF-8">| 'UTF-8防止中文乱码
Print |<style>br{mso-data-placement:same-cell;}</style>| '表格内换行
用html生成excel,使用<br>标签换行,换行后会多生成一行表格,在<style></styel>标签中追加 CSS样式br {mso-data-placement:same-cell;}即可。
参考:http://nece001.blog.163.com/blog/static/85633602008979136966/
http://www.cnblogs.com/ainiaa/archive/2010/08/25/1808411.html