问题描述
求助高手，写了一个代理，统计并输出数据到excel中，手工运行代理，输出数据成功；自动运行代理则不输出excel。SubInitialize'------------------------------------------------------'function:thisagentrunonceaday,inordetoexportdatatoTS2'------------------------------------------------------OnErrorGotocatchDimsessionAsNewNotesSessionDimdbAsnotesdatabaseSetdb=session.CurrentDatabaseDimproAsNotesDocumentSetpro=db.GetProfileDocument("Profile")Ifpro.days(0)="2"Orpro.days(0)="1"ThenExitSubEndIfDimlocationAsStringDimuserNameAsStringDimpassWordAsStringlocation=pro.Location(0)userName=pro.UserName(0)passWord=pro.PassWord(0)DimyyAsVariantyy=Split(pro.Location(0),"")IfNotpro.UserName(0)=""ThenDimstrComAsStringDimresultAsIntegerstrCom="netuse\"+yy(2)+""+passWord+"/user:"+userNameresult=Shell(strCom,1)EndIfCallRealtimeExport(location,pro)CallstatisticExport(location,pro)ExitSubcatch:Print"export:ln_"&Erl()&""&Error()&""ExitSubEndSub请高手给予帮助！谢谢！
解决方案
解决方案二：
补充：这个代理是运行在一个Domino服务器上的，统计这个服务器上DB的信息，并以Excel的形式输出到另一个机器上。请高手指点！
解决方案三：
再次请求高手帮助！
解决方案四：
CallRealtimeExport(location,pro)CallstatisticExport(location,pro)这两个函数都是干嘛的啊？是调用操作系统的excel控件创建excel文档吗？如果是，那么手动运行的时候是调动当前机器的excel控件，自动运行的时候调用Domino服务器的excel控件，所以，自动运行的时候需要确认Domino服务器安装了excel。。如果不是上面说的原因。。就不好说了。不清楚你这两个函数怎么写的啊？
解决方案五：
向“ppmmjjyy”致谢！CallRealtimeExport(location,pro)CallstatisticExport(location,pro)这两个函数确实是调用操作系统的excel控件创建excel文档SubstatisticExport(directoryAsString,NewDocAsNotesDocument)'----------------------------------------------------------'exportfile"RatioinDept""Ratioindetails""RatioinMachineType"'----------------------------------------------------------DimsessionAsNewNotesSessionDimdbAsnotesdatabaseSetdb=session.CurrentDatabaseDimviewAsNotesViewDimdocAsNotesDocumentDimproAsNotesDocumentSetpro=db.GetProfileDocument("Profile")DimdocsAsNotesDocumentCollectionDimcurrentDocAsNotesDocumentDimdept()AsStringDimiAsIntegerDimlocationAsStringDimtable6(0To1)AsStringlocation=directorySetcurrentDoc=NewDocDimview6AsNotesViewSetview6=db.GetView("MachineCountViewForTS2")Dimdoc6AsNotesDocumentSetdoc6=view6.GetFirstDocumentDimdepartmentIndex(0To10)AsInteger'Dimdepart(0To10)AsStringfileName6=location+"Ratioindetails"+Format(Today,"yyyy-mm-dd")+".csv"exportfile6=fileName6Dimexport6AsIntegerexport6=FreefileOpenexportfile6ForOutputAsexport6。。。。。。。。。
解决方案六：
手动执行的时候是调用你本机的环境，自动运行的时候是调用服务器上的环境。检查一下你服务器上的环境。比如生成Excel，你的服务器上应当有Excel才行呀。
解决方案七：
你的服务器里必须安装Excel才行。
解决方案八：
你还需要考虑权限的问题，在服务器自动运行是以代理的最后修改者身份运行，手动运行是以运行者的身份运行
解决方案九：
學習,支持.
解决方案十：
mark...
解决方案十一：
你要看你服务器上有没有excel环境啊，手动运行是本机的，自动运行是在服务器上，别忘了管理员签名
解决方案十二：
应该是BS的吧。所有代理是运行在服务上面的。
解决方案十三：
要保证你的服务器系统是windows的才行，在windows下的写法和unix下是不一样的
解决方案十四：
服务器上需excel环境
解决方案十五：
了解