全部显示

SaveReport 方法

将指定报表保存到用户计算机上的 HTML 文件中。

expression  必选。返回“应用于”列表中的对象之一的表达式。

reportviewModeEx  必选。FpWebViewModeEx 常数。代表要保存的报表类型。

DestinationUrl  必选。String 类型。代表报表的目标文件名。

Title  必选。String 类型。代表新报表的标题。

ForceOverwrite  可选。Boolean 类型。表明以前创建的任何同名报表是否会被新报表覆盖。如果为 True，则报表将被覆盖。如果为 False，则报表不会覆盖。默认值是 True。

示例

下列示例将当前站点中所有文件的报表保存到用户本地计算机上名为 Report1.htm 的文件中。该报表将覆盖 \Reports 目录中任何名为 Report1.htm 的现有报告。

Sub ReportSave()
'Saves a specified report to a specified location.

    Dim objApp As FrontPage.Application
    Dim objWebwdw As WebWindowEx

    Set objApp = FrontPage.Application
    Set objWebwdw = objApp.ActiveWebWindow
    'Save the report
    objWebwdw.SaveReport reportviewModeEx:=fpWebViewExAllFiles, _
                         Title:="Current Project Progress", _
                         DestinationURL:="C:\NewProject\Reports\Report1.htm", _
                         ForceOverwrite:=True

End Sub