服务器代理未保存Excel文件

我无法使用下面的代码将Excel工作簿保存在具有预定代理的服务器上，但是在本地运行时可以使用.

I am unable to save an Excel workbook using the code below on a server with a scheduled agent but it works on when I run it locally.

我得到的错误是:

代理管理器:代理消息:初始化:-错误#213-Microsoft Excel:工作簿类的SaveAs方法在@第37行失败

我们在Windows Server 2012上安装了Excel2016.Domino服务器版本为8.5.3 FP6

We have Excel 2016 installed on Windows Server 2012. Domino Server version is 8.5.3 FP6

代码使用:

Declarations
Dim xlApp As Variant, xlsheet As Variant, rows As Integer, cols As Integer, xlWorkBk As Variant
Dim SheetRows() As Integer  'the bound for sheetRows is the same as the sheetNukmber
Sub Initialize
        On Error GoTo ErrorTrap
        Dim st As String, aname As String, sname As String

        st = CStr(GetThreadInfo(1)) + ":  "
        Dim sess As New NotesSession ,db As NotesDatabase
        Dim agent As NotesAgent
        Dim v As NotesView, vString As String, strMsg As String
        Dim dc As NotesDocumentCollection
        Dim doc As NotesDocument, maxcols As Integer
        Dim a As Integer, range As String 
        Dim mgrList() As String, mgrTotal() As Currency
        Dim  x As Integer, mgrPcntg() As Double'GET SERVER NAME (COMMON)

        Set db = sess.CurrentDatabase   'link to current database
        If InStr(db.server,"/") Then
            sName = Left(db.Server,InStr(db.server,"/")-1)
        Else
            sName = db.server
        End If
        'GET AGENT NAME (COMMON)
        Set agent = sess.currentAgent
        If InStr(agent.name,"|") Then
            aName = Left(agent.name,InStr(agent.name,"|")-1)
        Else
            aName = agent.Name
        End If

        Set xlApp = CreateObject("Excel.Application")  'start Excel with OLE Automation
        xlApp.Visible = False
        xlApp.Workbooks.Add
    '- - - - - - Adding data from Notes here - - - - -
    '- - - - - - formatting worksheet - - - - - -

    '- - - - - - I Get Error 213 at Next Line - - - - - -
    'INITIALIZE:   - Error #213 - Microsoft Excel: SaveAs method of Workbook Class failed @ Line #37
        Call xlApp.ActiveWorkbook.SaveAs("C:\Temp\MikesTest.xlsx", 51) ',51)
        xlApp.Quit
        GoTo EndOfCode
ERRORTRAP:
        strMsg =  st +  " - Error #" & Err & " - " & Error$ & " @ line #" & Erl
        MsgBox strMsg
        xlApp.quit
        Exit Sub
ENDOFCODE:

End Sub

已检查代理签名者的权限，并且允许.已检查文件夹限制，没有限制.在Internet上搜索了数小时，但未成功找到解决方案.尝试过 xlApp.ActiveWorkbook.SaveAs("C:\ Temp \ MikesTest.xlsx")和相同的问题.

Checked permissions of agent signer and it is allowed. Checked file folder restrictions and there is none. Searched Internet for hours with no success in finding solution. Tried xlApp.ActiveWorkbook.SaveAs("C:\Temp\MikesTest.xlsx") and same issue.