Export Crystal Report To Excel With Csv Format

السلام عليكم

ما عليك الا انت تضع زر في الفورم و تكتب الكود التالي في الزر

Imports CrystalDecisions.CrystalReports.Engine

Imports CrystalDecisions.Shared

Public Class Form1

Dim cryRpt As New ReportDocument

Private Sub Button1_Click(ByVal sender As System.Object, _

ByVal e As System.EventArgs) Handles Button1.Click

cryRpt.Load("PUT CRYSTAL REPORT PATH HERE\CrystalReport1.rpt")

CrystalReportViewer1.ReportSource = cryRpt

CrystalReportViewer1.Refresh()

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, _

ByVal e As System.EventArgs) Handles Button2.Click

Try

Dim CrExportOptions As ExportOptions

Dim CrDiskFileDestinationOptions As New _

DiskFileDestinationOptions()

Dim CrFormatTypeOptions As New ExcelFormatOptions

CrDiskFileDestinationOptions.DiskFileName = _

"c:\crystalExport.xls"

CrExportOptions = cryRpt.ExportOptions

With CrExportOptions

.ExportDestinationType = ExportDestinationType.DiskFile

.ExportFormatType = ExportFormatType.Excel

.DestinationOptions = CrDiskFileDestinationOptions

.FormatOptions = CrFormatTypeOptions

End With

cryRpt.Export()

Catch ex As Exception

MsgBox(ex.ToString)

End Try

End Sub

و إن شاء الله راح تستفيد من هذا الكود

End Class

الاخ العزيز

الطريقة تنفع في حال يكون الملف بامتداد xls

وانا اريده بامتداد CSV