RDLC报表后台输出导出Excel或Word文件示例

Microsoft.Reporting.WinForms.Warning[] Warnings;  
string[] strStreamIds;  
string strMimeType;  
string strEncoding;  
string strFileNameExtension; 
 
byte[] bytes = this.rptViewer.LocalReport.Render("Excel", null, out strMimeType, out strEncoding, 
                                                 out strFileNameExtension, out strStreamIds, out Warnings); 
 
string strFilePath = @"D:\report.xls"; 
 
using (System.IO.FileStream fs = new FileStream(strFilePath, FileMode.Create))  
{  
	fs.Write(bytes, 0, bytes.Length);  
} 

		Dim Warnings As Microsoft.Reporting.WinForms.Warning()
        Dim strStreamIds As String()
        Dim strMimeType As String
        Dim strEncoding As String
        Dim strFileNameExtension As String
        Dim bytes As Byte() = Me.xReportViewer.LocalReport.Render("Excel", Nothing, strMimeType, strEncoding, strFileNameExtension, strStreamIds, Warnings)
        Dim strFilePath As String = "D:\report.xls"
        Using fs As New FileStream(strFilePath, FileMode.Create)
            fs.Write(bytes, 0, bytes.Length)
        End Using