视图数据导入excel解决方法
发布时间:2010-06-13 13:47:17 文章来源:www.iduyao.cn 采编人员:星星草
视图数据导入excel
如何把不同的视图数据导入excel
excel的格式有很多种
用控制excel行和列的方法,请大家指教
------解决方案--------------------
CSDN的.NET论坛,给你一段代码做参考吧。这个是B/S中经常用到的。
Sub Initialize
On Error Goto errmsg
Print |Content-Type:application/vnd.ms-excel;charset=GBK|
Print |<meta http-equiv="Content-Type" content="text/html; charset=GBK">|
Dim s As New notessession
Dim doc As NotesDocument
Dim db As NotesDatabase
Dim view As NotesView
Dim htmlstr As String
Set db = s.CurrentDatabase
Set view = db.GetView("Notes_GroupPersonList")
htmlstr = htmlstr & "<table border=1>"
htmlstr = htmlstr &"<tr>"
htmlstr = htmlstr &"<td colspan='8' align='center'><b>"+DateStr$+"********************"+"</b></td>"
htmlstr = htmlstr &"</tr>"
htmlstr = htmlstr & "<tr>"
htmlstr = htmlstr & "<td width='8%' height='19' align='center' bgcolor='#666666'><b><font size='2' color='#ffffff'>*******</font></b></td>"
htmlstr = htmlstr & "<td width='8%' height='19' align='center' bgcolor='#666666'><b><font size='2' color='#ffffff'>*******</font></b></td>"
htmlstr = htmlstr & "<td width='15%' height='19' align='center' bgcolor='#666666'><b><font size='2' color='#ffffff'>*******</font></b></td>"
htmlstr = htmlstr & "<td width='10%' height='19' align='center' bgcolor='#666666'><b><font size='2' color='#ffffff'>*******</font></b></td>"
htmlstr = htmlstr & "<td width='15%' height='19' align='center' bgcolor='#666666'><b><font size='2' color='#ffffff'>*******</font></b></td>"
htmlstr = htmlstr & "<td width='15%' height='19' align='center' bgcolor='#666666'><b><font size='2' color='#ffffff'>*******</font></b></td>"
htmlstr = htmlstr & "<td width='30%' height='19' align='center' bgcolor='#666666'><b><font size='2' color='#ffffff'>Skype</font></b></td>"
htmlstr = htmlstr & "<td width='30%' height='19' align='center' bgcolor='#666666'><b><font size='2' color='#ffffff'>*******</font></b></td>"
htmlstr = htmlstr & "<td width='30%' height='19' align='center' bgcolor='#666666'><b><font size='2' color='#ffffff'>*******</font></b></td>"
htmlstr = htmlstr & "</tr>"
Set doc = view.GetFirstDocument
While Not(doc Is Nothing)
htmlstr = htmlstr+ "<tr>"
htmlstr = htmlstr+ "<td height='19' align='center' bgcolor='#ffffff'><font size='2' color='#000000'>"+doc.CName(0)+"</font></td>"
htmlstr = htmlstr+ "<td height='19' align='center' bgcolor='#ffffff'><font size='2' color='#000000'>"+doc.CompanyName(0)+"</font></td>"
htmlstr = htmlstr+ "<td height='19' align='center' bgcolor='#ffffff'><font size='2' color='#000000'>"+doc.WorkSummary(0)+"</font></td>"
htmlstr = htmlstr+ "<td height='19' align='center' bgcolor='#ffffff'><font size='2' color='#000000'>"+doc.Phone(0)+"</font></td>"
htmlstr = htmlstr+ "<td height='19' align='center' bgcolor='#ffffff'><font size='2' color='#000000'>"+doc.Mobile(0)+"</font></td>"
友情提示:
信息收集于互联网,如果您发现错误或造成侵权,请及时通知本站更正或删除,具体联系方式见页面底部联系我们,谢谢。
其他相似内容:
-
问各位初学lotus notes开发看什么书
问各位初学lotus notes开发看什么书,如果有共享的话就谢谢大家了
------解决方案-----------...
-
简单的语法,请大侠看看!!
我是刚入门的菜鸟,我想添加我在视图中选择多个IP地址,并把它们放到address这个域当中,如果我用@PickList这个...
-
如何屏蔽或隐藏notes文件菜单中的引出按钮?
出于安全考虑,要隐藏引出按钮?
------解决方案--------------------
CS的话可以修...
-
c/s下如何封CTRL+C CTRL+V?
谢谢!
------解决方案--------------------
给数据库acl加权限,禁止复制...
-
domino 可以改变域的容量吗?
domino 可以改变域的容量吗?32kb改成更大一点的
------解决方案--------------------
普通域大小不...
-
Domino用户重复的问题 请大侠们指教~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
各位好 目前遇到如下问题
A服务器是主...
-
用js 怎样截取字符串?
var str="C:\Documents and Settings\dell\桌面\guanxi4.bmp"
我只需要 guanxi4.bmp 用js 怎样...
-
domino 自动编号
设计重1开始编号,依次不重复的,有好的建议吗?
------解决方案--------------------
再看以前发的一个帖子,对你有...
-
请高手进来看看:表单提交报错。
表单提交的时候报错:HTTP Web Server: Item value exceeds maximum allowable size. [/oadata/ccc....
-
Lotus Notes 8.5 发邮件时错误提示 failed to authenticate
如标题。
只有一个账户,点发邮件的时候有这样的错误提示,其他账户都正...