phpldapadmin扩展用户列表产生错误

Question

在登录ldapphpadmin后点击用户旁边的+符号时出现错误

Option Explicit
Private Sub Main()
    Dim wb1 As Workbook, ws1 As Worksheet, rng1 As Range
    Dim wb2 As Workbook, ws2 As Worksheet, rng2 As Range
    Dim wsDest As Worksheet, fileID As Variant, emptyCol As Long
    Dim lastCol As Long, lastCol1 As Long, lastCol2 As Long
    Set wb2 = ThisWorkbook
    fileID = Application.GetOpenFilename
    If fileID <> False Then
        Set wb1 = Workbooks.Open(fileID)
        Set ws1 = wb1.Sheets("Sheet1")
        Set ws2 = wb2.Sheets("Sheet1")
        Set wsDest = ws2
        'Last column containing data
        lastCol = wsDest.Cells(1, wsDest.Columns.Count).End(xlToLeft).Column
        If lastCol > 1 Then emptyCol = lastCol + 1
        'Create the list with rows titles
        lastCol1 = ws1.Cells(1, ws1.Columns.Count).End(xlToLeft).Column
        lastCol2 = ws2.Cells(1, ws2.Columns.Count).End(xlToLeft).Column + 1
        Set rng1 = ws1.Range(ws1.Cells(1, 1), ws1.Cells(1, lastCol1))
        Set rng2 = ws2.Range(ws2.Cells(1, lastCol2), ws2.Cells(lastCol1, lastCol2))
        rng2.Value2 = Application.Transpose(rng1)
        With ws2.Range("E14").Validation
            .Delete
            .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
                Operator:=xlBetween, Formula1:="=" & rng2.Address
            .IgnoreBlank = True
            .InCellDropdown = True
            .InputTitle = "LIST"
            .ErrorTitle = ""
            .InputMessage = ""
            .ErrorMessage = ""
            .ShowInput = True
            .ShowError = True
        End With
    End If
End Sub

生成

，并在日志中生成错误

There was a problem with the request

我已更新PHP Fatal error: Allowed memory size of 33554432 bytes exhausted (tried to allocate 1024001 bytes) in /usr/share/phpldapadmin/lib/AJAXTree.php on line 100 并重新启动了apache服务，但错误仍然存​​在。

有什么想法吗？