现将视图中的数据导出到Excel中代码,Domino代码库,德仔网

代码语言

代码分类

【Domino】现将视图中的数据导出到Excel中

作者:dezai / 发布于2014/7/25/ 861

简单方法：问题automation服务器不能创建对象解决办法：如果javascript脚本中报这个错误是因为IE的安全设置不允许运行未标记为安全的activeX控件更改IE的安全设置，把相应的选项打开即可。


	Sub Initialize
	Dim s As New NotesSession
	Dim curdoc As NotesDocument
	Dim curdb As NotesDatabase
	Dim vw As NotesView
	Dim doc As NotesDocument
	Dim et As NotesViewEntry
	Dim i
	i=3
	Set curdb=s.CurrentDatabase
	Set vw=curdb.GetView("UmSafetyInfo")
	Set doc=vw.GetFirstDocument
	'Dim x As Variant
	'tempstr=|@name([OU2];'|+curdoc.remote_user(0)+|')|
	'x=Evaluate(tempstr)
	'Msgbox x(0)
	Print |
	<script language=javascript>
	var xls = new ActiveXObject ( "Excel.Application" );
	//xls.visible = "false";
	var xlBook = xls.Workbooks.Add;
	var xlsheet = xlBook.Worksheets(1);
	xls.Cells.Select;
	xlsheet.Cells(2,1).Value="部门";
	xlsheet.Cells(2,2).Value="姓名";
	xlsheet.Cells(2,3).Value="分机";
	xlsheet.Cells(2,4).Value="移动电话";
	xlsheet.Cells(2,5).Value="手机小号";
	xlsheet.Cells(2,6).Value="电子邮件";
	xlsheet.Cells(2,7).Value="直拨电话";
	xlsheet.Rows(2).Font.Bold=1;
	xlsheet.Rows(2).Font.Name="宋体";
	xlsheet.Range("A1","G1").MergeCells = 1;
	xlsheet.Cells(1,1).Value="某某公司";
	xlsheet.Range("A1","A1").HorizontalAlignment = 3
	//xlsheet.Range("A2","G2").ColorIndex = 48
	xlsheet.Rows(1).Font.Bold=1;
	xlsheet.Rows(1).Font.Name="黑体";
	xlsheet.Rows(1).Font.Size=16;
	xlsheet.Rows(2).Font.Size=9;
	xlsheet.Columns(1).ColumnWidth = 25
	xlsheet.Columns(2).HorizontalAlignment=3
	xlsheet.Columns(3).HorizontalAlignment=3
	xlsheet.Columns(4).HorizontalAlignment=3
	xlsheet.Columns(4).ColumnWidth = 13.63
	xlsheet.Columns(5).HorizontalAlignment=3
	xlsheet.Columns(6).HorizontalAlignment=3
	xlsheet.Columns(6).ColumnWidth = 25
	xlsheet.Columns(7).HorizontalAlignment=3
	xlsheet.Columns(7).ColumnWidth = 13.63
	|

	Do While Not (doc Is Nothing)
	Print |xlsheet.Rows(|+i|).Font.Size=9;|
	Print |xlsheet.Cells(| +i+|,1).Value='|+"Mid(doc.department(0),1)"+|';|
	Print |xlsheet.Cells(| +i+|,2).Value='|+"doc.name(0)"+|';|
	Print |xlsheet.Cells(| +i+|,3).Value='|+"Cstr(doc.OfficeTelExt(0))"+|';|
	Print |xlsheet.Cells(| +i+|,4).Value='|+"Cstr(doc.Cellphone(0))"+|';|
	Print |xlsheet.Cells(| +i+|,5).Value='|+"Cstr(doc.CellphoneLittle(0))"+|';|
	Print |xlsheet.Cells(| +i+|,6).Value='|+"doc.Email(0)"+|';|
	Print |xlsheet.Cells(| +i+|,7).Value='|+"Cstr(doc.OfficeTel(0))"+|';|
	i=i+1
	Set doc=vw.GetNextDocument(doc)
	Loop
	Print |
	xlBook.SaveAs("c:\\通讯录.xls");
	xlBook.Close ();

	xls.Quit();
	xls=null;
	alert("已经保存在C盘 通讯录.xls文件中");
	Temp=window.location.href.toLowerCase();

	Temp=Temp.substring(0,Temp.lastIndexOf(".nsf")+5)+"UmSafetyInfo?openview";
	window.location=Temp;

	</script>
	|
	End Sub

评论列表

本站所提供的代码，版权归原作者所有，若有侵犯作者版权，请与我们联系，我们将立即删除或修改。谢谢!
本站所有代码发布及提供者。

试试其它关键字

　导出到Excel　

同语言下

可能有用的

dezai贡献的其它代码(1065)