Question

我不是VBA和Lotus的专家，但我理解代码。但是在这里，我真的被封锁了：这个宏工作在2周前，没有我的更新，现在我有这个问题：

执行错误＆＃39; -2147417851（80010105）＆＃39; 自动化错误服务器抛出异常

这是我的代码：

Public Sub CleanGpmoAgenda()
Dim Session As Object
Dim Database As Object
Dim Doc As Object

Set Session = CreateObject("Notes.Notessession")
Set Database = Session.GETDATABASE("PARFMB104/SERVERS/GROUP", "mail\Mail3\PARITGGROCOO.nsf")

Dim Ligne As Integer
Ligne = 1

With ThisWorkbook.Sheets("Macro Utils")

    Do While .Cells(Ligne, 1) <> ""
         If CDate(.Cells(Ligne, 2)) >= DateSerial(Year(Now), Month(Now), Day(Now)) Then

            Set Doc = Database.GetDocumentByUnid(.Cells(Ligne, 1))
                Doc.Remove (True)

                .Cells(Ligne, 1) = ""
                .Cells(Ligne, 2) = ""

        End If
        Ligne = Ligne + 1
    Loop
End With

Set Session = Nothing
Set Database = Nothing
End Sub

.Cells（Ligne，1）的内容是文档的UnID .Cells（Ligne，2）的内容是日期

调试高亮显示一行＆＃34;设置Doc = Database.GetDocumentByUnid（.Cells（Ligne，1））＆＃34;而且我不知道为什么......

感谢您的帮助：）

自动化错误在VBA中使用Lotus数据库（服务器引发了异常）

0 个答案: