vb.net 水晶报表 导出Excel

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

Try

p_strNendo = Session("p_strNendo")
'ﾌｫｰﾑ･CrystalReportViewerのｻｲｽﾞを設定
'crvShiwakecho.Height = Common_AppSet.g_intHRptViewerHeight
'crvShiwakecho.Width = Common_AppSet.g_intHRptViewerWidth

'ﾚﾎﾟｰﾄﾋﾞｭｰｱに表示
Dim objDtbl As DataTable = Session("dsShiwakecho").Tables("dt21_Shiwakecho")
Dim objCR As ReportDocument = New ReportDocument()
objCR.Load(Common_AppSet.g_strReportTemplate & "rpt21_Shiwakecho.rpt")
objCR.SetDataSource(objDtbl)
'crvShiwakecho.ToolPanelView = ToolPanelViewType.None
crvShiwakecho.ReportSource = objCR


'ﾊﾟﾗﾒｰﾀﾌｨｰﾙﾄﾞに値を設定
Dim pfFields As New CrystalDecisions.Shared.ParameterFields
Dim pfNendo As New CrystalDecisions.Shared.ParameterField
Dim pvNendo As New CrystalDecisions.Shared.ParameterDiscreteValue
pfNendo.ParameterFieldName = "prmNendo"
pvNendo.Value = p_strNendo
pfNendo.CurrentValues.Add(pvNendo)
pfFields.Add(pfNendo)
crvShiwakecho.ParameterFieldInfo = pfFields



Dim opts As CrystalDecisions.Shared.DiskFileDestinationOptions = New CrystalDecisions.Shared.DiskFileDestinationOptions()
opts.DiskFileName = "C:\PPPWebLoader\234.xls"
Dim myExportOptions As CrystalDecisions.Shared.ExportOptions = objCR.ExportOptions
myExportOptions.DestinationOptions = opts
myExportOptions.ExportDestinationType = CrystalDecisions.Shared.ExportDestinationType.DiskFile
Response.ContentType = "application/vnd.ms-excel"
myExportOptions.ExportFormatType = CrystalDecisions.Shared.ExportFormatType.Excel

For i As Integer = 0 To pfFields.Count - 1
objCR.SetParameterValue(pfFields.Item(i).Name,pfFields.Item(i).CurrentValues)
Next



objCR.Export()
Response.End()

Catch ex As Exception
Throw New Exception("仕訳帳の出力に失敗しました。" & vbCrLf & ex.StackTrace & vbCrLf & ex.Message)

End Try
End Sub