Метод Reports.Copy (Project)

Статья
04/07/2023

Копирует пользовательский отчет и создает новый отчет с тем же содержимым.

Синтаксис

expression. Copy (Source, NewName)

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

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Source	Обязательный	Variant	Имя или объект Report для копирования отчета.
Newname	Обязательный	String	Имя нового отчета.
Source	Обязательный	Variant
Newname	Обязательный	String

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

Report

Новый отчет.

Пример

Макрос CopyAReport проверяет, существует ли указанный отчет для копирования, а также проверяет, существует ли новый отчет. Затем макрос использует один из вариантов параметра Source для создания копии отчета, а затем отображает новый отчет.

Sub CopyAReport()
    Dim reportName As String
    Dim newReportName As String
    Dim newExists As Boolean
    Dim oldExists As Boolean
    Dim report2Copy As Report
    Dim newReport As Report
    
    reportName = "Table Tests"
    newReportName = "New Table Tests"
    oldExists = ActiveProject.Reports.IsPresent(reportName)
    newExists = ActiveProject.Reports.IsPresent(newReportName)
    
    Debug.Print "oldExists " & CStr(oldExists) & "; newExists " & newExists
    
    If oldExists And Not newExists Then
        Set report2Copy = ActiveProject.Reports(reportName)
        
        ' Use either of the following two statements.
        'Set newReport = ActiveProject.Reports.Copy(report2Copy, newReportName)
        Set newReport = ActiveProject.Reports.Copy(reportName, newReportName)
       
        newReport.Apply
    End If
    
    If (oldExists = False) Then
         MsgBox Prompt:="The requested report to copy, '" & reportName _
            & "', does not exist.", Title:="Report copy error"
    ElseIf newExists Then
        MsgBox Prompt:="The new report '" & newReportName _
            & "' already exists.", Title:="Report copy error"
    Else
        MsgBox Prompt:="The new report '" & newReportName & "'" _
            & vbCrLf & "is copied from '" & reportName & "'.", _
            Title:="Report copy success"
    End If
End Sub

См. также

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

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

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

Поделиться через