请问如何将ActiveReport2.0的报表做为邮件(或附件)发送?在线,急!!!(可另加分)

Question

你发送给对方要求是什么格式的?
rpx/word/excel/pdf?

Answer 1

ActiveReport2.0 有导出功能啊,我想你可以利用它导出到一个临时文件如:temp.xls 然后当一个普通文件做为附件发送吧.这方面的资料很多的啦.Private Sub SaveAS()
    On Error GoTo ErrHandler
    With cdSaveAS
        .DialogTitle = "另存为Excel 文档/或PDF格式文档"
        .CancelError = True
        .Filter = "Excel文件 (*.xls)|*.xls|PDF文件 (*.pdf)|*.pdf"
        .FileName = "未命名"
        .ShowSave
    End With
    If UCase(Right(cdSaveAS.FileName, 3)) = "XLS" Then      '//Excel 文档
        Dim OExcel As ActiveReportsExcelExport.ARExportExcel
        Set OExcel = New ActiveReportsExcelExport.ARExportExcel
        OExcel.FileName = cdSaveAS.FileName
        OExcel.AutoRowHeight = True
        OExcel.Export ARView.Pages
    Else        '//PDF文档
        Dim OPDF As ActiveReportsPDFExport.ARExportPDF
        Set OPDF = New ActiveReportsPDFExport.ARExportPDF
        OPDF.FileName = cdSaveAS.FileName
        OPDF.AcrobatVersion = DDACR40
        OPDF.Export ARView.Pages
    End If
    
    MsgBox "已经成功保存到文件：" & cdSaveAS.FileName
   Exit Sub

Answer 2

贴漏了:Private Sub SaveAS()
    On Error GoTo ErrHandler
    With cdSaveAS
        .DialogTitle = "另存为Excel 文档/或PDF格式文档"
        .CancelError = True
        .Filter = "Excel文件 (*.xls)|*.xls|PDF文件 (*.pdf)|*.pdf"
        .FileName = "未命名"
        .ShowSave
    End With
    If UCase(Right(cdSaveAS.FileName, 3)) = "XLS" Then      '//Excel 文档
        Dim OExcel As ActiveReportsExcelExport.ARExportExcel
        Set OExcel = New ActiveReportsExcelExport.ARExportExcel
        OExcel.FileName = cdSaveAS.FileName
        OExcel.AutoRowHeight = True
        OExcel.Export ARView.Pages
    Else        '//PDF文档
        Dim OPDF As ActiveReportsPDFExport.ARExportPDF
        Set OPDF = New ActiveReportsPDFExport.ARExportPDF
        OPDF.FileName = cdSaveAS.FileName
        OPDF.AcrobatVersion = DDACR40
        OPDF.Export ARView.Pages
    End If
    
    MsgBox "已经成功保存到文件：" & cdSaveAS.FileName
   Exit Sub
ErrHandler:
   ' MsgBox "选择了取消"
End Sub

Answer 3

如果对方也有VB的话，你可以将Actrpt.dll 和 文件名.* 一起发送过去嘛