Проблема с Workbook.Close VBA

Question

У меня есть сценарий VBA, который работает с PowerPoint и Excel. Он работал нормально около года, но теперь он начал выдавать ошибку, когда дело доходит до закрытия книги.

Теперь он выдает Runtime error 1004. Method "Close" of object "Workbook" is failed.

Вот мой код:

Sub diagrammeins(seite As Integer, name As String, statement As String)
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim aktuellermonat, vormonat As String
Dim wert1, wert2 As Double
Set conn = New ADODB.Connection
conn.Open "DRIVER={PostgreSQL UNICODE(x64)}" _
& ";SERVER=" & server_name() _
& ";DATABASE=" & database_name() _
& ";UID=" & user_id() _
& ";PWD=" & password() _
& ";OPTION=3" '
Set rs = New ADODB.Recordset
rs.Open statement, conn, adOpenStatic
vormonat = get_date(rs.Fields(0))
wert1 = rs.Fields(1)
rs.MoveNext
aktuellermonat = get_date(rs.Fields(0))
wert2 = rs.Fields(1)
rs.Close
Set rs = Nothing
ActivePresentation.Slides(seite).Shapes(name).Chart.ChartData.Activate
With ActivePresentation.Slides(seite).Shapes(name).Chart.ChartData.Workbook.Worksheets(1)
'Werte anpassen
.Range("A2").Value = vormonat
.Range("A3").Value = aktuellermonat
.Range("B2").Value = wert1
.Range("B3").Value = wert2
End With
ActivePresentation.Slides(seite).Shapes(name).Chart.ChartData.Workbook.Close

'Werteachse anpassen
conn.Close
End Sub

Есть идеи, почему это происходит?