我最近遇到的瓶頸是無法在web匯出Excel
在網頁呼叫這支Agent完全沒有作用, 但是client是ok的
我的程式碼
Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Set db=session.currentDatabase
Dim doc As NotesDocument
Set doc = session.DocumentContext

'Starting export to excel file
Dim savefile As String
savefile ="C:\test.xls"
Dim xlapp As Variant
Set xlapp = createObject("excel.application")
xlapp.visible =False
Dim xlwk As Variant
Set xlwk = xlapp.workbooks.add
Dim xlwsa As Variant
Set xlws1 = xlwk.worksheets("sheet1")

xlwk.SaveAs(savefile)
xlapp.workbooks.close
xlapp.quit
End Sub

不知道您能否提供寶貴的意見
謝謝