如何在b/s下导出成excel？

wintellzbh

Dim session As New NotesSession
        Dim db As NotesDatabase
        Dim view As Notesview
        Dim doc As Notesdocument
        Dim excelapplication As Variant
        Dim excelworkbook As Variant
        Dim excelsheet As Variant
        Dim i As Integer
        Dim uvcols As Integer
        Dim selection As Variant
        'path=session.GetEnvironmentString ("D:",True)
        'gzpath=path+"\"+"test.xls"
        Set excelapplication = CreateObject("Excel.Application")
        Msgbox "win"
        excelapplication.statusbar="正在创建工作表，请稍等....."
        excelapplication.Visible=True
。。。。。。。。。。
走到Set excelapplication = CreateObject("Excel.Application")，系统提示operation is disallowed in this session
客户端运行此代码，正常！
请问如何解决呢？

wintellzbh

刚才用vbscript写内置脚本，可以打开excel，但现在问题是，我写如excel的数据是必须用后台代理lostusscript读取的，现在不知道如何从代理得到的数据传入excel。该数据的个数不是固定的。

cccoa

up

Dragon_1

-------------------------------------------------------------------------
Set excelApplication = CreateObject("Excel.Application")
        excelApplication.Visible = False       
        '找到excel的位置
        datapath = session.getenvironmentstring("directory",True)
        gzpath=datapath+"\domino\html\xac\modle\"+"Yes.xls"
       
               
        Set excelWorkbook = excelApplication.Workbooks.Open( gzpath )
        Set excelSheet = excelWorkbook.Worksheets("Sheet1")
        i = 1
        '生成Excel表头
        excelSheet.Cells(i,1).Value = ""
------------------------------------------------               

kingchang

js Activex控件，有点危险，但是不错，要是服务器操作系统不支持Excel，这些代码就什么都不是了！