Метод Report.Delete (Project)

Удаляет отчет.

Синтаксис

expression. Удалить

выражение Переменная, представляющая объект Report.

Возвращаемое значение

Nothing

Пример

В следующем примере определяется, существует ли отчет с именем Report 1 , и если да, он удаляется. Если отчет активен, перед удалением измените его на другое представление; В противном случае в Project отображается ошибка времени выполнения 1004: таблица "Отчет 1" используется и не может быть скопирована или удалена.

Sub DeleteAReport()
    Dim reportName As String
    
    reportName = "Report 1"
    
    If ActiveProject.Reports.IsPresent(reportName) Then
        ' To delete the active report, change to another view.
        ViewApplyEx Name:="&Gantt Chart"
        
        ActiveProject.Reports(reportName).Delete
    Else
        MsgBox Prompt:="No report name: " & reportName, Title:="Report delete error"
    End If
End Sub

См. также

Объект отчета

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.