问题描述
怎么样实现“导出到excel”按钮的功能实现？
解决方案
解决方案二：
自己写个VBA就可以了。我给你个一段例子代码。这是我现在在用的，挺好的。SubInitializeDimwksAsNewNotesUIWorkspaceDimuidocAsNotesUIDocumentDimdbAsNotesDatabaseDimdcAsNotesDocumentCollectionDimdocAsNotesDocumentDimexcelApplicationAsVariantDimexcelWorkbookAsVariantDimexcelSheetAsVariantDimdocNumAsIntegerDimlinesAsIntegerDimnstrAsStringSetexcelApplication=CreateObject("Excel.Application")excelApplication.Visible=TrueSetexcelWorkbook=excelApplication.Workbooks.AddSetexcelSheet=excelWorkbook.Worksheets("Sheet1")excelSheet.Cells(1,1).Value="部门"excelSheet.Cells(1,2).Value="请假日期"excelSheet.Cells(1,3).Value="请假人"excelSheet.Cells(1,4).Value="请假天数"excelSheet.Cells(1,5).Value="请假类别"excelSheet.Cells(1,6).Value="文档状态"lines=2Setuidoc=wks.CurrentDocumentSetdb=wks.CurrentDatabase.DatabaseSetdc=db.UnprocessedDocumentsSetdoc=dc.GetFirstDocumentWhileNotdocIsNothingexcelSheet.Cells(lines,1).Value=doc.GetItemValue("applybm")(0)excelSheet.Cells(lines,2).Value=doc.GetItemValue("staDate")(0)excelSheet.Cells(lines,3).Value=doc.GetItemValue("applyname")(0)excelSheet.Cells(lines,4).Value=doc.GetItemValue("atd")(0)excelSheet.Cells(lines,5).Value=doc.GetItemValue("applyfall")(0)excelSheet.Cells(lines,6).Value=doc.GetItemValue("Status")(0)lines=lines+1Setdoc=dc.GetNextDocument(doc)WendEndSub
解决方案三：
不错，又是一个思路，考下来看看怎样
解决方案四：
BS的话：functiongetee(TBId){vardivAle=document.createElement("div");divAle.innerText="正在处理数据...";divAle.position="absolute";divAle.style.top="100";divAle.style.left="100";document.body.appendChild(divAle);varoXL=newActiveXObject("Excel.Application");oXL.Visible=true;varoWB=oXL.Workbooks.Add();varoSheet=oWB.ActiveSheet;varsel=document.body.createTextRange();sel.moveToElementText(TBId);sel.select();sel.execCommand("Copy");oSheet.Paste();document.body.removeChild(divAle)//document.all.contents.value=document.getElementById("hzbA4").innerHTML;//document.all.btnSave.click();alert("导出成功。");location.href=location.href;}
解决方案五：
访问视图得到的XML文件，也可以变变的。
解决方案六：
在代理中输入如下代码，在web上用一个按钮调用这个代理。在关系型数据库中导了10m的excel数据还是比较快的。最关键的是Print|Content-Type:application/vnd.ms-excel|Print|Content-Disposition:Attachment;charset="|&encoding&|";filename=|&fileNamePrint|<HTML><HEAD><METAhttp-equiv=Content-Typecontent="text/html;charset=|&encoding&|"></HEAD><Body>|这两句代码------------------------------------------------------------------------'设置导出文件的类型为excel文档DimfileNameAsStringDimencodingAsStringfileName=docCGI.F_start_time(0)+"To"+docCGI.F_end_time(0)+".xls"encoding="UTF-8"Print|Content-Type:application/vnd.ms-excel|Print|Content-Disposition:Attachment;charset="|&encoding&|";filename=|&fileNamePrint|<HTML><HEAD><METAhttp-equiv=Content-Typecontent="text/html;charset=|&encoding&|"></HEAD><Body>|DimhtmlStrAsStringhtmlStr=htmlStr+|<tablealign=centerwidth=100%style="font-size:12px">|htmlStr=htmlStr+|<trbgcolor=#cccccc>|htmlStr=htmlStr+|<td>编 号</td>|htmlStr=htmlStr+|<td>机器编号</td>|htmlStr=htmlStr+|<td>产品类型</td>|htmlStr=htmlStr+|<td>产品型号</td>|htmlStr=htmlStr+|</tr>|print|htmlStr|Print|</table></BODY>|
解决方案七：
这些代码不知道怎么用!!直接写按钮的lotusscript里面吗,这样的话在BS下按钮不见了.@Command([ToolsRunMacro];"WWW")这样的话也不行...郁闷,各位能不能指点下.多谢
解决方案八：
把ming123e的代码写到你的那个功能表单的WebQuerySave事件的代理里就可以了。
解决方案九：
一个简单的测试代理:SubInitialize'定义界面工作空间DimworkspaceAsNewNotesUIWorkspace'弹出一个确认对话框Callworkspace.Prompt(PROMPT_OK,"SayHello","Hello")EndSub-------------怎么只能在CS下使用,BS下点击按钮无法显示网页呢?BS下要如何处理呢?谢谢
解决方案十：
引用3楼fanshenglove的回复:
BS的话：functiongetee(TBId){vardivAle=document.createElement("div");divAle.innerText="正在处理数据...";divAle.position="absolute";divAle.style.top="100";divAle.style.left="100";document.body.appe……
-------------兄台的这个js可以用,能不能做到控制excel的列宽呢?这个导入excel后很窄...
解决方案十一：
javascript有没有函数可以控制excel列宽的？